Question

一个关于VB编程的菜鸟级问题

我希望让我编写的程序始终保持在其他窗口的上方 能办到吗~?
比如我运行我编写的程序 然后打开photoshop最大化 并且正常操作
还能让我编写的程序保持在Photoshop上面
高手帮帮我吖`....

Answer 1

'加入以下代码:
'声明
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 topview = -1

Private Sub Form_Load()
'窗体Form 始终保持在其他窗口的上方
SetWindowPos Me.hwnd, topview, _
Me.Left \ Screen.TwipsPerPixelX, _
Me.top \ Screen.TwipsPerPixelY, _
Me.Width \ Screen.TwipsPerPixelX, _
Me.Height \ Screen.TwipsPerPixelY, 0
End Sub

Answer 2

复制下面代码即可

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)

Private Sub Form1_Load()
SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
End Sub

Answer 3

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)

Call SetWindowPos(（窗口句柄）hwnd, -1, 0, 0, 0, 0, 3)

试试

Answer 4

让指定对象获取焦点
对象名.SetFocus
可能有用 试下