Jak dodać pole tekstowe (0) w programie Visual Basic 2012

Musisz narysować PIĘĆ pól tekstowych i JEDEN przycisk na formularzu
(1) zadeklaruj

Collection

na poziomie klasy,
(2) w przypadku

Form_Load

, dodaj swoje etykiety do

Collection

(3) Możesz uzyskać dostęp do wszystkich pól tekstowych za pomocą pętli

for

, jak pokazano na poniższym kodzie

Dim AL As New CollectionPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 AL.Add(TextBox1)

 AL.Add(TextBox2)

 AL.Add(TextBox3)

 AL.Add(TextBox4)

 AL.Add(TextBox5)

End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 Dim i As Integer

 For i = 1 To AL.Count

 AL(i).Text = "Hello"

 Next

End Sub

Najpierw utwórz listę z liczbą pól tekstowych, które chcesz zmienić i nazwij je w ładny sposób
- & > Przykład:
----- & > Mam trzy pola tekstowe o nazwach: „ttttaksa1”, „asiuhi2”, „EEFUGUYug3”
----- & > Umieściliśmy numer na końcu pola tekstowego, abyśmy mogli zadzwonić do każdego z nich
je według ich liczby
----- & > Teraz, gdy mamy 3 pola tekstowe, utworzymy listę ciągów z numerami naszych pól tekstowych: w tym przypadku: 3 liczby (uwaga: lista składa się z ŁAŃCUCHÓW!)
Lista będzie wyglądać następująco: Dim n as New List (of string) = ({"1", "2", "3"})
jeśli mamy na przykład 11 pól tekstowych, będzie to wyglądać tak:

Dim n jako nowa lista (ciągi) = ({"1", "2", "3", "4", "5", "6", "7", "8", "9", "10" ,"jedenaście"})

Teraz, jeśli chcesz na przykład zmienić tekst pierwszych dwóch pól tekstowych (ttttaska1 i asiuhi2), musisz to zrobić:

For Each textbox In Me.Controls For Each s As String In n If textbox.Name.ToString.EndsWith(n) Then

 'Do what you want to your textbox ex : textbox.text="Anel"

 textbox.forecolor=Color.Blue

 End If Next

 Next

Mam nadzieję, że to było pomocne i dziękuję: D
Teraz tworzę gry i sprzedaję je, czy chcesz do mnie dołączyć? facebook: Waterfull Idr
Powodzenia: D.

Dim textBoxTemp As TextBox

Dim stringData As StringFor index = 0 To 23

 stringData = ("txtBoxReal" & index)

 textBoxTemp = CType(Me.Controls(stringData), TextBox)

 textBoxTemp.Text = 0

Next