اداة list view - نسخة قابلة للطباعة

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  With ListView1.Columns
    .Add("Customer ID", 100) 'The text of column header and the column width
    .Add("Company Name", 100)
  End With
  Using con As New SqlClient.SqlConnection
     con.ConnectionString = "Data Source=localhost; Initial Catalog=Northwind; Integrated Security = True"
     Using cmd As New SqlClient.SqlCommand
        cmd.CommandText = "Select * From Customers"
        cmd.Connection = con
        con.Open()
        Dim da As New SqlClient.SqlDataAdapter(cmd)
        Dim ds As New DataSet
        da.Fill(ds, "tbl_Customer")
        Dim bs As New BindingSource
        bs.DataSource = ds
        bs.DataMember = "tbl_Customer"
        With ListView1
           For i As Integer = 0 To bs.Count - 1
              Dim lst As New ListViewItem
              With lst
                .Text = bs.Current("CustomerID").ToString
                .SubItems.Add(bs.Current("CompanyName").ToString)
              End With
             .Items.Add(lst)
             bs.MoveNext()
           Next
        End With
    End Using
  End Using
End Sub 