隐藏主程序窗口

时　间:2007-10-18 11:16:55
作　者:cuxun   ID：70  城市：闵行
摘　要:隐藏主程序窗口
正　文:

隐藏主程序窗口：
建立一个窗体及命令按钮控件command0，窗体代码如下：
Option Compare Database
Option Explicit
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long


Private Sub Command0_Click()
If Me.Command0.Caption = "隐藏窗体" Then
Me.Command0.Caption = "显示窗体"
Call apiShowWindow(hWndAccessApp, SW_HIDE)
DoCmd.Restore
Else
Me.Command0.Caption = "隐藏窗体"
Call apiShowWindow(hWndAccessApp, SW_SHOWNORMAL)

DoCmd.Close acForm, "frm_main"
DoCmd.ShowToolbar "菜单栏", acToolbarYes
DoCmd.Restore
End If
End Sub

Access软件网官方交流QQ群 (群号:483923997) 　　　　　　Access源码网店