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

mahdigan

چهارشنبه 03 دی 1393, 09:27 صبح

samiasoft

چهارشنبه 03 دی 1393, 12:02 عصر

با سلام

چطور میشه کاری کرد که وقتی موس میاد رو یک لیبل رنگ تغییر کنه ووقتی کنار رفت به رنگ اصلی برگرده مثل لینک ها در سایت ویه سوال دیگه این عمل رو چطور روی کامند باتونها نیز پیاده کنیم؟ممنون میشم راهنمایی بکنید .خیلی گشتم چیز نتونستم پیدا کنم :افسرده: (.مبتدی هستم)

شما باید این دستور تغییر رنگ رو در خصوصیات MouseMove هر کنترل تغییر بدید.
یک لیبل بزارید روی فرم و دستورات زیر رو قرار بدید :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = vbGreen
End Sub

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