| |
VB.NET - Ein- und UmsteigerRe: 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 |
|
|
sevAniGif (VB/VBA)
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 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
|
|