标题: 关于隐藏系统主窗体? [打印本页] 作者: 小何 时间: 2004-3-19 22:31 标题: 关于隐藏系统主窗体? 网友们提供的隐藏主窗体VB,我试过了,是可以隐藏系统主窗体.可是,系统在打开时都是会先显示系统主窗体然后隐藏再打开我们自已数据库的主窗体.如何实现:直接隐藏系统主窗体,点击打开系统时,直接看见我们自已的主窗体呢?作者: sfhlh 时间: 2004-3-19 22:44
Global Const SW_HIDE = 1
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
fSetAccessWindow = (loX <> 0)
End Function作者: sfhlh 时间: 2004-3-19 22:45
当窗口打开时调用fSetAccessWindow作者: zhuyiwen 时间: 2004-3-19 22:46
好象做不到作者: wu8313 时间: 2004-3-19 22:56
2楼的兄弟方法复杂了点，你可以在“工具”--“启动”选项中更改，启动窗体设为none,下面的四个复选框仅仅选中第一个即可！我是这样做的。我发现，access把很多后台的操作都放在了前面，比如说向导就是最好的证明！