从Listview到新的窗体中显示一行，并显示一个文本框 [英] Get a row from Listview into new form showing with a Textbox

问题描述

这是另一个问题:

我有两种形式.我的第一种形式是从数据库中获取信息，
在列表视图中显示.

我的第二个表单将成为V卡，但在我可以执行此操作之前，我想先将信息从form1的Listview获取到form2的Textbox中.

我想显示列表视图中的一行到文本框..有人知道我该怎么做吗?

我想要想要通过doubleclick事件来执行此操作，并且直到sofer我都拥有以下代码:

Here''s another question:

I have 2 forms. My first form is getting the info from my database,
showing in a Listview.

My second form will become a V-Card, but before i can do this I wanna get the info from the Listview of form1 into the Textbox in form2.

I want to show a row form the listview into the textbox.. is someone know how i can do this?

I wanna want to do this with a doubleclick event and i have the following code till sofar:

Private Sub lstRelaties_MouseDoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles lstRelaties.MouseDoubleClick


        frmVCard.txtVCard.Text = ""
        Dim FirstValue As Boolean = True
        Dim Cell As ListViewItem
        For Each Cell In lstRelaties.SelectedItems
            If Not FirstValue Then
                frmVCard.txtVCard.Text += ", "
            End If
            frmVCard.txtVCard.Text += Cell.ToString
            FirstValue = False
        Next

        'Dim rij As String = lstRelaties.FullRowSelect.ToString
        'frmVCard.txtVCard.Text = rij

        Dim resultaat As DialogResult
        'Een bevestiging om de V-Card te maken:
        resultaat = MsgBox("Wilt u de V-Card maken?", 36, "Maak V-Card")
        If resultaat = DialogResult.Yes Then

            frmVCard.Show()

        Else
            Exit Sub
        End If
    End Sub

我希望当我运行项目时有人能帮助我，我只会收到这样的文字:Listviewitem {rownumber}

thanx 谢谢！

I hope someone can help me out when i run my project i only get text saying: Listviewitem {rownumber}

thanx Thanks!

推荐答案

只需更改此行:

Just change this line:

frmVCard.txtVCard.Text += Cell.ToString

对此:

to this:

frmVCard.txtVCard.Text += Cell.Text

尝试此

对于lstRelaties.SelectedItems
中的每个单元格 如果不是FirstValue，那么
frmVCard.txtVCard.Text + =，"
如果结束
frmVCard.txtVCard.Text + = Cell.Text
FirstValue = False
接下来

try this

For Each Cell In lstRelaties.SelectedItems
If Not FirstValue Then
frmVCard.txtVCard.Text += ", "
End If
frmVCard.txtVCard.Text += Cell.Text
FirstValue = False
Next

感谢您的帮助，我用以下代码自己解决了我的问题:

Thanx for help, i have solved my problem by myself with the following code:

rivate Sub lstRelaties_MouseDoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles lstRelaties.MouseDoubleClick



        If lstRelaties.SelectedItems.Count > 0 Then

            frmVCard.TextBox1.Text = lstRelaties.SelectedItems(0).SubItems(2).Text
            frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(3).Text
            frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(4).Text
            frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(5).Text
            frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(6).Text
            frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(7).Text
            frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(8).Text
            frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(9).Text
            frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(10).Text
            frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(11).Text

        End If

        frmVCard.Show()

    End Sub

这篇关于从Listview到新的窗体中显示一行，并显示一个文本框的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！