Связь для содержимого двух контролов - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Всем привет! Мужики, помогите решить задачу. В RTB1 есть список строк. В каждой новой строке записана фамилия и имя, например: Иванов Иван Петров Петр ... Задача. 1. Вывести в листбокс только фамилии. С этим проблем нет, через сплит откидываю имена и закидываю фамилии в листбокс. 2. Пользователь выбирает в листбоксе определенные фамилии (с помощью мультиселекта) и выбранные фамилии перекидываются в RTB2. Проблема в том, что к этим фамилиям нужно вернуть обратно имена, которые были откинуты через сплит. Как вернуть имена, которые были откинуты через сплит, не пойму?

Решение задачи: «Связь для содержимого двух контролов»

textual
Листинг программы
Public Class Form3
    Private fiInfo() As fi
    Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim n As Integer = TextBox1.Lines.Length
        ReDim fiInfo(n - 1)
        For i = 0 To n - 1
            fiInfo(i) = New fi(TextBox1.Lines(i))
        Next
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ListBox1.DataSource = fiInfo
        ListBox1.DisplayMember = "fami"
        ListBox1.ValueMember = "name"
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If ListBox1.SelectedItems.Count > 0 Then
            TextBox2.Clear()
            For Each ii As fi In ListBox1.SelectedItems
                TextBox2.Text &= ii.fami & " " & ii.name & vbCrLf
            Next
        End If
    End Sub
    Private Class fi
        Public Property fami As String
        Public Property name As String
        Public Sub New(ByVal f_n As String)
            Dim s() As String = f_n.Split(" "c)
            _fami = s(0)
            _name = s(1)
        End Sub
    End Class
End Class

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.667 из 5
Похожие ответы