منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب مثال لتغير شكل الزر عند مرور الماوس عليه
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم ورحمة الله وبركاته

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

عند الطبيق عندي فقط يعمل على زر واحد اريد ان اعملها على زريين
لذلك اخواني لو تكرمتم اريد مثال صغير على زرين
وجزاكم الله خيرا
كل ماعليك وضع Form وضع فيه اثنينCommand وضع هذا الكود في الفورم ويكون جاهز اخي الكريم
PHP كود :
Private Sub Command1_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
If 
Command1.FontBold False Then
        Command1
.FontBold True
        Command1
.FontSize 12
End 
If
End Sub


Private Sub Command2_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
If 
Command2.FontBold False Then
        Command2
.FontBold True
        Command2
.FontSize 12
End 
If

End Sub

Private Sub Form_MouseMove(Button As IntegerShift As IntegerAs SingleAs 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 IntegerShift As IntegerAs SingleAs Single)
If 
Command1.FontBold False Then
        Command1
.FontBold True
        Command1
.FontSize 12
End 
If
End Sub


Private Sub Command2_MouseMove(Button As IntegerShift As IntegerAs SingleAs Single)
If 
Command2.FontBold False Then
        Command2
.FontBold True
        Command2
.FontSize 12
End 
If

End Sub

Private Sub Form_MouseMove(Button As IntegerShift As IntegerAs SingleAs 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 
جزاك الله خيرا وبارك الله فيك وجعله في ميزان حسناتك ياغالي
تم حل المشكلة حبيبنا وم التقيم