بیسیک 6 hover نداره؟

[_mojitaba_]

سلام دوستان
تو سی اس اس یه ویژگی هست hover که تعیین میکنه اگه موس روی این عنصر رفت یک حرکتی انجام بشه

تو ویژوال بیسیک این کارو چطور میشه انجام داد؟

[mehran901]

mouse move event وقتی موس روی شی تون حرکت کنه کال میشه

[_mojitaba_]

mouse move event وقتی موس روی شی تون حرکت کنه کال میشه

خب بعد از اینکه موس از روی شیء رفت رو همون حالت میمونه!
شما راه حلی دارید برا این؟

[mehran901]

یعنی چی ؟!! خب شما مثلا میخواین موس با اومدن روی عکس ی کار خاصی انجام بشه و وقتی از روش خارج شد ی کار دیگه !!.. ی mouse move برا پیکچر باکس در نظر بگیرین و ی mouse move برا فرمتون ...وقتی موس مو فرم فعال بشه یعنی موس روی شی نیس!

[_mojitaba_]

یعنی چی ؟!! خب شما مثلا میخواین موس با اومدن روی عکس ی کار خاصی انجام بشهو وقتی از روش خارج شد ی کار دیگه !!.. ی mouse move برا پیکچر باکس در نظر بگیرین و ی mouse move برا فرمتون ...وقتی موس مو فرم فعال بشه یعنی موس روی شی نیس!

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

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = X
End Sub

حالا وقتی موس بره روی ایمیج باکس تصویر x میشه
ولی وقتی موس بره کنار یعنی دیگه موس روی ایمیج باکس نباشه تصویر x میمونه من میخوام به حالت قبلش برگرده

[SlowCode]

مهران جواب سوالتون رو داد!

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label1.BackColor = &H333333 Then Label1.BackColor = &H999999
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &H333333
End Sub

متاسفانه vb6 رویدادی مثل mouseEnter , mouseExit نداره.
به همین دلیل شما هروقت موس رو روی فرم حرکت بدی رنگ لیبل عوض میشه و این بهینه نیست!
شما باید یه شرطی بنویسی که اگه مقدار فلان Property فلان نباشه فلان کن.

[سید حمید حق پرست]

سلام علیکم
یک نمونه کامپوننت کلید سورس باز براتون ضمیمه میکنم که حالت های MouseHover و MouseDown داره و دستی عکس براش میزاری
میتونید برای کنترلهای دیگه هم ویرایش و استفاده کنید.
موفق باشید.

یا علی (ع)