checkbox ve for each

[bunalthe]

for each dongusu ile form üzerinde kac checkbox oldugunu saydırabiliyorum ama checked ozelliği true olan checkbox nesnelerini nasıl saydıracaımı birtürlü bulamadım...

[CodeMania]

Proje Ekte...


Private Sub Command1_Click()
Text1.Text = "0"
Dim Control
For Each Control In Form1.Controls
If TypeOf Control Is CheckBox Then Text1.Text = Text1.Text + Control.Value
Next
End Sub

Private Sub Command2_Click()
Text2.Text = "0"
Dim Control
For Each Control In Form1.Controls
If TypeOf Control Is CheckBox Then If Control.Value = False Then Text2 = Text2 + 1

Next
End Sub

Private Sub Command3_Click()
Text3.Text = ""
Dim Control
For Each Control In Form1.Controls
If TypeOf Control Is CheckBox Then Text3.Text = Text3.Text & Control.Value
Next
End Sub

Private Sub Command4_Click()
Command1_Click
Command2_Click
Command3_Click
End Sub

[bunalthe]

eyvallah cok saolasın

[CodeMania]

sende sağol