שלום רב,
אני נתקעתי בקוד של ויזואל בייסיק אני מנסה להריץ את הקוד בקומפיילר של זיזואל בייסיק וזה לא עובד לי
האלגוריתם הוא כזה - אני שם 4 תמונות בחלון שם את האובייקט של התמונה וכל זה, ולאחר מכן משנה באמת את כל הפרוצדורות ושאני לוחץ על האובייקט הוא לא נעלם המטרה שלי היא שכשאני אלחץ על התמונה הראשונה אז היא תעלם ותופיע התמונה השניה וזה לא כל כך עובד לי
אם משהו מבין אז אני אשמח שיעזור לי
הנה הקוד:
Private Sub img_Dog01_Click()
img_Dog01.Visible = False
img_Dog02.Visible = True
End Sub
Private Sub img_Dog02_Click()
img_Dog02.Visible = False
img_Dog03.Visible = True
End Sub
Private Sub img_Dog03_Click()
img_Dog03.Visible = False
img_Dog04.Visible = True
End Sub
Private Sub img_Dog04_Click()
img_Dog04.Visible = False
img_Dog01.Visible = True
End Sub
Private Sub a_Click(Index As Integer)
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub Form_Load()
End Sub