ممكن مساعده

بالنسبة للسؤال الاول .... اكتب الكود المناسب في حدث Mouse Move التابع لنفس الكوماند

بالنسبة للسؤال الثاني . استخدم اي من ادوات الربط المتاحه مثل Data أو Adodc

تحياتي

أختي ممكن الشرح بالتفصيل لأني مبتأدة كتبت الكود ماطلع ليي

Private Sub Command1_Click()

Form2.Show

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image1.Visible = True

End Sub

Private Sub Command2_Click()

Form3.Show

End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Visible = True

End Sub

Private Sub Command3_Click()

Form4.Show

End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image3.Visible = True

End Sub

Private Sub Command4_Click()

Form5.Show

End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image4.Visible = True

End Sub

Private Sub Command5_Click()

Form5.Show

End Sub

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image5.Visible = True

End Sub

بالنسبة للسؤال الثاني شلون مافهمت علما بأني ماافهم شي في الفيجول

علوم حاسوب كتب:

أختي ممكن الشرح بالتفصيل لأني مبتأدة كتبت الكود ماطلع ليي

' أولا انا اسمي Omani اي عماني نسبة الى وطني سلطنة عمان .... في النهاية أنا رجل :D للتوضيح فقط

تابع الشرح هنا

Private Sub Command1_Click()

' يتم تنفيذ هذا الكود عند النقر على الزر Command1 والنقر تعني الضغط على الزر

Form2.Show

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

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

Image1.Visible = True

End Sub

Private Sub Command2_Click()

Form3.Show

End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Visible = True

End Sub

Private Sub Command3_Click()

Form4.Show

End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image3.Visible = True

End Sub

Private Sub Command4_Click()

Form5.Show

End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image4.Visible = True

End Sub

Private Sub Command5_Click()

Form5.Show

End Sub

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image5.Visible = True

End Sub

بالنسبة للسؤال الثاني شلون مافهمت علما بأني ماافهم شي في الفيجول

لترى التأثير في كود تمرير الماوس على الزر استخدم هذا الكود .... فقط لاغراض التدريب

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)


if (Image1.Visible = True) then 
   Image1.Visible = False
else
Image1.Visible = True
end if

End Sub

تحياتي

ألف شكر لك أخينا عماني

عملت الأكواد ماطلع ليي

Private Sub Command1_Click()

Form2.Show

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If (Image1.Visible = True) Then

Image1.Visible = False

Else

Image1.Visible = True

End If

End Sub

Private Sub Command2_Click()

Form3.Show

End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If (Image2.Visible = True) Then

Image2.Visible = False

Else

Image2.Visible = True

End If

End Sub

Private Sub Command3_Click()

Form4.Show

End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If (Image3.Visible = True) Then

Image3.Visible = False

Else

Image3.Visible = True

End If

End Sub

Private Sub Command4_Click()

Form5.Show

End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If (Image4.Visible = True) Then

Image4.Visible = False

Else

Image4.Visible = True

End If

End Sub

Private Sub Command5_Click()

Form5.Show

End Sub

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If (Image5.Visible = True) Then

Image5.Visible = False

Else

Image5.Visible = True

End If

End Sub

Private Sub Command6_Click()

Form6.Show

End Sub

Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If (Image6.Visible = True) Then

Image6.Visible = False

Else

Image6.Visible = True

End If

End Sub

Private Sub Command7_Click()

Form

End Sub

Private Sub Command7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If (Image7.Visible = True) Then

Image7.Visible = False

Else

Image7.Visible = True

End If

End Sub

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

يعني click and mousemove