2020年5月6日 星期三

vb.net Listview選中的資料 [Listview FocusedItem]


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Dim FechaInicio As Integer

    Dim FechaFinal As Integer

    Dim Monto As Double


    Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click


        FechaInicio = ListView1.FocusedItem.SubItems(0).Text

        FechaFinal = ListView1.FocusedItem.SubItems(1).Text

        Monto = ListView1.FocusedItem.SubItems(2).Text

        MsgBox(FechaInicio)

        MsgBox(FechaFinal)

        MsgBox(Monto)


    End Sub

沒有留言:

張貼留言