PDA

View Full Version : سوال: سوال از command



MBG73
دوشنبه 18 خرداد 1388, 23:05 عصر
با سلام

چجوری میتونم دکمه های برناممو جوری کنم که وقتی موس روی اون میره دورش تغییر رنگ بده ؟(دقیقاً مثل دکمه های ماشین حساب کامپیوتر)

ممنون

xxxxx_xxxxx
سه شنبه 19 خرداد 1388, 00:19 صبح
ابتدا Style كامند رو 1 كنيد - Graphical


Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Command1.BackColor = &H8000000F Then Command1.BackColor = &H80000016
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Command1.BackColor = &H80000016 Then Command1.BackColor = &H8000000F
End Sub
اگر از ocx ديگه اي استفاده كنيد بهتره. مثل xpControls كه تو همين سايت هست.