Menampilkan Multiple Checkbox pada Satu Label

Halo semua , selamat siang :) Kali ini saya akan membagikan tutorial tentang menampilkan multiple checkbox pada satu label . Ngerti maksutnya??? Kalo gak ngerti ini cuplikan gambarnya :

Nahhh , jadi kita membuat pilihan hari dengan menggunakan checkbox di Visual Basic 6 . Dan menampilkannya pada suatu label . Sebenarnya ada Dua cara yang saya tahu . Menggunakan If Else dan Satu ini :D

namun ada teman teman yang mungkin tidak puas menggunakan If Else yang berkepanjangan ... Hehehehe , Jadi saya kasih cara untuk mempercepat . Oke langsung saja . Sebenarnya , hanya membutuhkan sebait code seperti ini :

[code]

Option Explicit

Private Sub cmdOK_Click()

Dim strInfo As String

strInfo = "Hari yang dipilih:"

If chkHari1 = vbChecked Then strInfo = strInfo & " senin"

If chkHari2 = vbChecked Then strInfo = strInfo & " selasa"

If chkHari3 = vbChecked Then strInfo = strInfo & " rabu"

If chkHari4 = vbChecked Then strInfo = strInfo & " kamis"

If chkHari5 = vbChecked Then strInfo = strInfo & " jumat"

If chkHari6 = vbChecked Then strInfo = strInfo & " sabtu"

lblInfo = strInfo

End Sub

[/code]

Ngerti tentang kode diatas ?? Kalo heker yang liat post ini pasti pada senyum dan berkata "Aalah , gw heker tau yang beginian" heheheh . karena disini saya ingin membagi informasi dan sekaligus belajar . Maka saya jelaskan satu persatu maksut dari kode diatas :)

Private Sub cmdOK_Click() : Ini adalah sebuah private sub dari sebuah button yang memiliki variabel cmdOk dan menggunakan procedure Click().

Dim strInfo As String : Ini adalah cara untuk mendeklarasikan sebuah Variable di Visual Basic , dengan cara Dim dan As .Maksut dari potongan code di samping adalah . Hei kamu , deklarasikan variabel bernama strInfo sebagai String.

strInfo = "Hari yang dipilih:": Maksutnya adalah , kita deklarasikan sebuah value yang dimasukkan kedalam variable strInfo .

If chkHari1 = vbChecked Then strInfo = strInfo & " senin": Maksut dari kode di samping adalah , Jika chkHari1 di centang Maka variabel strInfo ditambahkan string "Senin".

lblInfo = strInfo : Jadi kita set lblInfo adalah sebuah variabel dari sebuah Label . Valuenya sama dengan Variabel kita strInfo :)

 

Nahhh , jadinya nanti seperti ini gan :D

Simple kan :D , Nahh untuk sourcenya bisa download di bawah ini yaaa . Sekian artikel dari saya semoga bermanfaat dan semoga kita menjadi orang orang yang cerdas dan berguna :D Aminnn