На форме имеются разные контролы. Добавим в рантайме 4 кнопки и
изменим у этих кнопок свойства Text и Tag значениями из файла.
Вариантов много. Один из них:
- Код: Выделить всё
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim B As Button
For i As Integer = 1 To 4
B = New Button
B.Name = "Name" & i.ToString
B.Location = New Point(10, 10 + B.Height * (i - 1))
AddHandler B.Click, AddressOf BClick
Me.Controls.Add(B)
Next
Test1()
End Sub
Private Sub BClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox(DirectCast(sender, Button).Tag)
End Sub
Private Sub Test1()
Dim Props() As String = Nothing
Dim SplitChars() As Char = New Char() {" "c, Chr(9)}
Dim Lines() As String = File.ReadAllLines("table.txt")
Dim B As Button = Nothing
Dim tmp() As Control = Nothing
For Each Line As String In Lines
Props = Line.Split(SplitChars, StringSplitOptions.RemoveEmptyEntries)
If Props.Length <> 3 Then MsgBox("Ошибка в структуре файла") : Exit Sub
tmp = Me.Controls.Find(Props(0), False)
If tmp.Length <> 0 Then
B = tmp(0)
B.Text = Props(1)
B.Tag = Props(2)
End If
Next
End Sub
End Class
Содержимое файла table.txt:
- Код: Выделить всё
Name1 Text1 tag1
Name2 Text2 tag2
Name3 Text3 tag3
Name4 Text4 tag4
Тестить буду позже. Результаты скажу...
Забыл посмотреть это сообщение