[عمـر]

سلام عليكم ورحمة الله وبركاته

اخواني لقيد هاد الموضوع وعجبني جدا هذا الكود
الموضوع من هنــــــــــــــا

عند الطبيق عندي فقط يعمل على زر واحد اريد ان اعملها على زريين
لذلك اخواني لو تكرمتم اريد مثال صغير على زرين
وجزاكم الله خيرا

[ولد رائع]

كل ماعليك وضع Form وضع فيه اثنينCommand وضع هذا الكود في الفورم ويكون جاهز اخي الكريم

PHP كود :

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 Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Command2.FontBold = False Then
        Command2.FontBold = True
        Command2.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
If Command2.FontBold = True Then
        Command2.FontBold = False
        Command2.FontSize = 10
End If

End Sub 


[عمـر]

ولد رائع كتب :

كل ماعليك وضع Form وضع فيه اثنينCommand وضع هذا الكود في الفورم ويكون جاهز اخي الكريم

PHP كود :

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 Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Command2.FontBold = False Then
        Command2.FontBold = True
        Command2.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
If Command2.FontBold = True Then
        Command2.FontBold = False
        Command2.FontSize = 10
End If

End Sub 


جزاك الله خيرا وبارك الله فيك وجعله في ميزان حسناتك ياغالي
تم حل المشكلة حبيبنا وم التقيم