|
| |
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 |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere Infos
|
| |
|
Copyright ©2000-2025 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
|
|
Sie sind aktuell nicht angemeldet.
