用VB 怎样使窗体总是在最底端呀?请朋友们帮帮忙!谢谢了
解决方案 »
- ?
- Image控件做按钮出错!但用Command控件做就不会.急需解决~~~
- 高分!散分!
- 文本框中的任何路径名文件自动运行打开起来!
- 高分求问,如何取得[vbprogram]is good这个字符串[]之间的内容
- gdi.dll函数ExtTextOutA如何替换啊,VB钩子能实现么?
- HELP!!!
- 怎么样对一个txt的内容进行操作
- Form2.Data1.RecordSource = "select * from 学员档案表 where like '%" & Text2.Text & "%'" 请问那里错了呀它显示"语法错误??"
- 警报:不要使用CheckPE.EXE,可能会损坏系统
- 如何禁用窗口关闭按钮
- 各位前辈,帮帮小弟。VB如何做出像WPE那样的封包处理程序,前辈们一定进来看看。
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As LongConst SWP_NOMOVE As Long = &H2
Const SWP_NOSIZE As Long = &H1
Const FLAG = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const HWND_TOP = 0
Const HWND_BOTTOM = 1
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
SetWindowPos(x.hwnd, HWND_BOTTOM, 0, 0, 0, 0, FLAG) '
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As LongConst SWP_NOMOVE As Long = &H2
Const SWP_NOSIZE As Long = &H1
Const FLAG = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const HWND_TOP = 0
Const HWND_BOTTOM = 1
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40Private Sub Form_Load()
Call SetWindowPos(Me.hwnd, HWND_BOTTOM, 0, 0, 0, 0, FLAG)
End Sub
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long
Private Sub Form_Load()
Call SetWindowPos(Me.hwnd, 1, 0, 0, 0, 0, FLAG)
End Sub
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOPMOST = -1Private Sub Form_Load()
''让说明窗体始终显示在最前面
Call SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE)End Sub