|
| |
VB.NET - Ein- und Umsteiger| Re: zur Laufzeit erzeugte Textbox | |  | | Autor: Bernd.zi | | Datum: 13.12.23 12:02 |
| ich bin dabei, das "Programm" von Manfred zu verstehen. Nach dem Motto "try and error" habe ich den Code stückchenweise zerlegt und jeweils etwas verändert. Was ich unten geschrieben habe, macht daher als Programm noch keinen Sinn. Zu der mit "-->" gekennzeichneten Stelle bitte ich um Hilfe
Public Class frmTest
Dim tbo(2) As TextBox
Dim txt(2) As String 'Array für die Übernahme der Text-Eigenschaft
Dim txtTest1 As TextBox
Dim WithEvents txtTest As New TextBox
Dim WithEvents cmdDatenÜbertragen As New Button
Private Sub frmTest_Load(sender As Object, e As EventArgs) Handles _
MyBase.Load
For i As Integer = 0 To 2
tbo(i) = New TextBox With
{.Parent = Me, .Top = 10 + i * 30, .Left = 10,
.Name = "tbo_" + i.ToString}
tbo(i).Text = "Person " & (i + 1).ToString
tbo(i).Tag = True 'Vorbelegung der Text-Eigenschaft notieren
tbo(i).BackColor = Color.LightGray
AddHandler tbo(i).KeyDown, AddressOf tbo_keydown
Next i
'drei Textboxen erstellen
txtTest = New TextBox With
{.Parent = Me, .Top = 100, .Left = 10, .Width = 200, .Name = "txtTest1"}
txtTest = New TextBox With
{.Parent = Me, .Top = 130, .Left = 10, .Width = 200, .Name = "txtTest2"}
txtTest = New TextBox With
{.Parent = Me, .Top = 160, .Left = 10, .Width = 200, .Name = "txtTest3"}
'Button erstellen
cmdDatenÜbertragen = New Button With
{.Parent = Me, .Top = 180, .Left = 10, .Width = 200, .Text = "Daten übertragen"}
End Sub
Private Sub cmdDatenÜbertragen_Click(sender As Object, e As EventArgs) Handles _
cmdDatenÜbertragen.Click
txt(0) = tbo(0).Text
Me.Text = txt(0)
txtTest.Text = txt(0)
--> hier soll der Inhalt aus dem array txt(0), der vorher über die TextBox tbo(0) eingegeben wurde, in die TextBox txtTest1 übertragen werden. Das kriege ich nicht hin.
End Sub
Private Sub tbo_keydown(sender As Object, e As KeyEventArgs)
'Referenz auf die geänderte Box
Dim tbo As TextBox = DirectCast(sender, TextBox)
'Textbox-Index aus dem Namen des Senders ermitteln
Dim index As Integer = tbo.Name.Split("_"c)(1)
If e.KeyCode = Keys.Return Then
'Notieren: Eingabe ist durch Return abgeschlossen
tbo.Tag = True
tbo.BackColor = Color.LightGray
Else
'Ist die Eingabe bereits abgeschlossen
If DirectCast(tbo.Tag, Boolean) Then
'Übernahme des aktuellen Wertes in Variable
txt(index) = tbo.Text
Me.Text = txt(index) 'Demo: Anzeige der Übernahme
tbo.Tag = False 'Eingabe als nicht abgeschlossen notieren
tbo.BackColor = Color.White
tbo.Text = "" 'übernommenen Wert löschen
End If
End If
End Sub
End Class | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevZIP40 Pro DLL 
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.
