Question

VB 让一个窗口在最前端

不是让VB窗体在最前端！！！
比如让

大话西游

游戏窗口在最前端

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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
Dim winH As Long
winH = FindWindow(vbNullString, "大话西游")
'窗口名也可以换为别的,根据程序的窗口名来定
SetWindowPos winH, -1, 0, 0, 0, 0, 3
End Sub

<--------

这样的话打开程序,如果大话西游正在运行的话,就会立即置顶.
如果要取消置顶的话,添加个command控件,里面写上

-------->

Dim winH As Long
winH = FindWindow(vbNullString, "大话西游")
SetWindowPos winH, -2, 0, 0, 0, 0, 3

<--------

即可.

谢谢.

Answer 2

findwindow 查找 大话西游窗口 再用 让vb窗口置顶的代码 把其中的窗口hwnd改成findwindow获取到的值