وبلاگ رسمی مهدی غلامی میاندهی

با سلام خدمت برنامه نویسان حرفه ای از جمله visual basic نویسان.

برنامه ای که در زیر آمده است می تواند windows curser mouse را تغییر دهد.این کار توسط توابع api در visual basic انجام می شود.  

Private Const OCR_NORMAL = 32512

Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function CopyIcon Lib "user32" (ByVal hIcon As Long) As Long

Dim hCurOld As Long
Dim hCurNew As Long

Private Sub Command1_Click()
  hCurOld = GetCursor()
  hCurNew = CopyIcon(Picture1.Picture)
  SetSystemCursor hCurNew, OCR_NORMAL
End Sub