Office中国论坛/Access中国论坛

标题: 求助：如何使窗体在运行时不显示后面的ACCESS桌面，大家帮个忙啊 [打印本页]

作者: powerhao 时间: 2011-5-9 16:12
标题: 求助：如何使窗体在运行时不显示后面的ACCESS桌面，大家帮个忙啊
如题

作者: gaoyh2008 时间: 2011-5-9 19:45
回复 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 时间: 2011-5-9 20:31
回复 gaoyh2008 的帖子

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)