Öğrencilerim için farklı işlevler içeren bir abaküs üzerinde çalışıyorum.
Yüzlük tablo üzerinde her buton için aşağıdaki gibi bir kodu yazıp düzenlemem gerekli. Ancak 100 butonun her biri için uzun bir iş ve bir süre sonra beyin sulandıran bir iş halini alıyor. Bu işi bir döngü ile halletmek mümkündür büyük ihtimalle. Ustalar ne der acaba.
Yardımlarınız için şimdiden teşekkürler.
Yüzlük tablo üzerinde her buton için aşağıdaki gibi bir kodu yazıp düzenlemem gerekli. Ancak 100 butonun her biri için uzun bir iş ve bir süre sonra beyin sulandıran bir iş halini alıyor. Bu işi bir döngü ile halletmek mümkündür büyük ihtimalle. Ustalar ne der acaba.
Yardımlarınız için şimdiden teşekkürler.
Kod:
Private Sub CommandButton1_Click()
sndPlaySound "c:\Varmısın\click.wav", 1
If CommandButton2.Visible = False Then
CommandButton1.Visible = False
CommandButton2.Visible = True
ElseIf CommandButton3.Visible = False Then
CommandButton1.Visible = False
CommandButton3.Visible = True
ElseIf CommandButton4.Visible = False Then
CommandButton1.Visible = False
CommandButton4.Visible = True
ElseIf CommandButton5.Visible = False Then
CommandButton1.Visible = False
CommandButton5.Visible = True
ElseIf CommandButton6.Visible = False Then
CommandButton1.Visible = False
CommandButton6.Visible = True
ElseIf CommandButton7.Visible = False Then
CommandButton1.Visible = False
CommandButton7.Visible = True
ElseIf CommandButton8.Visible = False Then
CommandButton1.Visible = False
CommandButton8.Visible = True
ElseIf CommandButton9.Visible = False Then
CommandButton1.Visible = False
CommandButton9.Visible = True
ElseIf CommandButton10.Visible = False Then
CommandButton1.Visible = False
CommandButton10.Visible = True
ElseIf CommandButton11.Visible = False Then
CommandButton1.Visible = False
CommandButton11.Visible = True
End If
End Sub