<del id="7msxa"><table id="7msxa"><strong id="7msxa"></strong></table></del><legend id="7msxa"></legend>

<tbody id="7msxa"></tbody>
  • <ol id="7msxa"></ol><th id="7msxa"><track id="7msxa"><rt id="7msxa"></rt></track></th>
    1. <dd id="7msxa"></dd>
    2. 首頁 > 數據庫 > Access > 正文

      怎樣用代碼隱藏、最大化、最小化ACCESS的主窗口

      2020-03-24 19:19:09
      字體:
      來源:轉載
      供稿:網友
      (問) 怎樣用代碼隱藏、最大化、最小化ACCESS的主窗口? (答) 通過一函數已定義的常量fSetAccessWindow實現。 該函數能用來完全隱藏Access窗口并將你自己的窗體顯示在桌面上。在彈出式窗體的Open事件中使用SW_HIDE參數調用fSetAccessWindow函數實現。 注意:如果你隱藏了Access主窗口,要確定你有良好的出錯處理。因為主窗口隱藏后,一旦引發錯誤,并出錯提示窗口上點擊了“結束”按鈕,這樣不會使Access主窗口可見,并退出你自己的窗體。推薦你在你的錯誤處理程序中使用SW_SHOWNORMAL參數調用fSetAccessWindow函數來顯示Access主窗口。 如果由于別的原因,Access主窗口不能顯示,那么你將只能從任務欄中關閉你的mdb,在Win9x中使用Control-Alt-Delete來結束任務,在WinNT、2000或XP中,可以右鍵單擊任務欄選擇html' target='_blank'>任務管理器來選擇該mdb結束任務。'************代碼開始**********
      GlobalConstSW_HIDE=0
      GlobalConstSW_SHOWNORMAL=1
      GlobalConstSW_SHOWMINIMIZED=2
      GlobalConstSW_SHOWMAXIMIZED=3 PrivateDeclareFunctionapiShowWindowLib"user32"_
      Alias"ShowWindow"(ByValhwndAsLong,_
      ByValnCmdShowAsLong)AsLong
      FunctionfSetAccessWindow(nCmdShowAsLong)
      '使用舉例
      '最大化Access窗口
      ' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
      '最小化Access窗口
      ' ?fSetAccessWindow(SW_SHOWMINIMIZED)
      '隱藏Access窗口
      ' ?fSetAccessWindow(SW_HIDE)
      '正常顯示Access窗口
      ' ?fSetAccessWindow(SW_SHOWNORMAL)
      '
      DimloX AsLong
      DimloFORMAsFORM
      OnErrorResumeNext
      SetloFORM=Screen.ActiveFORM
      IfErr 0Then'沒有活動窗體noActiveFORM
      IfnCmdShow=SW_HIDEThen
      MsgBox"除非屏幕上有一個窗口,否則不能隱藏Access主窗口!"_
      vbcr vbcr _
      "CannothideAccessunless"_
      "aFORMisonscreen"
      Else
      loX=apiShowWindow(hWndAccessApp,nCmdShow)
      Err.Clear
      EndIf
      Else
      IfnCmdShow=SW_SHOWMINIMIZEDAndloFORM.Modal=TrueThen
      MsgBox"不能由屏幕上的" (loFORM.Caption+"") "窗體最小化Access主窗口!"_
      vbcr vbcr _
      "CannotminimizeAccesswith"_
      (loFORM.Caption+"")_
      "FORMonscreen"
      ElseIfnCmdShow=SW_HIDEAndloFORM.PopUp TrueThen
      MsgBox"不能由屏幕上的" (loFORM.Caption+"") "窗體隱藏Access主窗口!"_
      vbcr vbcr _
      "CannothideAccesswith"_
      (loFORM.Caption+"")_
      "FORMonscreen"
      Else
      loX=apiShowWindow(hWndAccessApp,nCmdShow)
      EndIf
      EndIf
      fSetAccessWindow=(loX 0)
      EndFunction
      '************代碼結束**********html教程

      鄭重聲明:本文版權歸原作者所有,轉載文章僅為傳播更多信息之目的,如作者信息標記有誤,請第一時間聯系我們修改或刪除,多謝。

      發表評論 共有條評論
      用戶名: 密碼:
      驗證碼: 匿名發表
      japan日本人妻熟老太
      <del id="7msxa"><table id="7msxa"><strong id="7msxa"></strong></table></del><legend id="7msxa"></legend>

      <tbody id="7msxa"></tbody>
    3. <ol id="7msxa"></ol><th id="7msxa"><track id="7msxa"><rt id="7msxa"></rt></track></th>
      1. <dd id="7msxa"></dd>