Question

我有一个名为ListTxtDrawR4的列表框。每次选择一个项目时，我想在名称为TxtNumberListScan.Lines（i）的文本框中显示与索引对应的值。例如，如果我在ListTxtDrawR4中选择了第五行，我想在另一个文本框中显示TxtNumberListScan中第5行的值。我该怎么办？

 TxtTop10HighestResult.Text &= Environment.NewLine & TxtNumberListScan.Lines(TxtTop10HighestCount.Lines(0))
        TxtTop10HighestResult.Text &= Environment.NewLine & TxtNumberListScan.Lines(TxtTop10HighestCount.Lines(1))
        TxtTop10HighestResult.Text &= Environment.NewLine & TxtNumberListScan.Lines(TxtTop10HighestCount.Lines(2))
        TxtTop10HighestResult.Text &= Environment.NewLine & TxtNumberListScan.Lines(TxtTop10HighestCount.Lines(3))
        TxtTop10HighestResult.Text &= Environment.NewLine & TxtNumberListScan.Lines(TxtTop10HighestCount.Lines(4))
        TxtTop10HighestResult.Text &= Environment.NewLine & TxtNumberListScan.Lines(TxtTop10HighestCount.Lines(5))

Answer 1

控件名称已更改，以保护无辜者。（我看过Dragnet：-）

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'This is just some data to test with
    Dim A() As String = {"Mathew", "Mark", "Luke", "John"}
    Dim B() As String = {"Peter", "Paul", "James", "Judas"}
    ListBox1.Items.AddRange(A)
    For Each s In B
        TextBox1.Text &= s & Environment.NewLine
    Next
    TextBox1.Text.TrimEnd() 'Remove final new line
End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    Dim index As Integer = ListBox1.SelectedIndex
    'Check that the index does not exceed the number of lines.
    If index < TextBox1.Lines.Count Then
        Dim StringToCopy = TextBox1.Lines(index)
        TextBox2.Text &= StringToCopy & Environment.NewLine
    End If
End Sub

索引价目表VB.Net

1 个答案: