نبودن موس

[mahdi banki]

با سلام به دوستان و اساتید

باچه روشی میشه موس را از برنامه حذف کرد و دوباره موس را به برنامه آورد .:متفکر::متفکر::متفکر::متفکر:: متفکر:

با تشکر

[amirrezan]

کاری نداره که
دو تا دکمه به اسم های Command1 و Command2 روی فرمت بذار و کد زیر رو کپی کن

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

Private Sub Command1_Click()
Do Until ShowCursor(False) < 0
Loop
End Sub

Private Sub Command2_Click()
Do Until ShowCursor(True) >= 0
Loop
End Sub

Command1 موس رو مخفی می کنه و Command2 اونو ظاهر می کنه

[mahdi banki]

دوست عزیز بسیار ممنون خیلی لطف کردی ولی من میخواهم در برنامه فقط موس Hiden بشه نه در ویندورز هم Hiden بشه باز هم تشکر اگه راه حلی داری ممنمون میشم .

[butterfly8528]

دوست عزیز بسیار ممنون خیلی لطف کردی ولی من میخواهم در برنامه فقط موس Hiden بشه نه در ویندورز هم Hiden بشه باز هم تشکر اگه راه حلی داری ممنمون میشم .

دوست عزیز شما باید پنجره فعال رو چک کنید . اگه پنجره فعال پنجره شما بود اون وقت موس

رو پنهان کنید و در غیر این صورت موس رو نمایش بدید .

این کار رو بهتره با یک تایمر انجام بدید :لبخندساده:

اگه سوالی هست در خدمتم

[amirrezan]

خوب البته را ه بهتری هست وو اون استفاده از تابع SetCursor هست
این تابع برای اینه که از میان ایکون های ویندوز یک آیکون رو برای موس انتخاب کنی
و آیکون شماره صفر خای هست که همون هدف شماست


Option Explicit
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCursor 0
End Sub


البته این کد رو باید توی MouseMove بنویسی
کد 45 رو هم ببین جالبه

[mahdi banki]

دوست عزیز بسیار ممنونم لطف کردی مشکلم حل شد