或者用“FindWindow”函数,不过要先申明: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
form2.show '同意
Private Sub mnu2_Click() 系学生会资料添加.Show 1 End SubPrivate Sub mnu3_Click() frmnodifyuserinfo.Show 1 End SubPrivate Sub mnuChat_Click() 会议资料查询.Show 1 End Sub
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
系学生会资料添加.Show 1
End SubPrivate Sub mnu3_Click()
frmnodifyuserinfo.Show 1
End SubPrivate Sub mnuChat_Click()
会议资料查询.Show 1
End Sub