Menggunakan checked listbox visual basic .net

Checked Listbox di gunakan pada saat menyimpan dengan banyak pilihan. sebagai contaoh di bawah ini adalah sebuah form unuk pengiriman surat keluar instansi, saat form di load maka semua calon daftar penerima akan muncul semua tinggal  kita cek instansi mana saja yang akan di kirim tinggal simpan maka semua data yang di cek akan masuk ke daftar tabel penerima.<br /> <br /> <div style="text-align: center;"> <br /></div> <div style="text-align: center;"> Gambar Checked Listbox</div> <div class="separator" style="clear: both; text-align: center;"> <a href="http://1.bp.blogspot.com/-vN2jepmR6wo/UsAdyElStOI/AAAAAAAAACY/Go6FFyos1P8/s1600/dokumenkeluarcheckedlistbox.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="231" src="http://1.bp.blogspot.com/-vN2jepmR6wo/UsAdyElStOI/AAAAAAAAACY/Go6FFyos1P8/s320/dokumenkeluarcheckedlistbox.png" width="320" /></a></div> <div style="text-align: center;"> <br /></div> <div style="text-align: center;"> <br /></div> berikut adalah kode untuk menyimpan pilihan-pilihan tersebut ke dalam tabel sebuah database.<br /> <br /> <script class="brush : vb" type="syntaxhighlighter"> Private Sub simpandaftarpengirim() Dim a As Integer Dim data As String For Each a In CheckedListBox1.CheckedIndices If CheckedListBox1.GetItemChecked(a) = True Then data = (CheckedListBox1.Items.Item(a)) data = Microsoft.VisualBasic.Left(data, 5) siapkoneksi() com = cn.CreateCommand() str = "insert into daftar_penerima_dokumen values('" & txtkode.Text & "','" & data & "')" com = New SqlCommand(str, cn) Try cn.Open() com.ExecuteNonQuery() Catch ex As Exception MsgBox("Kode kategori prihal Sudah Terpakai , Silahkan Generate Kode terlebih Dahulu") Finally cn.Close() End Try End If Next End Sub </script>

Menggunakan checked listbox visual basic .net

Checked Listbox di gunakan pada saat menyimpan dengan banyak pilihan. sebagai contaoh di bawah ini adalah sebuah form unuk pengiriman surat ...

Baca selengkapnya »