كود OnmouseMove

[sofiane05552]

السلام عليكم 

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

[صالح حمادي]

السلام عليكم

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

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

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

[sofiane05552]

  في 23‏/1‏/2018 at 14:14, صالح حمادي said:

السلام عليكم

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

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

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

Expand  

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

Database3.zip

[Shivan Rekany]

  في 23‏/1‏/2018 at 13:42, sofiane05552 said:

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

Expand  

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

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]

  في 23‏/1‏/2018 at 15:30, 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.zipFetching info...

Expand  

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

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