UC知道SetWindowPos()VB中这个函数到底哪里错了
来源：百度知道 编辑：UC知道 时间：2024/09/22 04:23:12
下面是程序，高手指点下：
Private 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
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
‘声明
Private Sub Command2_Click()
Dim e As Double
e = SetWindowPos(h, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW)
Label3.Caption = e
End Sub
部分程序，运行后没反应。高手帮帮忙
Private 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
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
‘声明
Private Sub Command2_Click()
Dim e As Double
e = SetWindowPos(h, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW)
Label3.Caption = e
End Sub
部分程序，运行后没反应。高手帮帮忙
去下个模板吧，简单嘛
我觉得应该是h 值的问题
其他不变，只改下面一行即可
e = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW)
第一个参数是具体的句柄，在VB里应该是个窗口，如form1.hWnd,第二个是你设置的参数，你现在用的是总在最上方式，后面是改变窗口的大小和样式，应该可以是空的，你的不行有可能是把它的宽和高变为0，也就是看不到了。