كيف يمكن تغير الصورة عند مرور الفارة وكيف

أخي APAS

هناك ثلاث أحداث

Muosemove

وفي هذا الحدث تستطيع كتابة اي امر ينفز عند مرور الماوس على الكومند

والحدث الثاني هو

Click

وفي هذا الحدث تستطيع كتابة اي امر ينفز عند الضغط الماوس على الكومند

والحدث الثالث هو

DublClick

وفي هذا الحدث تستطيع كتابة اي امر ينفز عند الضغط مرتين الماوس على الكومند

تشكر اخي العزيز A7med_prof

الاحداث هذه حسب كلامك هي لـــ Command أنما انا ابحث لــ Image

المثال مرفق الرجاء التعديل فيه ويوجد به الشرح كامل للمطلوب

وجزاكم الله خير

النموذج.rar

بسم الله الرحمن الرحيم

أخي APAS

بالنسبة لسؤالك الأول فكما قال لك الأخ أحمد يمكنك وضع الكود في واحدة من ال Events التالية لأداة Image

مثلا اذا اردت أن تغير الصورة الموجودة في الأداة Image1 عند مرور الماوس فوق الأداة فما عليك سوى كتابة التالي:

Private Sub Image1_MouseMove()
Image1.Picture=loadPicture("c:\Pic.jpg")
End Sub

أما اذا أردت تغيير الصورة عند الضغط على الأداة فما عليك سوى كتابة نفس الكود و لكن هذه المرة في ال Event --- Image1_Click

أما عن سؤالك الثاني المتعلق بتعدد المهام لنفس الزر فيمكنك استعمال الكود التالي :

تقوم بأعلان متغير في أعلى الكود

Dim I as Integer

Private Sub Command1_Click()
I=I+1
If I Mod 2 = 0 then
'First Code
Else
'Second Code
End If
End Sub

و هناك عدة طرق لفعل هذا الأمر

اتمنى أن أكون قد أجزت و أفدت و شكرا

مشكور اخي العزيز crazy-man

وجزاك الله خير

فقد وضحت مافيه الكفاية

جزاكم الله خيرا

ان أمكن كود يجعل الصورة تتغير عند مرور الفارة ثم تعود الى شكلها الاصلي

عفوا لا يوجد حدث ديل شك للزر الا بهذه الطريقة

واي خدمة انا مستعد

_____________________.rar

dear khalid i m sorry coz i m writting english coz i m not in my computer

so u can put the path of ur picture in a constatnt like that

Const Pic="c:\Picture.jpg"

and in the event "Button_MouseLive" you put

picturebox1.image=image.fromfile(pic)

that s all

-------------------------------

chèr khalid si vous êtes algerien et t as pas compris l'englais voila je vais vous donnez une explication mnt en français ;)

pour pouvoir revoir l image qd le curseu quitte le contrôle PictureBox vous pouvez stockez le chemin de l image principale ds un constant comme ca :

Const Pic="c:\Picture.jpg"

aprés vous mettrez ds l évenement "Button1_MouseLive" ce petit code

picturebox1.image=image.fromfile(pic)

je souhaite que c ce que vous voulez

---------------------------------

S.P I hope that i helped u