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


W Visual Basic 6.0 dodajesz TextBox do formularza i ma on nazwę
TextBox1
, a następnie kopiuję/wklejam ten TextBox do formularza i ponownie wklejam
TextBox1 (0)
TextBox1 (1)

Jak to zrobić w Visual Basic 2012 ???
Skopiuję/wklejam pole tekstowe i otrzymuję
Textbox1
Textbox2
?
Czy rozumiesz pytanie?

Próbowałem skopiować wklej
TextBox1
i otrzymałem
TextBox2

Kod, którego chcę użyć, polega na sprawdzeniu pól tekstowych pod kątem czegoś-
coś jak
Dim i as integer
For i=1 to 5
textbox(i).text="Anel"
Next

Zaproszony:
Anonimowy użytkownik

Anonimowy użytkownik

Potwierdzenie od:

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
Anonimowy użytkownik

Anonimowy użytkownik

Potwierdzenie od:

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.
Anonimowy użytkownik

Anonimowy użytkownik

Potwierdzenie od:

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

Aby odpowiedzieć na pytania, Zaloguj się lub Zarejestruj się