用代码隐藏ACCESS窗口_access开发心得-access编程经验-access经验之谈

当前位置：主页 > 技巧 > Access技巧 > 编程心得绝招 > 经验泛谈 > 正文

用代码隐藏ACCESS窗口

时间：2006-11-06 22:01 来源：Access开发者作者：中国人阅读：次

此方法须把启动窗口设置为弹出属性。所以不适用所有的数据库。其方法是在启动窗体的加载属性中加入如下代码

DoCmd.RunCommand acCmdAppMinimize'最小化access窗体

方法二------------------------------
1、定义以下变量
Option Compare Database
Option Explicit
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Const WM_SYSCOMMAND As Long = &H112
Const SC_MOVE_MOUSE As Long = &HF012&
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
2、在启动窗体中键入以下代码并把启动窗体的弹出属性设为是
Private Sub Form_Load()
ShowWindow Me.Application.hWndaccessApp, 0

End Sub

要隐藏数据库窗口，使用以下代码：
DoCmd.SelectObject acForm, "你的窗体名", True
DoCmd.RunCommand acCmdWindowHide

要最小化数据库窗口，使用以下代码：
DoCmd.SelectObject acForm, , True
DoCmd.Minimize

(责任编辑：admin)

顶一下

(1)

100%

踩一下

(0)

上一篇：Application与Docmd对象Quit方法区别探讨
下一篇：ACCESS数据表中数据类型“是/否”转为SQL SERVER数据表时注意的