wpf - 如何在代码中从列表视图中检索列项

Question

我是 wpf 的新手，正在参加 MCTS 考试。我已经搜索了 2 天关于如何在代码中检索行列项。通过创建结构并通过代码添加行项，我已经能够将数据插入到列表视图中。

Public Structure SimpleData
    Public Property Txt1 As String
        Get
            Return mTxt1
        End Get
        Set(value As String)
            mTxt1 = value
        End Set
    End Property
    Private mTxt1 As String
    Public Property Txt2 As String
        Get
            Return mTxt2
        End Get
        Set(value As String)
            mTxt2 = value
        End Set
    End Property
    Private mTxt2 As String
    Public Property Txt3 As String
        Get
            Return mTxt3
        End Get
        Set(value As String)
            mTxt3 = value
        End Set
    End Property
    Private mTxt3 As String
End Structure
Public Structure MyData
    Public Property Desc() As String
        Get
            Return m_Desc
        End Get
        Set(value As String)
            m_Desc = Value
        End Set
    End Property
    Private m_Desc As String
    Public Property Progress() As Integer
        Get
            Return m_Progress
        End Get
        Set(value As Integer)
            m_Progress = Value
        End Set
    End Property
    Private m_Progress As Integer
    Public Property ProgressText() As String
        Get
            Return m_ProgressText
        End Get
        Set(value As String)
            m_ProgressText = Value
        End Set
    End Property
    Private m_ProgressText As String
    Public Property Pic() As String
        Get
            Return m_Pic
        End Get
        Set(value As String)
            m_Pic = Value
        End Set
    End Property
    Private m_Pic As String
End Structure

Private Sub Button2_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button2.Click
    Dim sd As New SimpleData
    sd.Txt1 = "Today is"
    sd.Txt2 = "a good day"
    sd.Txt3 = "O YES!"
    listView1.Items.Add(sd)
End Sub

我希望能够检索 row(0).Item(0).ToString，这是如何在 win 表单中检索它。期待回应。提前致谢

Answer 1

            Dim constr As String = "Put your connection string here"
            Dim ds As New DataSet
            Dim con As New SqlClient.SqlConnection(constr)
            con.Open()
            Dim sqladap As New SqlClient.SqlDataAdapter("select * from tbl_Employee", con)
            sqladap.Fill(ds)

            For i As Integer = 0 To ds.Tables(0).Columns.Count - 1
                ListView1.Columns.Add(ds.Tables(0).Columns(i).ToString())
            Next
            For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
                Dim listRow As New ListViewItem
                listRow.Text = ds.Tables(0).Rows(i)(0).ToString()
                For j As Integer = 1 To ds.Tables(0).Columns.Count - 1
                    listRow.SubItems.Add(ds.Tables(0).Rows(i)(j).ToString())
                Next
                ListView1.Items.Add(listRow)
            Next

Read data  from Listview :

Dim name, room, subject, date, period As String
If listviewName.SelectedItems.Count > 0 then
    For i As Integer = 0 To listviewName.SelectedItems.Count - 1
        '*********** transfer selected data on declare String variable ************'
        name= listviewName.SelectedItems(i).SubItems(0).Text
        room = listviewName.SelectedItems(i).SubItems(1).Text
        subject = listviewName.SelectedItems(i).SubItems(2).Text
        date= listviewName.SelectedItems(i).SubItems(3).Text
        period= listviewName.SelectedItems(i).SubItems(4).Text
        '*********** delete **************'
        cmd1.Connection = MYSQLCON
        MYSQLCON.Open()
        cmd1.CommandText = "DELETE FROM tablename WHERE columnname = '" & name & "'"
        reader = cmd1.ExecuteReader
        MYSQLCON.Close()
   Next
End If

Answer 2

我通过将 listview 项转换为创建的结构 SimpleData 然后循环遍历它找到了答案

        Dim getitems = CType(listView1.SelectedItem, SimpleData)
        For Each mem In getitems.Txt1
            MsgBox(mem.ToString)
        Next