Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Event Klick auswerten, wenn Objekte als Array zur Laufzeit erzeugt wurden
Autor: Gerold_69
Datum: 05.09.24 15:56
Hallo Eine Textboxt zur Laufzeit erzeugt funktioniert so: Dim WithEvents textboxarray As System.Windows.Forms.TextBox Private Sub Button_Memory_Zahlen_Click(sender As Object, e As EventArgs) Handles Button_Memory_Zahlen.Click textboxarray = New System.Windows.Forms.TextBox With textboxarray .Location = New System.Drawing.Point(62, 121) .Name = "txtNeu" .Size = New System.Drawing.Size(50, 20) .Text = "00" .TabIndex = 0 .Visible = True End With Me.Controls.Add(textboxarray) End Sub Private Sub textboxarray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textboxarray.Click MsgBox(sender.Name) End Sub Das Klick Event reagiert korrekt. ----- Werden x Textboxen als Array erzeugt, werden Syntaxfehler angezeigt. Dim als Array(0 to99) Dim WithEvents textboxarray(0 to 99) As System.Windows.Forms.TextBox Durch "WithEvents" wird die Array Ergänzung "(0 to 99)" als Syntaxfehler angezeigt. Ohne "WithEvents" wird die Sub Private Sub textboxarray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textboxarray.Click mit Syntaxfehler angezeigt. Wie kann ich das Problem lösen? fg Gerold

Re: Event Klick auswerten, wenn Objekte als Array zur Laufzeit erzeugt wurden
Autor: Gerold_69
Datum: 05.09.24 17:33
Hab's gefunden. Im neuer Ereignis Sub ist hinten das "Handles textboxarray.Click" zu viel. Public Class Form1 Dim textboxarray(0 To 99) As System.Windows.Forms.TextBox Private Sub textboxarray_Click(ByVal sender As Object, ByVal e As System.EventArgs) MsgBox(sender.Name) 'Jeder Textbox wurde ein eigener Name zugewiesen. Dadurch weiß ich welche Textbox angeklickt wurde. Reicht für meine Zwecke. End Sub Private Sub Button_Memory_Zahlen_Click(sender As Object, e As EventArgs) Handles Button_Memory_Zahlen.Click Dim i As Byte For i = 0 To 4 textboxarray(i) = New System.Windows.Forms.TextBox With textboxarray(i) .Location = New System.Drawing.Point(62 + (i * 20), 121 + (i * 20)) .Name = "txtNeu" + CStr(i) .Size = New System.Drawing.Size(50, 20) .Text = "0" + CStr(i) .TabIndex = 0 .Visible = True AddHandler .Click, AddressOf textboxarray_Click End With Me.Controls.Add(textboxarray(i)) Next i 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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen