Ja da..
Denne kode gennemgår alle checkbox'e på formen, og fortæller brugeren hvor mange der er checked.
Dim myControl As Control
Dim Checks As Integer = 0
For Each myControl In Me.Controls
If TypeOf myControl Is CheckBox Then
If DirectCast(myControl, CheckBox).Checked = True Then
Checks += 1
End If
End If
Next
MsgBox(Checks & " checkbox'e er checked :)", MsgBoxStyle.Information)
If TypeOf myControl Is CheckBox Then
Betyder simpelt at hvis myControl er af typen CheckBox, så skal den fortsætte.
Derefter checker den om den er checked, og lægger så én til variablen Checks.
Til sidst vises antal Checks i en MsgBox.
Håber det kan bruges. Ellers spørger du bare igen
Indlæg senest redigeret d. 17.07.2008 23:09 af Bruger #1927