Dynamisches Hinzufügen von (Radio-) Optionbuttons zu dynymische GroupBox funktioniert nur halb?

Duster · 18. Oktober 2019, 17:04

Hallo liebe Leute

,

ich habe ein Problem mit dem Hinzufügen von dynamisch erstellten (Radio-) OptionButtons zu einer dynamisch erstellten GroupBox.

Wenn ich nur:

VB.NET-Quellcode

CtrlArr(14) = Ctrl.SetGroupBox("GrpMaterial", "Material", 20, 100, 280, 150, 1, CtrlArr(8))

ausführe wird ein RadioButton (Holz) hinzugefügt.

Wenn ich nur:

VB.NET-Quellcode

CtrlArr(14) = Ctrl.SetGroupBox("GrpMaterial", "Material", 20, 100, 280, 150, 1, CtrlArr(9))

ausführe wird ein RadioButton (Aluminium) hinzugefügt.

Führe ich beide Zeilen aus:

VB.NET-Quellcode

CtrlArr(14) = Ctrl.SetGroupBox("GrpMaterial", "Material", 20, 100, 280, 150, 1, CtrlArr(8))
CtrlArr(14) = Ctrl.SetGroupBox("GrpMaterial", "Material", 20, 100, 280, 150, 1, CtrlArr(9))

bzw versuche ich alle 5 RadioButtons hinzuzufügen (so wie sie im Array RadioNames stehen) wird kein einziger Button hinzugefügt

Könnt Ihr mir da weiterhelfen?

Hier der Code:

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
Dim RadioNames(0 To 4) As String
RadioNames(0) = "Holz"
RadioNames(1) = "Aluminium"
RadioNames(2) = "Glas"
RadioNames(3) = "Eisen"
RadioNames(4) = "Blei"
Dim CtrlArr(0 To 20) As Control
CtrlArr(0) = Ctrl.SetButton("CmdFunction", "Function", 350, 100, 30, 100)
CtrlArr(1) = Ctrl.SetButton("CmdSub", "Sub", 350, 180, 30, 100)
CtrlArr(2) = Ctrl.SetButton("CmdSubByRef", "Sub (ByRef)", 325, 260, 30, 150)
CtrlArr(3) = Ctrl.SetTextBox("TxtDurchmesser", " ", 20, 55, 80, 180, True)
CtrlArr(4) = Ctrl.SetTextBox("TxtErgebnisFunction", " ", 600, 100, 80, 200, False)
CtrlArr(5) = Ctrl.SetTextBox("TxtErgebnisSub", " ", 600, 180, 80, 200, False)
CtrlArr(6) = Ctrl.SetTextBox("TxtErgebnisSubByRef", " ", 600, 260, 80, 200, False)
CtrlArr(8) = Ctrl.SetRadioButton("Rdo" & String.Concat(RadioNames(0)), RadioNames(0), 50, 120, 40, 80, CtrlArr(14))
CtrlArr(9) = Ctrl.SetRadioButton("Rdo" & String.Concat(RadioNames(1)), RadioNames(1), 50, 130, 40, 80, CtrlArr(14))
CtrlArr(14) = Ctrl.SetGroupBox("GrpMaterial", "Material", 20, 100, 280, 150, 1, CtrlArr(8))
'CtrlArr(14) = Ctrl.SetGroupBox("GrpMaterial", "Material", 20, 100, 280, 150, 1, CtrlArr(9))
For Each i As Control In CtrlArr
Me.Controls.Add(i)
Next
End Sub
End Class

ControlService.vb

VB.NET-Quellcode

