如何讓滑鼠指標 (游標) 維護沙漏形狀

文章翻譯 文章翻譯
文章編號: 110542 - 檢視此文章適用的產品。
本文已封存。本文係以「現狀」提供且不會再更新。
全部展開 | 全部摺疊

在此頁中

結論

您可以讓 Visual Basic 應用程式,將滑鼠指標 (游標) 設定為一個小時玻璃圖案,並等待。不過,如果使用者將滑鼠移另一個應用程式視窗,游標將返回滑鼠指標。若要強制資料指標來維護沙漏的圖形,甚至上的同時其他視窗,使用 SetSysModalWindow Windows API 函式系統強制回應視窗使視窗。

其他相關資訊

讓系統強制回應視窗的逐步指示

  1. 啟動 Visual Basic,或者如果已正在執行 Visual Basic 的新的專案則會從 [檔案] 功能表 (ALT、 F、 N) 選擇。預設會建立 Form1。
  2. 將下列程式碼加入至 Form1 的一般宣告區段:
       Declare Function SetSysModalWindow% Lib "User" (ByVal hwnd%)
       Const HourGlass = 11
    
    						
  3. 將下列程式碼加入至 Form1 的 Form_Load 事件:
       Sub Form1_Load ()
          Me.Show
          Screen.MousePointer = HourGlass
          ' Remove the following line to see how the mouse behaves without it
          result% = SetSysModalWindow%(form1.hWnd)
       End Sub
    
    						
  4. 將下列程式碼加入至 Form1 的 Form_Click 事件:
       Sub Form1_Click ()
          Unload Form1
       End Sub
    
    						
  5. 執行程式。按一下表單以結束它。請注意游標會保持沙漏,甚至當您將滑鼠指標移其他視窗。
如需有關 SetSysModalWindow Windows API 函式的詳細資訊,請參閱 Windows 3.1 版 SDK 說明檔隨附在專業版的 Visual Basic 的 Windows。

屬性

文章編號: 110542 - 上次校閱: 2013年9月13日 - 版次: 2.0
這篇文章中的資訊適用於:
  • Microsoft Visual Basic 2.0 Standard Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Visual Basic 2.0 Professional Edition
  • Microsoft Visual Basic 3.0 Professional Edition
關鍵字:?
kbnosurvey kbarchive kbmt KB110542 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:110542
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com