1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 

Option Strict On

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim colID As New DataGridViewTextBoxColumn
        Dim colDesc As New DataGridViewTextBoxColumn
        Dim ds As New DataSet
        Dim dt As New DataTable("MyTable")
        Dim r As DataRow

        dt.Columns.Add("ID", GetType(Integer))
        dt.Columns.Add("DESCRIPTION", GetType(String))

        ds.Tables.Add(dt)

        For i As Integer = 1 To 10
            r = ds.Tables(0).NewRow

            r.Item("ID") = i
            r.Item("DESCRIPTION") = "Desc" & i

            ds.Tables(0).Rows.Add(r)
        Next

        ds.Tables(0).AcceptChanges()

        Me.DataGridView1.DataSource = ds.Tables(0)
    End Sub

    Private Sub DataGridView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick

        If TypeOf e Is MouseEventArgs Then
            Dim meArgs As MouseEventArgs = CType(e, MouseEventArgs)

            ' 1 δες που έκανε διπλό click
            Dim htInfo As DataGridView.HitTestInfo = Me.DataGridView1.HitTest(meArgs.X, meArgs.Y)

            If htInfo.Type = DataGridViewHitTestType.Cell OrElse
                htInfo.Type = DataGridViewHitTestType.RowHeader _
            Then
                Dim curManager As CurrencyManager = CType(Me.DataGridView1.BindingContext(Me.DataGridView1.DataSource), CurrencyManager)
                Dim dRow As DataRow = CType(curManager.List(htInfo.RowIndex), DataRowView).Row ' 2 Πάρε το datarow

                If dRow.IsNull("ID") Then
                    ' Αν δεν κάνεις cancel θα προστεθεί μία γραμμή με null ID 
                    curManager.CancelCurrentEdit()
                    Return
                End If

                ' TODO 3 Δείξε το στην φόρμα σου
                MessageBox.Show(dRow.Item("ID").ToString & " " & dRow.Item("DESCRIPTION").ToString)
            Else
                Return
            End If
        End If

    End Sub
End Class

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 

' File Name: modListviewExtensions.vb

Option Strict On
Imports System.Runtime.CompilerServices

Namespace ListViewExtensions
    Friend Module ModListViewExtensions
        <Extension()>
        Friend Sub Fill(ByVal lv As ListView,
                        ByVal table As DataTable,
                        ByVal primaryKey As String,
                        ByVal fields() As String,
                        ByVal onFill As Action(Of Integer, ListViewItem))
            Dim strFieldValues(fields.Length - 1) As String
            Dim i As Integer
            Dim c As Integer
            Dim lst As ListViewItem

            lv.BeginUpdate()

            For Each r As DataRow In table.Rows
                For i = 0 To fields.Length - 1
                    strFieldValues(i) = CType(r.Item(fields(i)), String)
                Next

                ' Μπορείς να βάλεις το primary key sto tag 
                lst = New ListViewItem(strFieldValues) With {.Tag = CType(r.Item(primaryKey), Integer)}

                If Not onFill Is Nothing Then
                    c += 1
                    onFill(c, lst)
                End If

                lv.Items.Add(lst)
            Next

            lv.EndUpdate()
        End Sub
    End Module
End Namespace

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 

Option Strict On
Imports GridDoubleClick.ListViewExtensions ' Αν δεν το βάλεις αυτό δεν θα βρίσκει το extension.

Public Class Form1
    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Dim dt As New DataTable
        Dim r As DataRow

        dt.Columns.Add("ID", GetType(Integer))
        dt.Columns.Add("DESCRIPTION", GetType(String))
        dt.Columns.Add("SHORT_DESCRIPTION", GetType(String))
        dt.Columns.Add("DATE", GetType(DateTime))

        For i As Integer = 1 To 10000
            r = dt.NewRow

            r.Item("ID") = i
            r.Item("DESCRIPTION") = "Desc" & i
            r.Item("SHORT_DESCRIPTION") = "Short desc" & i
            r.Item("DATE") = Now

            dt.Rows.Add(r)
        Next

        dt.AcceptChanges()

        Me.ListView1.View = System.Windows.Forms.View.Details
        Me.ListView1.FullRowSelect = True
        Me.ListView1.GridLines = True

        Me.ListView1.Columns.Add("Short Description", 150)
        Me.ListView1.Columns.Add("Description", 150)
        Me.ListView1.Columns.Add("Sample Date", 150)

        ' Extension method
        Me.ListView1.Fill(dt,
                          "ID",
                          New String() {"SHORT_DESCRIPTION", "DESCRIPTION", "DATE"},
                          AddressOf onFill)

        dt.Dispose()
        dt = Nothing
    End Sub

    Private Sub onFill(ByVal i As Integer, ByVal lst As ListViewItem)
        If i Mod 2 = 0 Then
            lst.BackColor = Color.WhiteSmoke
        End If
    End Sub

    Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick
        MessageBox.Show("ID = " & Me.ListView1.SelectedItems(0).Tag.ToString)
    End Sub
End Class

1
2
3
4
5
6
7
8
9
 

   Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick
        Dim lst As ListViewItem = Me.ListView1.SelectedItems(0)

        MessageBox.Show("ID = " & lst.Tag.ToString &
                        " " & lst.SubItems(0).Text &
                        " " & lst.SubItems(1).Text &
                        " " & lst.SubItems(2).Text)

    End Sub