求助：如何使窗体在运行时不显示后面的ACCESS桌面，大家帮个忙啊

powerhao

如题

gaoyh2008

回复 powerhao 的帖子

在主窗体的通用事件里?代?－－

Option Compare Database
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

    三、在主窗体的加?事件里?代?－－
ShowWindow Application.hWndAccessApp, SW_SHOWNORMAL
MoveWindow Application.hWndAccessApp, -1000, 0, 400, 500, 1

    四、在主窗体的卸?事件里?代?－－
MoveWindow Application.hWndAccessApp, 0, 0, 400, 500, 1

powerhao

回复 gaoyh2008 的帖子

非常感谢老师回复，我放进去了，提示编译有错，在END FUCTION end sub 之后只能有注释
我是菜鸟 您大概能讲下代码内容 是不是调节窗体大小之类的