谢谢小赵和麥田的热情回复。
隐藏ACCESS主窗体的办法一般如下(但窗体必须是弹出方式):
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
ShowWindow Application.hWndAccessApp, SW_SHOWNORMAL
MoveWindow Application.hWndAccessApp, -1000, 0, 400, 500, 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
MoveWindow Application.hWndAccessApp, 0, 0, 400, 500, 1
ShowWindow Application.hWndAccessApp, SW_SHOWMAXIMIZED
End Sub
但我现在需要的是不用弹出方式如何实现?请问还有其它方法吗?