Imports System.ComponentModel
Imports System.Windows.Forms.Control
Public Class ControlService
#Region "BUTTON"
Public Function SetButton(pName As String, pText As String, pLeft As Integer, pTop As Integer,
pHeight As Integer, pWidth As Integer) As Control
Dim CmdButton = New Button
With CmdButton
.Name = pName
.Text = pText
.Left = pLeft
.Top = pTop
.Height = pHeight
.Width = pWidth
End With
'AddHandler CmdButton.Click, AddressOf CmdButton_Click
Return CmdButton
End Function
#End Region
#Region "TEXTBOX"
Public Function SetTextBox(pName As String, pText As String, pLeft As Integer, pTop As Integer,
pHeight As Integer, pWidth As Integer, pEnabled As Boolean) As Control
Dim TxtBox = New TextBox
With TxtBox
.Name = pName
.Text = pText
.Left = pLeft
.Top = pTop
.Height = pHeight
.Width = pWidth
.Enabled = pEnabled
End With
Return TxtBox
End Function
#End Region
#Region "GROUPBOX"
Public Function SetGroupBox(pName As String, pText As String, pLeft As Integer, pTop As Integer,
pHeight As Integer, pWidth As Integer, pBorderSyle As Integer, pControl As Control) As Control
Dim GrpBox = New GroupBox
With GrpBox
.Parent = Form1
.Name = pName
.Text = pText
.Left = pLeft
.Top = pTop
.Height = pHeight
.Width = pWidth
.Controls.Add(pControl)
End With
Return GrpBox
End Function
#End Region
#Region "LABEL"
Public Function SetLabel(pName As String, pText As String, pLeft As Integer, pTop As Integer,
pHeight As Integer, pWidth As Integer) As Control
Dim LblField = New Label
With LblField
.Name = pName
.Text = pText
.Left = pLeft
.Top = pTop
.Height = pHeight
.Width = pWidth
End With
Return LblField
End Function
#End Region
#Region "RADIOBUTTON"
Public Function SetRadioButton(pName As String, pText As String, pLeft As Integer, pTop As Integer,
pHeight As Integer, pWidth As Integer, pParent As Control) As Control
Dim RdoButton = New RadioButton
With RdoButton
.Parent = pParent
.Name = pName
.Text = pText
.Left = pLeft
.Top = pTop
.Height = pHeight
.Width = pWidth
End With
Return RdoButton
End Function
#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

Ich habe auch zur besseren Prüfung der kompletten Source angehängt!

Vielen Dank für Eure Mühe und Hilfe :!:

Best Regards,
Duster

VB1963 · 18. Oktober 2019, 17:14

Wieso willst du das dynamisch machen?

HenryV · 18. Oktober 2019, 17:40

