Question

VB怎么让Form2始终在Form1前面？

点击Form1出现Form2，再点击Form1可以对Form1进行操作，但Form2始终在最前面。请问用VB怎么实现上述效果？

Answer 1

Form1中的代码（添加个按钮）

Private Sub Command1_Click()
Form2.Show
End Sub

***************************************************************

Form2中的代码

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 Form_Load()
Me.Show
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
'……其它代码
End Sub

Answer 2

楼下的说得没错！使用API定义，然后窗体置顶