如何在VB裡面加入動態游標?我再選單內他說無法加入..

Question

如何在VB裡面加入動態游標?我再選單內他說無法加入..只能加入靜態的..我想要加入動態游標 我該怎麼處理呢?

Answer 1

'表單置1個PictureBoxConst OCR_NORMAL As Long = 32512Private Declare Function CopyIcon Lib "user32" (ByVal hIcon As Long) As LongPrivate Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As LongPrivate Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As LongPrivate Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As LongPrivate Declare Function GetCursor Lib "user32" () As LongDim Tmp As Long, B As BooleanPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If B Then SetSystemCursor Tmp, OCR_NORMAL: B = FalseEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim Dr As StringIf B Then Exit SubTmp = CopyIcon(GetCursor())Dr = "C:\WINNT\Cursors\Piano.ani" '你的游標路徑SetSystemCursor LoadCursorFromFile(Dr), OCR_NORMALB = TrueEnd Sub

Answer 2

那些程式碼要放在哪裡丫　不懂！

Answer 3

他在別的按鈕的時候會跟過來咪@@?
幫忙解說解說 謝謝^^