Checkbox'er i VB6

[consilium]

Jobber med en form hvor jeg har 70 checkbox'er.

Det jeg ønsker å kunne vise hvor mange box'er brukeren har tikket av for i formen.

 

Jeg har navngitt checkbox'ene som FrCBx hvor x'en indikerer et tall fra 1 til 70.

 

Dette har jeg kommet opp med foreløpig:

Private Sub CountCheckboxes()

Dim count As Integer
Dim t As Integer

 For t = 1 to 70
If FrCB & t & .value = Checked Then	'Feil syntaks, men kommer ikke på noe annet
count = count + 1 
End If
 Next

counter.Caption = "" & count

End Sub

[Harald Staff]

En mulighet:

 

Private Sub Btn1_Click()

Dim t As Long

Dim Antall As Long

For t = 1 To 3

Antall = Antall + Me.Controls("FrCBx" & t).Value

'MsgBox Me.Controls("FrCBx" & i).Name & ": " & Me.Controls("FrCBx" & i).Value

Next

MsgBox Antall

End Sub

 

HTH. Beste hilsen Harald