استفاده از پوسته خاص برای ماوس درون نرم افزار

[mohsen_iceman2000]

سلام آیا میشه طرح خواصی واسه ماوس قرار داد که تو کل نرم افزار یکسان باشه ، بدون استفاده از Mouse Icon ، چون استفاده از Mouse icon زمان بره و واسه همه لیبیل ها و ... باید تعریف کنم . دوستان کسی می دونه ؟

[Veteran]

شما Mouse Icon رو برای فرم تنظیم کنید.
بعد موس برای همه ابجکت های روی فرم به یک شکل هست

[محسن واژدی]

سلام
اگه بخواهیم آیکون موس را برای تمام برنامه تغییر بدهیم میتوانیم از MousePointer موجود در کلاس Screen استفاده کنیم:
Private Sub Command1_Click()
Screen.MouseIcon = LoadPicture("C:\WINDOWS\Cursors\3dgarro.cur")
Screen.MousePointer = 99
End Sub

موفق باشید