For döngüsüne ek kod ekleme ?

[Gorarr]

Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox", "ComboBox"
Nesne = ""
Nesne.BackColor = vbWhite
End Select
Next

Selamlar, bu koda iki ekleme yapmam gerekiyor ama bir türlü beceremedim. Yardımcı olabilirseniz çok sevinirim.

1- TextBox5 ve Combobox3'ü döngüden hariç tutmam gerekiyor

2- ToggleButton = False olayınıda eklemem gerekiyor.

Yardımlarınız için şimdiden teşekkürler....

 

[Mehmet Şahin]

Merhaba,
kodları aşağıdaki gibi deneyebilirsiniz. ToggleButton olayı nerede tetiklenmeli
belirtmemişsiniz. Kolay gelsin.

Dim Nesne As Control
For Each Nesne In Controls
    If Nesne.Name = "TextBox5" Or Nesne.Name = "ComboBox3" Then
    Else
        Select Case TypeName(Nesne)
        Case "TextBox", "ComboBox"
        Nesne = ""
        Nesne.BackColor = vbWhite
        End Select
    End If
Next

 

[Gorarr]

Private Sub CommandButton2_Click()
Dim Nesne As Control
For Each Nesne In Controls
If Nesne.Name = "TextBox5" Or Nesne.Name = "ComboBox3" Then
Else
Select Case TypeName(Nesne)
Case "TextBox", "ComboBox", "ToggleButton"
Nesne = ""
Nesne.BackColor = vbWhite
Nesne = False
End Select
End If
End Sub
Next

Hocam öncelikle çok teşekkür ederim. Yazdığınız koda kırmızı eklemeleri yaptığımda hata veriyor.

 

[Mehmet Şahin]

Merhaba,
o zaman bu şekilde;

Private Sub CommandButton1_Click()
Dim Nesne As Control
For Each Nesne In Controls
    If Nesne.Name = "TextBox2" Or Nesne.Name = "ComboBox2" Then
    Else
        Select Case TypeName(Nesne)
        Case "TextBox", "ComboBox"
        Nesne = ""
        Nesne.BackColor = vbWhite
        Case "ToggleButton"
        Nesne = False
    End Select
    End If
Next
End Sub

 

[Gorarr]

Hocam çok teşekkür ederim. Ellerinize sağlık süper oldu..

 

[Mehmet Şahin]

Rica ederim, iyi çalışmalar.