שאלה בקשר לסמן העכבר

[Dragonuv5]

שאלה בקשר לסמן העכבר

סתם שאלה קטנה שעלתה לי בראש. האם יש איזשהי אינדיקציה ב- VB לתמונה של העכבר? למשל אם העכבר יהיה שעון חול אז הוא יעשה מין msgbox כזה? תודה לכל מי שעוזר

 

[שינאל]

תשובה קטנה

dim Mpointer as intger MPointer=screen.MousePointer לפי נמספר השלם תדע את התשובה.

 

[Dragonuv5]

עשיתי ככה:

Private Sub Timer1_Timer() Dim Mpointer As Integer Mpointer = Screen.MousePointer If Mpointer <> 0 Then MsgBox Mpointer End Sub​

והוא אף פעם לא מראה msgbox, הוא כל הזמן על 0 והעכבר משנה את הסמן

 

[שינאל]

זה עובד!!!

Private Sub Command1_Click() Dim Mpointer As Integer Screen.MousePointer = vbHourglass Mpointer = Screen.MousePointer If Mpointer <> 0 Then MsgBox Mpointer End Sub תוסיף פקד Command1 לחיצה עליו משנה את הסמן