كود OnmouseMove

[sofiane05552]

السلام عليكم 

اريد مساعدة لوضع صورتين في زر عند وضع ماوس على  الزر تتغير صورة ممكن كود وطريقة 

[صالح حمادي]

السلام عليكم

ضع الصورة في ملف البرنامج و استعمل هذا الكود الذي يغير صور الزر

Me.button1.Picture = CurrentProject.Path & "\6.bmp"

بحيث : 6.bmp هو اسم الصورة و امتدادها

[sofiane05552]

19 دقائق مضت, صالح حمادي said:

السلام عليكم

ضع الصورة في ملف البرنامج و استعمل هذا الكود الذي يغير صور الزر

Me.button1.Picture = CurrentProject.Path & "\6.bmp"

بحيث : 6.bmp هو اسم الصورة و امتدادها

جزاك الله خيرااخي ممكن تضع لي مثال في  هذا الفورم فيه فورم فيها  زر فيه صورتين ممكن تطبق طريقة ذي لكي افهم 

Database3.zip

[Shivan Rekany]

1 ساعه مضت, sofiane05552 said:

اريد مساعدة لوضع صورتين في زر عند وضع ماوس على  الزر تتغير صورة ممكن كود وطريقة 

لان كان صورك محملة في داخل قاعدة البيانات لذلك انا استخدمت هذا عند تحريك مؤشر الماوس على زر

Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Commande0.Picture = "1"
End Sub

واضفت ليبل حول الزر وعند تحريك الماوس عليه استخدمت هذا الكود

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Commande0.Picture = "0"
End Sub

لكي يظهر صورة الاولى على الزر

 

Database3.zip

[sofiane05552]

21 دقائق مضت, Shivan Rekany said:

لان كان صورك محملة في داخل قاعدة البيانات لذلك انا استخدمت هذا عند تحريك مؤشر الماوس على زر

Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Commande0.Picture = "1"
End Sub

واضفت ليبل حول الزر وعند تحريك الماوس عليه استخدمت هذا الكود

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Commande0.Picture = "0"
End Sub

لكي يظهر صورة الاولى على الزر

 

Database3.zip

بارك الله فيك استاذ جزاك الله خيرا

بخصوص  طريقتك رائعة ممكن تقولي وش فائدة ليبل  و اين صور يعني اين وضعتهم