Zu meinem Verständnis:
Du erstellst einen RadioButton und fügst diesen in den Array. (Zeile #27 vom Form_Load)
Du erstellst eine GroupBox, fügst den zuvor erstellten RadioButton in diese GrupBox und fügst diese GrupBox in den Array. (Zeile #31 vom Form_Load)
Dann fügst du den RadioButton auf die Form. (Zeile #36 vom Form_Load)
Dann fügst du die GroupBox, welche auch den RadioButton, der aber schon auf der Form ist, enthält, auf die Form. (Zeile #36 vom Form_Load) <- Wie soll das den gehen?

Duster · 18. Oktober 2019, 18:09

@HenryVStimmt ist ein wenig redundant

die Sache
Wie würdest Du das optimieren?

Bin halt noch Anfänger, hab mir gestern den Doberenz/ Gewinnus bestellt!!!!

@VB1963
Learning Purposes!

Viele Grüße,
Duster

VB1963 · 18. Oktober 2019, 18:30

Ich schlage dir vor, du machst das ganze über den Forms-Designer:
Füge zunächst eine GroupBox in die Form ein und anschließend 2 RadioButtons...
Dann schaust du dir den generierten Code im CodeBehind DeineForm.Designer.vb einmal an...

Duster · 18. Oktober 2019, 19:03

@VB1963
Generell wäre es wohl sinnvoll für jeden Typ eines Controls (Butto, Label, Radiobutton etc.) ein eigenes Array anzulegen um dann entscheiden zu können ob dieses Control einfach azf die Form oder zuerst in eine GroupBox und mit bzw. innerhalb dieses Containers auf die Form gelegt werden soll????!

Code behind. Ich hoffe ich hab das richtig gemacht;
- GroupBox erstellt
- 2 Radiobuttons reingelegt
- Im Projektmappen-Explorer "components AS IContainer" geöffnet

Code behind:

VB.NET-Quellcode

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Form1
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.RadioButton1 = New System.Windows.Forms.RadioButton()
Me.RadioButton2 = New System.Windows.Forms.RadioButton()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.RadioButton2)
Me.GroupBox1.Controls.Add(Me.RadioButton1)
Me.GroupBox1.Location = New System.Drawing.Point(499, 221)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(341, 200)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "GroupBox1"
'
'RadioButton1
'
Me.RadioButton1.AutoSize = True
Me.RadioButton1.Location = New System.Drawing.Point(29, 53)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(179, 31)
Me.RadioButton1.TabIndex = 0
Me.RadioButton1.TabStop = True
Me.RadioButton1.Text = "RadioButton1"
Me.RadioButton1.UseVisualStyleBackColor = True
'
'RadioButton2
'
Me.RadioButton2.AutoSize = True
Me.RadioButton2.Location = New System.Drawing.Point(29, 104)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(179, 31)
Me.RadioButton2.TabIndex = 1
Me.RadioButton2.TabStop = True
Me.RadioButton2.Text = "RadioButton2"
Me.RadioButton2.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(13.0!, 26.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(882, 453)
Me.Controls.Add(Me.GroupBox1)
Me.Font = New System.Drawing.Font("Arial", 13.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Margin = New System.Windows.Forms.Padding(5)
Me.Name = "Form1"
Me.Text = "TUTORIAL Methoden überladen"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents RadioButton2 As RadioButton
Friend WithEvents RadioButton1 As RadioButton
End Class

Zeile 33 und 34 die RadioButtons werden in die GroupBox eingefügt
Zeile 69 die GroupBox wird in die Form eingefügt.

Ist meine Schlussfolgerung für jeden Typ eines Controls ein eigenes Array anzulegen und dann das/ Control(s) entweder direkt auf die Form zu legen oder diese zuerst in einen Container, hier GroupBox einzufügen und dann auf die Form zu legen die richtige?

Viele Grüße,
Duster

VB1963 · 18. Oktober 2019, 19:19

Du kannst auch verschiedene Arten von Controls einen Container legen, wie du halt willst...

Duster · 18. Oktober 2019, 19:30

@VB1963
So jetzt werden die RadioButtons nicht mehr doppelt eingepflegt.
Aber es funktioniert trotzdem nicht!

Im Code Berhind wirds doch genauso gemacht!?

Ist die Frage so behämmert????

:huh:

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
Dim CmdArr(0 To 2) As Control
Dim TxtArr(0 To 3) As Control
Dim RdoArr(0 To 4) As Control
Dim GrpBoxArr(0 To 1) As Control
Dim RadioNames(0 To 4) As String
RadioNames(0) = "Holz"
RadioNames(1) = "Aluminium"
RadioNames(2) = "Glas"
RadioNames(3) = "Eisen"
RadioNames(4) = "Blei"
CmdArr(0) = Ctrl.SetButton("CmdFunction", "Function", 350, 100, 30, 100)
CmdArr(1) = Ctrl.SetButton("CmdSub", "Sub", 350, 180, 30, 100)
CmdArr(2) = Ctrl.SetButton("CmdSubByRef", "Sub (ByRef)", 325, 260, 30, 150)
TxtArr(0) = Ctrl.SetTextBox("TxtDurchmesser", " ", 20, 55, 80, 180, True)
TxtArr(1) = Ctrl.SetTextBox("TxtErgebnisFunction", " ", 600, 100, 80, 200, False)
TxtArr(2) = Ctrl.SetTextBox("TxtErgebnisSub", " ", 600, 180, 80, 200, False)
TxtArr(3) = Ctrl.SetTextBox("TxtErgebnisSubByRef", " ", 600, 260, 80, 200, False)
RdoArr(0) = Ctrl.SetRadioButton("Rdo" & String.Concat(RadioNames(0)), RadioNames(0), 50, 120, 40, 80, GrpBoxArr(0))
RdoArr(1) = Ctrl.SetRadioButton("Rdo" & String.Concat(RadioNames(1)), RadioNames(1), 50, 130, 40, 80, GrpBoxArr(0))
'CtrlArr(14) = Ctrl.SetGroupBox("GrpMaterial", "Material", 20, 100, 280, 150, 1, CtrlArr(7 + i))
GrpBoxArr(0) = Ctrl.SetGroupBox("GrpMaterial", "Material", 20, 100, 280, 150, 1, RdoArr(0))
GrpBoxArr(0) = Ctrl.SetGroupBox("GrpMaterial", "Material", 20, 100, 280, 150, 1, RdoArr(1))
'CtrlArr(8) = Ctrl.SetLabel("LblDurchmesser", "Durchmesser in (cm)", 15, 25, 50, 250)
For Each i As Control In CmdArr
Me.Controls.Add(i)
Next
For Each i As Control In TxtArr
Me.Controls.Add(i)
Next
For Each i As Control In GrpBoxArr
Me.Controls.Add(i)
Next
End Sub
End Class

VB1963 · 18. Oktober 2019, 20:07

Duster schrieb:

Im Code Berhind wirds doch genauso gemacht!?

Nein - da wird nichts mit dem ControlService gemacht...
Hier hast du ja schon Tipp's dazu bekommen

Duster · 18. Oktober 2019, 20:19

@VB1963
Natürlich nicht, ist ja mein Code.
Der soll funktionieren.
Ich glaube wir reden an einander vorbei oder meine Frage ist mißverständlich!!!!

Ich meinte ich vermeide die Redundanzen!

Viele Grüße,
Duster

Duster · 18. Oktober 2019, 21:03

Ich habs ich muss RdoArr als ganzes Array an die GrouBox Funktion übergebenn icht die einzelnen Elemente, sonst wird bei jedem Durchgang eine GroupBox mit EINEM RadioButton erstellt :thumbsup:

Best Regards,
Duster

RodFromGermany · 19. Oktober 2019, 09:28

@Duster Pack Deinen Code aus der Form_Load in die Form_Shown!
Wenn in der Form_Load eine Exception auftritt (nicht jede), wird das Laden der Form fortgesetzt und Du bekommst keine Information über diese Exception.

Duster · 19. Oktober 2019, 14:03

@'RodFromGermany
Vielen Dank, werd ich machen!

Viele Grüße,
Duster

Duster · 19. Oktober 2019, 16:03

@RodFromGermany
Ich hab den Code verschoben.
Nun bekomme ich aber eine Fehlermeldung wenn ich auf den Button"Function" klicke.
Diese wird bei der TxtBox ausgelöst.

Fehler: "Die Objektvariable oder die With-Block Variable" wurde nicht festgelegt.
D.H. Die TextBox "TxtDurchmesser" wird nicht gefunden.

Weißt Du wie ich den Fehler beheben kann?

Viele Dank für Deine Mühe vund Hilfe vorab!

VB.NET-Quellcode

Imports System.ComponentModel
Imports System.Windows.Forms.Control
Public Class ControlService
#Region "BUTTON"
Public Function SetButton(pName As String, pText As String, pLeft As Integer, pTop As Integer,
pHeight As Integer, pWidth As Integer) As Control
Dim CmdButton As New Button
Try
With CmdButton
.Name = pName
.Text = pText
.Left = pLeft
.Top = pTop
.Height = pHeight
.Width = pWidth
End With
AddHandler CmdButton.Click, AddressOf CmdFunction_Click
Catch ex As Exception
MsgBox("Fehler!" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
End Try
Return CmdButton
End Function
#End Region
#Region "TEXTBOX"
Public Function SetTextBox(pName As String, pText As String, pLeft As Integer, pTop As Integer,
pHeight As Integer, pWidth As Integer, pEnabled As Boolean) As Control
Dim TxtBox As New TextBox
Try
With TxtBox
.Name = pName
.Text = pText
.Left = pLeft
.Top = pTop
.Height = pHeight
.Width = pWidth
.Enabled = pEnabled
End With
Catch ex As Exception
MsgBox("Fehler" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
End Try
Return TxtBox
End Function
#End Region
#Region "GROUPBOX"
Public Function SetGroupBox(pName As String, pText As String, pLeft As Integer, pTop As Integer,
pHeight As Integer, pWidth As Integer, pBorderSyle As Integer, pControl() As Control) As Control 'pControl As Control
Dim GrpBox = New GroupBox
With GrpBox
.Parent = Form1
.Name = pName
.Text = pText
.Left = pLeft
.Top = pTop
.Height = pHeight
.Width = pWidth
For i = 0 To 4
.Controls.Add(pControl(i))
Next
End With
Return GrpBox
End Function
#End Region
#Region "LABEL"
Public Function SetLabel(pName As String, pText As String, pLeft As Integer, pTop As Integer,
pHeight As Integer, pWidth As Integer) As Control
Dim LblField = New Label
With LblField
.Name = pName
.Text = pText
.Left = pLeft
.Top = pTop
.Height = pHeight
.Width = pWidth
End With
Return LblField
End Function
#End Region
#Region "RADIOBUTTON"
Public Function SetRadioButton(pName As String, pText As String, pLeft As Integer, pTop As Integer,
pHeight As Integer, pWidth As Integer, pParent As Control) As Control
Dim RdoButton = New RadioButton
With RdoButton
.Parent = pParent
.Name = pName
.Text = pText
.Left = pLeft
.Top = pTop
.Height = pHeight
.Width = pWidth
End With
Return RdoButton
End Function
#End Region
#Region "EVENTS"
Sub CmdFunction_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Form1.TxtDurchmesser.Text = "Test"
Catch ex As Exception
MsgBox("Fehler beim Aufruf !" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
#End Region
End Class

VB.NET-Quellcode

Option Strict On
Public Class Form1
Friend Shared TxtDurchmesser As Object
Dim Ctrl As ControlService = New ControlService
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Dim k As Integer = 0
Dim FullControlArray(0 To 15) As Control
Dim CmdArr(0 To 2) As Control
Dim TxtArr(0 To 3) As Control
Dim RdoArr(0 To 4) As Control
Dim GrpBoxArr(0 To 1) As Control
Dim LblArr(0) As Control
Dim RadioNames(0 To 4) As String
RadioNames(0) = "Holz"
RadioNames(1) = "Aluminium"
RadioNames(2) = "Glas"
RadioNames(3) = "Eisen"
RadioNames(4) = "Blei"
CmdArr(0) = Ctrl.SetButton("CmdFunction", "Function", 350, 100, 30, 100)
CmdArr(1) = Ctrl.SetButton("CmdSub", "Sub", 350, 180, 30, 100)
CmdArr(2) = Ctrl.SetButton("CmdSubByRef", "Sub (ByRef)", 325, 260, 30, 150)
TxtArr(0) = Ctrl.SetTextBox("TxtDurchmesser", " ", 40, 55, 80, 180, True)
TxtArr(1) = Ctrl.SetTextBox("TxtErgebnisFunction", " ", 600, 100, 80, 200, False)
TxtArr(2) = Ctrl.SetTextBox("TxtErgebnisSub", " ", 600, 180, 80, 200, False)
TxtArr(3) = Ctrl.SetTextBox("TxtErgebnisSubByRef", " ", 600, 260, 80, 200, False)
For i = 0 To 4
RdoArr(i) = Ctrl.SetRadioButton("Rdo" & String.Concat(RadioNames(i)), RadioNames(i), 40, 40 + k, 40, 120, GrpBoxArr(0))
k = k + 45
Next
GrpBoxArr(0) = Ctrl.SetGroupBox("GrpMaterial", "Material", 40, 100, 280, 150, 1, RdoArr)
LblArr(0) = Ctrl.SetLabel("LblDurchmesser", "Durchmesser in (cm)", 35, 25, 50, 250)
For Each i As Control In CmdArr
Me.Controls.Add(i)
Next
For Each i As Control In TxtArr
Me.Controls.Add(i)
Next
For Each i As Control In GrpBoxArr
Me.Controls.Add(i)
Next
For Each i As Control In LblArr
Me.Controls.Add(i)
Next
End Sub
End Class

Best regards,
Duster

RodFromGermany · 19. Oktober 2019, 16:56

Duster schrieb:

VB.NET-Quellcode

Option Strict On

fehlt bei der Klasse ControlService.
Dann beschreib, was ich tun muss, um den Fehler zu reproduzieren.
====
Hab ich gefunden.

Duster schrieb:

VB.NET-Quellcode

Friend Shared TxtDurchmesser As Object

Zunächst solltest Du die Verwendung dieser Variable festlegen, ihr dann den richtigen Typ zuweisen (z.B. TextBox) und dann dieser Variable das korrekte Control zuweisen:

VB.NET-Quellcode

TxtDurchmesser = MY_TEXTBOX_1

Duster · 19. Oktober 2019, 17:47

@RodFromGermany
Hab den Fehler gefunden.
Ich muß die Textbox über Ihren ArrayIndex und nicht über Ihren Namen ansprechen.
Das werd ich noch ändern.

Vielen Dank für Deine Mühe und Hilfe.

Best Regards,
Duster

Dynamisches Hinzufügen von (Radio-) Optionbuttons zu dynymische GroupBox funktioniert nur halb?

Dynamisches Hinzufügen von (Radio-) Optionbuttons zu dynymische GroupBox funktioniert nur halb?

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Duster schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Duster schrieb:

VB.NET-Quellcode

Duster schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben