1 2 3 4 5  ... Previous Next 

ListView: Populate a ListView reading with the datareader the SQLDatabase


This sample needs only a new form project. Used is the NorthWind DataBase.

Private Sub Form1_Load(ByVal sender As Object, ByVal e _
    As System.EventArgs) Handles MyBase.Load
        Me.ListView1.View = View.Details
        Me.ListView1.Columns.Add(New ColumnHeader)
        Me.ListView1.Columns(0).Text = "ID"
        Me.ListView1.Columns(0).Width = 20
        ListView1.Columns.Add(New ColumnHeader)
        ListView1.Columns(1).Text = "First Name"
        Me.ListView1.Columns(1).Width = 100
        Dim conn As New SqlClient.SqlConnection _
             ("Server=(Local); DataBase=Northwind;" & _
             "Integrated Security=SSPI")
        Dim rdrQuery As String = "SELECT FirstName, EmployeeID FROM Employees"
        Try
            conn.Open()
            Dim cmd As New SqlClient.SqlCommand(rdrQuery, conn)
            Dim rdr As SqlClient.SqlDataReader = cmd.ExecuteReader()
            While rdr.Read()
                Dim lVI As New ListViewItem(New String() _
                {rdr.GetInt32(1).ToString, rdr.GetString(0)})
                Me.ListView1.Items.Add(lVI)
            End While
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            conn.Close()
        End Try
End Sub

ListView: Create and remove a ListView dynamicly


This sample needs only a new windowsform project Friend WithEvents bt As New Button
Friend WithEvents lv As New ListView
Friend WithEvents ch1 As New ColumnHeader
Friend WithEvents ch2 As New ColumnHeader

Private Sub Form1_Load(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
  Dim lvi1 As ListViewItem = New ListViewItem(New String() {"1", "One"}, -1)
  Dim lvi2 As ListViewItem = New ListViewItem(New String() {"2", "Two"}, -1)
  Dim lvi3 As ListViewItem = New ListViewItem(New String() {"3", "Three"}, -1)
  Dim lvi4 As ListViewItem = New ListViewItem(New String() {"4", "Four"}, -1)
  Dim lvi5 As ListViewItem = New ListViewItem(New String() {"5", "Five"}, -1)
  lv.Columns.AddRange(New ColumnHeader() {ch1, ch2})
  lv.Items.AddRange(New ListViewItem() {lvi1, lvi2, lvi3, lvi4, lvi5})
  lv.Location = New System.Drawing.Point(10, 10)
  lv.Size = New System.Drawing.Size(150, 150)
  lv.TabIndex = 0
  lv.View = View.Details
  bt.Location = New System.Drawing.Point(10, 200)
  bt.Text = "Click Me"
  Controls.Add(lv)
  Controls.Add(bt)
End Sub
Private Sub bt_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles bt.Click
        lv.Items.RemoveAt(2)
        For i As Integer = 2 To lv.Items.Count - 1
            lv.Items(i).Text = CStr(CInt(lv.Items(i).Text) - 1)
        Next
End Sub

TreeView: As a menu to show forms


Showing a form using a treeview as the menu for that

Needs only a Treeview on a form (1) and two extra forms (2 and 3) Private Sub Form1_Load(ByVal sender As _
     System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() _
        {New System.Windows.Forms.TreeNode("MyForms", _
        New System.Windows.Forms.TreeNode() _
        {New System.Windows.Forms.TreeNode("Form2"), _
        New System.Windows.Forms.TreeNode("Form3")})})
        Me.TreeView1.SelectedImageIndex = -1
        Me.TreeView1.Nodes(0).Nodes(0).Tag = New Form2
        Me.TreeView1.Nodes(0).Nodes(1).Tag = New Form3
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.TreeViewEventArgs) _
    Handles TreeView1.AfterSelect
        If Not e.Node.Tag Is Nothing Then
            Dim frm As Form = DirectCast(e.Node.Tag, Form)
            frm.ShowDialog()
            frm.Dispose()
        End If
End Sub


TreeView: Vary tooltip by node


This example uses the treeview's GetNodeAt method figure out which node the mouse is over. It then set the tooltip to the text of the node.
Private Sub trvNorthWind_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles trvNorthWind.MouseMove
Dim nd As TreeNode

Try
Dim pt As New Point(e.X, e.Y)
nd = trvNorthWind.GetNodeAt(pt)
ToolTip1.SetToolTip(trvNorthWind, nd.Text)
Catch
ToolTip1.SetToolTip(trvNorthWind, "")
End Try
End Sub


TreeView from a DataTable


This sample needs only a Treeview on a form and paste this code

Public Class Form1
'Making of the sample table
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        dt.Columns.Add("ParentID")
        dt.Columns.Add("DetailId")
        dt.Columns.Add("Description")
        For i As Integer = 0 To 4
            For j As Integer = 0 To 4
                dt.LoadDataRow(New Object() {i.ToString, j.ToString, _
                ChrW(i + 65).ToString & ChrW(j + 65).ToString}, True)
            Next
        Next
'The actual Sample
        Dim t As TreeNode
        For i As Integer = 0 To dt.Rows.Count - 1
            Dim iprev As String
            If iprev <> dt.Rows(i)(0).ToString Then
                t = New TreeNode(dt.Rows(i)(0).ToString)
                TreeView1.Nodes.Add(t)
                iprev = dt.Rows(i)(0).ToString
            End If
            t.Nodes.Add(New TreeNode(dt.Rows(i)(1).ToString & _
            " " & dt.Rows(i)(2).ToString))
        Next
        TreeView1.ExpandAll()
    End Sub
End Class


1 2 3 4 5  ... Previous Next