Private Sub CommandButton1_Click()
Image1.Visible = True
Label1.Visible = True
End Sub
Private Sub CommandButton2_Click()
End
End Sub
Private Sub Image1_Click()
Image1.Visible = False
Image2.Visible = TrueLabel2.Visible = True
Label1.Visible = False
End Sub
Private Sub Image2_Click()
Image2.Visible = False
Image3.Visible = True
Label3.Visible = True
Label2.Visible = False
EndSub
При запуске программы на форме видны только кнопки
По щелчку на кнопке «Щёлкни меня», первый светофор и надпись к нему становятся видимыми.
Теперь нужно щёлкнуть по этому светофору: он станет невидимым, а следующий видимым, и т.д.
Достарыңызбен бөлісу: |