Menghitung jumlah control dalam 1 form

Pada kesempatan kali ini saya akan membahas tentang cara mengetahui berapa banyak control yang terletak pada form VB yang kita rancang.

Untuk pertama kali, silakan anda mendesain tampilan form seperti pada gambar berikut :

Nah, yang akan kita lakukan adalah mengetahui berapa jumlah BUTTON yang ada pada form tersebut.

Script yang akan kita gunakan untuk menghitung jumlah button tersebut akan kita letakkan pada form_load. berikut code lengkapnya :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim ctrl As Button

        Dim jum As Integer = 0
        For Each ctrl In Me.Controls
            jum += 1
        Next

        MsgBox(jum)
    End Sub

Saya akan menjelaskan koding diatas.
Dim ctrl As Button berfungsi untuk membuat variabel baru bernama ctrl dan objek yang akan kita cari adalah Button.

Dim jum As Integer = 0 adalah untuk membuat variabel penampung perhitungan dengan men-set nila awalnya adalah 0


sedangkan :
For Each ctrl In Me.Controls
      jum += 1 
Next

untuk melakukan perulangan sebanyak jumlah Button yang terdapa pada FORM.

Demikian tutorial ini, semoga teman-teman bisa memanfaatkannya pada kasus-kasus tertentu...

Jika ada pertanyaan, silakan tinggalkan komentar anda.
:)

Arly

♥ Beginilah cara saya berbagi ilmu, dengan merangkai kata dalam blog hingga engkaupun ikut tau...♥ by, ArLy Zai

Share this post