label ve buton

[zulfuernek]

elimde bir buton ve 40 adet label var.
butona basınca 40 adet labele "a" harfi yazmalı
tekrar basınca "b" yazmalı.

 

[işsiz123]

1 kere tıklayınca "a" çift tıklayınca "b" yazıyor

Private Sub CommandButton1_Click()
Dim nesne As Control
For Each nesne In Me.Controls
    If TypeName(nesne) = "Label" Then
        nesne.Caption = "a"
    End If
Next

End Sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim nesne As Control
For Each nesne In Me.Controls
    If TypeName(nesne) = "Label" Then
        nesne.Caption = "b"
    End If
Next
End Sub

 

[zulfuernek]

işsiz hocam yanlış olmuş.

dediğiniz gibi tıklayınca yapıyor evet ama tüm labelleri yapıyor. benim istediğim 25 ve 64 arasındaki labelleri yapması


bir defa tıklayınca "a" ikinci TEK tıklamada ise "b" yazması

 

[Asri]

işsiz hocam yanlış olmuş.

dediğiniz gibi tıklayınca yapıyor evet ama tüm labelleri yapıyor. benim istediğim 25 ve 64 arasındaki labelleri yapması


bir defa tıklayınca "a" ikinci TEK tıklamada ise "b" yazması

Sayın İşsiz, doğru yapmış. Siz soruyu yanlış sormuşsunuz
Soruda 25-64 arası olacak diye bir bilgi göremedim.

 

[zulfuernek]

pardon 40 adet label yazmışım

daha fazla label var ama ben 25-64 arası 40 tane için söylemiştim.özür dilerim.
25-64 arası olacak

 

[işsiz123]

Keşke Başta label aralığını verseydiniz:kafa:

Private Sub CommandButton1_Click()


For i = 25 To 64
If Controls("Label" & i).Caption = "b" Then
    Controls("Label" & i).Caption = "a"
      Else
    Controls("Label" & i).Caption = "b"
        End If
Next


End Sub