如何让窗体显现出来,当运行其他程序时?

Question

试试这段代码，设置SetWindowPos的参数应该还可以实现其他功能，你自己查查API说明吧
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 mbOnTop As Boolean
Private Property Let OnTop(Setting As Boolean)
If Setting Then
    SetWindowPos hwnd, -1, 0, 0, 0, 0, 1
Else
    SetWindowPos hwnd, -2, 0, 0, 0, 0, 1
End If
mbOnTop = Setting
End Property
Private Property Get OnTop() As Boolean
OnTop = mbOnTop
End PropertyPrivate Sub Command1_Click()
OnTop = False '不再OnTop
End SubPrivate Sub Form_Load()
OnTop = True '调用 OnTop=True 即可让窗口 Always OnTop。
End Sub

Answer 1

你说的此法,当在用word,autocad,photoshop等软件时,
窗体可弹出;但当玩游戏时(如星际争霸), 则无法弹出.

Answer 2

用个timer控件。然后用form.show 就可以了。