DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Check Box Control Array Problem

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Jan 2009

Posts: 13

Reputation: Ravi Kant is an unknown quantity at this point

Solved Threads: 1

Ravi Kant

Offline

Newbie Poster

Check Box Control Array Problem

Apr 8th, 2009

Private Sub Check1_Click()
If Check2.Value = 1 Then Check2.Value = 0
If Check3.Value = 1 Then Check3.Value = 0
If Check4.Value = 1 Then Check4.Value = 0
If Check5.Value = 1 Then Check5.Value = 0
If Check1.Value = 1 Then Text1.Text = Check1.Caption
If Check1.Value = 0 Then Text1.Text = ""
End Sub

I want to do the same with control Array :

My Code :

If Check1(Index) Then
Text1.Text = Check1(Index).Caption
Else
For k = 0 To Check1.Count
Text1.Text = ""
Check1(i).Value = 0
Next
End If

But I can not get the same result with this code. Plz help.

•

Join Date: Mar 2009

Posts: 912

Reputation: vb5prgrmr will become famous soon enough

Solved Threads: 167

vb5prgrmr

Offline

Posting Shark

Re: Check Box Control Array Problem

Apr 8th, 2009

You can save yourself a lot of time and code by using an array of option buttons instead of check boxes...

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Option1_Click(Index As Integer)
Text1.Text = Option1(Index).Caption
End Sub
Private Sub Option1_Click(Index As Integer)
Text1.Text = Option1(Index).Caption
End Sub