Office中国论坛/Access中国论坛

标题: 优化 DoCmd.RunCommand acCmdAppMinimize [打印本页]

作者: andymark 时间: 2008-2-15 16:36
标题: 优化 DoCmd.RunCommand acCmdAppMinimize
把启动窗体设为弹出模式并在窗体加载事件中加入DoCmd.RunCommand acCmdAppMinimize　就能对数据库进行隐藏。大家可能也碰到过这样的情况，同样的代码同样是弹出模式，主窗体为何有时是缩少到最小化，有时却能正常显示呢？先不说原因，下面的代码也许对你有所帮助

   Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
   Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

   Const SW_SHOWNORMAL = 1

Private Sub Form_Load()

   DoCmd.RunCommand acCmdAppMinimize
   SetForegroundWindow Me.hWnd
   ShowWindow Me.hWnd, SW_SHOWNORMAL
   Me.SetFocus
  End Sub

作者: rjacky 时间: 2008-2-15 16:48
支持，原因也说说吧

作者: tmtony 时间: 2008-2-15 21:12
andymark兄最近 API佳作不断哦,收下了

作者: chinj 时间: 2008-5-11 10:06
顶一下。

作者: chinj 时间: 2008-5-11 12:28
收藏，备用。

作者: chaojianan 时间: 2009-9-27 10:57
支持，收藏了。

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