讓VisualBasic實現隱藏Mouse

發表于:2007-07-14來源:作者:點擊數: 標簽:
作者:小宇

    我們經常在影像播放器和系統進入屏幕保護時看不到鼠標,這是因為系統刻意將鼠標隱藏起來的原因。這種“隱藏Mouse”的功能其實并不難,我們利用Visual Basic的API函數ShowCursor即可輕松實現,只需要編寫程序如下代碼即可:

  Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

  
  Public Sub toHideCursor ()

  ShowCursor 0 '隱藏Mouse

  End Sub

  Public Sub toShowCursor ()

  ShowCursor 1 '顯示Mouse

  End Sub

  是不是很簡單?大家快來試試吧!

原文轉自:http://www.anti-gravitydesign.com

国产97人人超碰caoprom_尤物国产在线一区手机播放_精品国产一区二区三_色天使久久综合给合久久97