28-10-12, 11:44 AM
السلام عليكم ورحمة الله وبركاته
كاتب الموضوع :: crush.1993
تغيير شكل الزر عند المرور عليه
كاتب الموضوع :: crush.1993
تغيير شكل الزر عند المرور عليه
كود :
[align=left]Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Command1.FontBold = False Then
Command1.FontBold = True
Command1.FontSize = 12
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Command1.FontBold = True Then
Command1.FontBold = False
Command1.FontSize = 10
End If
End Sub[/align]