7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
Dim myhwnd As Long
myhwnd = GetWindow(Me.hwnd, GW_OWNER)
ShowWindow myhwnd, SW_HIDE
End Sub
与
Private Sub Form_Load()
Dim myhwnd As Long
'myhwnd = GetWindow(Me.hwnd, GW_OWNER)
ShowWindow Me.hwnd, SW_HIDE
End Sub
与
Private Sub Form_Load()
Dim myhwnd As Long
myhwnd = FindWindow(vbNullString, "工程1")
ShowWindow myhwnd, SW_HIDE
End Sub
Private Sub Command1_Click()
Dim myhwnd As Long
myhwnd = GetWindow(Me.hwnd, GW_OWNER)
ShowWindow myhwnd, SW_HIDE
End Sub
这个在在任务管理器应用程序栏不见,但窗体可见
Private Sub Command1_Click()
ShowWindow me.hwnd, SW_HIDE
End Sub
这个在任务管理器应用程序栏可见,但窗体不见