ListBox trong Visual Basic.NET 2008

Bên cạnh Combobox, ListBox là một thành phần không thể thiếu khi hiển thị dữ liệu từ CSDL lên WInform.
Làm chủ ListBox không khó, chỉ cần một chút sự chú ý, và sự linh hoạt trong thao tác, ta có thể làm chủ dễ dàng...

ví dụ:
Ta có CSDL như sau:


làm sao để hiển thị dữ liệu từ CSDL ra WInform:


Để hiển thị dữ liệu từ CSDL lên ListBox, tại Class ketnoi() ta làm như sau:

Code:

Public Shared Sub creat_listbox(ByVal LB As ListBox, ByVal st As String, ByVal field As String)
        Dim dt As New DataTable
        dt = xulySQL(st)
        LB.Items.Clear()
        Dim i
        For i = 0 To dt.Rows.Count - 1
            LB.Items.Add(dt.Rows(i).Item(field))
        Next
    End Sub

và tại form Load, ta dùng lệnh sau để load dữ liệu lên ListBox:

Code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ketnoi.creat_listbox(LBmasv, "select masv &'-'&hoten as maten from HOSOSV", "maten")
    End Sub

Như vậy ta đã có thể hiển thị dữ liệu từ CSDL lên Form:


Nhưng để thay đổi các giá trị TextBox khi click vào ListBox, tại phần Design của Form, ta click double vào ListBox để mở mục IndexChange..:

Code:

Private Sub LBmasv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBmasv.SelectedIndexChanged
        Dim ma As String
        Dim n As Integer
        Dim dt As New DataTable
        n = LBmasv.SelectedItem.ToString().IndexOf("-")
        ma = LBmasv.SelectedItem.ToString().Substring(0, n)
        dt = ketnoi.xulySQL("select * from HOSOSV where masv='" & ma & "'")
        If dt.Rows.Count > 0 Then
            masv.Text = dt.Rows(0).Item("masv")
            hoten.Text = dt.Rows(0).Item("hoten")
            ngaysinh.Text = dt.Rows(0).Item("ngaysinh")
            diachi.Text = dt.Rows(0).Item("diachi")
        End If
    End Sub

ở đây, tên ListBox của tôi là LBmasv, và đây là kết quả:


Phần Kết nối CSDL với Winform, các bạn tham khảo tại bài viết
[You must be registered and logged in to see this link.]

Chúc các bạn thành công.