منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب مثال لتغير شكل الزر عند مرور الماوس عليه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : طلب مثال لتغير شكل الزر عند مرور الماوس عليه (/showthread.php?tid=7907)



طلب مثال لتغير شكل الزر عند مرور الماوس عليه - عمـر - 11-03-13

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

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

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


طلب مثال لتغير شكل الزر عند مرور الماوس عليه - ولد رائع - 11-03-13

كل ماعليك وضع 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 



طلب مثال لتغير شكل الزر عند مرور الماوس عليه - عمـر - 11-03-13

ولد رائع كتب :
كل ماعليك وضع 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 
جزاك الله خيرا وبارك الله فيك وجعله في ميزان حسناتك ياغالي
تم حل المشكلة حبيبنا وم التقيم