none
hitung jumlah checkbox RRS feed

Jawaban

  • bisa pake Me.getcheckme(Me)

    contoh

            Private Sub getcheckme(ByVal element As Control)
            Dim count As Integer
            count = 0
            If TypeOf element Is CheckBox Then
                If DirectCast(element, CheckBox).Checked = True Then
                    count += 1 'this will count the checked checkboxes
                    list.Add(element.Text) ' this will add the value of checkboxes into arraylist
                End If
            Else
                For Each childElement In element.Controls
                    Me.getcheckme(childElement)
                Next
            End If
            End Sub


    Kamis, 02 Juni 2016 01.40