تغییر آیکون موس

[sabaie]

با سلام
تغییر شکل ایکون موس در هنگام حرکت کردن بر روی موس ها

[مهدی قربانی]

سلام
سئوالتون نامفهومه ، بهتر و كاملتر توضيح بديد .

[amir4_1363]

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

[mina01]

سلام
ابتدا این کدها رو تو هر فرمی که می خوای نشانگر موس تغییر پیدا کنه تایپ کن (در قسمت Option Compare Database)


(Function MouseCursor(CursorType As Long
Dim lngRet As Long
( lngRet = LoadCursorBynum(0&, CursorType
( lngRet = SetCursor(lngRet
End Function

بعدا روی هر چیزی که می خوای آیکون موس تغییر پیدا کنه کد زیر رو در خاصیت mouse move تایپ کن:

(32651)Call MouseCursor


به فرض یه لیبل به اسم ab داری:
Private Sub AB_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
(32651)Call MouseCursor
End Sub
توجه: اگه عدد داخل پرانتز رو که با رنگ قرمز نشون دادم عوض کنی آیکونها تغییر پیدا می کنن

[amir4_1363]

دوست عزیز تو محیط vb 6 رو با اکسس یکی نکن اونی که تو میگی مربوط به اکسس نمیشه دوست گرامی

[ali190]

این هم نمونه برنامه

[amir4_1363]

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

[mina01]

دوست عزیز تو محیط vb 6 رو با اکسس یکی نکن اونی که تو میگی مربوط به اکسس نمیشه دوست گرامی
دوست عزیز پس اگه بخوای یک ماژول یا کد تو اکسس بنویسی با زبان c یا دلفی می نویسی
ثانیا کد بالا رو من در اکسس نوشته و نتیجه هم داده