Hallo zusammen ,
ich habe ein kleines Problem mit der zuweisung dynamisch erstellter Controls an verschiedene Event. Genauer, ich erstelle 3 verschiedene Buttons (vergebe auch unterschiedliche Namen) und ein Click Event welches den String "Test" in eine dynamisch erstellte TextBox schreibt.
1.Wenn ich das so wie es im Qelltext steht mache müsste ich eine TextBox mit Namen TxtBox aus der ToolBox erstellen.
Bei einer dynamisch erzeugten TextBox funktioniert das nicht. Wie spreche ich die TxtBox korrekt an
2. Das Click-Event reagiert nur auf CmdButton, ich habe aber 3 Buttons mit unterschiedlichen Namen (CmdFunction, CmdSub, CmdSubByRef).
Wie ordne ich jedem der 3 Buttons ein anderes Click-Event zu
Form Load:
ControlService:
Vielen Dank für Eure Mühe und Hilfe vorab
Ich nutze VisualStudio 2019 Community Edition!
Den Quellcode habe ich im 77zip-Format angehängt.
Viele Grüße,
Duster
ich habe ein kleines Problem mit der zuweisung dynamisch erstellter Controls an verschiedene Event. Genauer, ich erstelle 3 verschiedene Buttons (vergebe auch unterschiedliche Namen) und ein Click Event welches den String "Test" in eine dynamisch erstellte TextBox schreibt.
1.Wenn ich das so wie es im Qelltext steht mache müsste ich eine TextBox mit Namen TxtBox aus der ToolBox erstellen.
Bei einer dynamisch erzeugten TextBox funktioniert das nicht. Wie spreche ich die TxtBox korrekt an
2. Das Click-Event reagiert nur auf CmdButton, ich habe aber 3 Buttons mit unterschiedlichen Namen (CmdFunction, CmdSub, CmdSubByRef).
Wie ordne ich jedem der 3 Buttons ein anderes Click-Event zu
Form Load:
VB.NET-Quellcode
- Option Strict On
- Public Class Form1
- Dim Ctrl As ControlService = New ControlService
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Ctrl.SetButton("CmdFunction", "Function", 350, 100, 30, 100)
- Ctrl.SetButton("CmdSub", "Sub", 350, 180, 30, 100)
- Ctrl.SetButton("CmdSubByRef", "Sub (ByRef)", 325, 260, 30, 150)
- Ctrl.SetTextBox("TxtBox_01", " ", 100, 100, 80, 200)
- End Sub
- End Class
ControlService:
VB.NET-Quellcode
- Imports System.ComponentModel
- Imports System.Windows.Forms.Control
- Public Class ControlService
- #Region "BUTTON"
- Public Sub SetButton(pName As String, pText As String, pLeft As Integer, pTop As Integer,
- pHeight As Integer, pWidth As Integer)
- Dim CmdButton = New Button
- With CmdButton
- .Name = pName
- .Text = pText
- .Left = pLeft
- .Top = pTop
- .Height = pHeight
- .Width = pWidth
- Form1.Controls.Add(CmdButton)
- End With
- AddHandler CmdButton.Click, AddressOf CmdButton_Click
- End Sub
- #End Region
- #Region "TEXTBOX"
- Public Sub SetTextBox(pName As String, pText As String, pLeft As Integer, pTop As Integer,
- pHeight As Integer, pWidth As Integer)
- Dim TxtBox = New TextBox
- With TxtBox
- .Name = pName
- .Text = pText
- .Left = pLeft
- .Top = pTop
- .Height = pHeight
- .Width = pWidth
- Form1.Controls.Add(TxtBox)
- End With
- End Sub
- #End Region
- #Region "EVENTS"
- Sub CmdButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
- Form1.TxtBox.Text = "Test"
- End Sub
- #End Region
- End Class
Vielen Dank für Eure Mühe und Hilfe vorab
Ich nutze VisualStudio 2019 Community Edition!
Den Quellcode habe ich im 77zip-Format angehängt.
Viele Grüße,
Duster