Wednesday, 6 May 2015

Cara dari Listview ke Textbox VB.NET

 berikut adalah codingan agar ketika listview di double click maka isi dari listview tersebut pindah ke textbox.

Private Sub lvcm_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvcm.DoubleClick
      
  On Error Resume Next
        With lvcm
            txtkodecm.Text = .FocusedItem.Text
            txtnamacm.Text = .FocusedItem.SubItems(1).Text
            txtalamat.Text = .FocusedItem.SubItems(2).Text
            dttanggal.Text = .FocusedItem.SubItems(3).Text
            txtjeniskelamin.Text = .FocusedItem.SubItems(4).Text
            txtnohp.Text = .FocusedItem.SubItems(5).Text
            txtnamaortu.Text = .FocusedItem.SubItems(6).Text
            txthportu.Text = .FocusedItem.SubItems(7).Text
            txtkodeskul.Text = .FocusedItem.SubItems(8).Text
            txtjurusan.Text = .FocusedItem.SubItems(9).Text
            cmbsetelah.Text = .FocusedItem.SubItems(10).Text
            txtminat.Text = .FocusedItem.SubItems(11).Text
            cmbminat.Text = .FocusedItem.SubItems(12).Text
            txtreport.Text = .FocusedItem.SubItems(13).Text
        End With
        If txtjeniskelamin.Text = "Laki-laki" Then
            optlaki.Checked = True
        End If
        If txtjeniskelamin.Text = "Perempuan" Then
            optperempuan.Checked = True
        End If
        If txtminat.Text = "Ya" Then
            optya.Checked = True
        End If
        If txtminat.Text = "Ragu-ragu" Then
            optragu.Checked = True
        End If
        If txtminat.Text = "Tidak" Then
            opttidak.Checked = True
        End If



    End Sub

    End Sub
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

1 comment:

 

Network

Pesan

Semoga situs ini bermanfaat