关于隐藏系统主窗体?

小何

网友们提供的隐藏主窗体VB,我试过了,是可以隐藏系统主窗体.可是,系统在打开时都是会先显示系统主窗体然后隐藏再打开我们自已数据库的主窗体.如何实现:直接隐藏系统主窗体,点击打开系统时,直接看见我们自已的主窗体呢?

sfhlh

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

当窗口打开时调用fSetAccessWindow

zhuyiwen

好象做不到

wu8313

2楼的兄弟方法复杂了点，你可以在“工具”--“启动”选项中更改，启动窗体设为none,下面的四个复选框仅仅选中第一个即可！我是这样做的。我发现，access把很多后台的操作都放在了前面，比如说向导就是最好的证明！