Hallo zusammmen,
ich habe eine feste Groupbox in der ich einmal Checkboxen und Radiobuttons per Code einfüge.
Die Checkboxen liefern mir die möglichen Baudraten, die Radiobuttons sollen mir kennzeichnen, welche Baudrate am Ende die Standardmäßige sein soll.
Soweit läuft auch alles bestens. Die Checkboxen und Radiobuttons werden erstellt und von den Radiobuttons kann immer nur einer der aktuelle sein.
Nun gibt es die Möglichkeit, dass nicht alle Checkboxen aktiviert sind. Die Radiobuttons sollen daher nur dort funktionieren, wo die Checkboxen ausgewählt wurden (also True sind).
Daher meine Frage: Wie kann ich die jeweilige Checkbox mit dem passenden Radiobutton "verknüpfen"?
Hier mal kurz mein Code für das Einfügen der Checkboxen und der Radiobuttons
' Die möglichen Baudraten anzeigen
Dim MöglicheBaudraten As String
MöglicheBaudraten = _
"2400|4800|9600|14400|19200|28800|38400|57600|115200"
Spalte = 0
Zeile = 1
For I = 0 To Split(MöglicheBaudraten, "|").Length - 1 ' IntCols
If Spalte > 4 Then
Zeile = Zeile + 1
Spalte = 0
End If
With Checkbox ' hier werden ihr die Eigenschaften gegeben
.FlatAppearance.BorderSize = 0
.FlatStyle = FlatStyle.Standard
'.ForeColor = Color.FromArgb(69, 69, 69)
.TextAlign = ContentAlignment.MiddleCenter
.AutoSize = True
.Appearance = Appearance.Button
.Font = New Font(Button.DefaultFont.FontFamily, 20)
'.AutoSizeMode = AutoSizeMode.GrowAndShrink
.BackColor = Color.Transparent ' Color.FromArgb(0, 192, 0)
.Text = Format(Val(CheckboxTexte(I)), "000000")
.Name = "CHKBAUD" & CheckboxTexte(I)
.Margin = New Padding(8, 8, 3, 3)
.Location = New Point(Spalte * 130 + 5, Zeile * 60 - 35)
End With
Me.CheckboxBaudrateGroupBox.Controls.Add(Checkbox) 'hier wird der
' Checkbox erzeugt (pa_01 ist flowlayoutlabel!)
Checkbox = New CheckBox
AddHandler Checkbox.CheckedChanged, AddressOf _
Zentralen_BausRate_Ändern
Spalte = Spalte + 1
Next I
' Die Radiobuttons für die Wahl der Standard Baudrate einfügen
Spalte = 0
Zeile = 1
For I = 1 To Split(MöglicheBaudraten, "|").Length
If Spalte > 4 Then
Zeile = Zeile + 1
Spalte = 0
End If
With RadioButton ' hier werden ihr die Eigenschaften gegeben
'.FlatAppearance.BorderSize = 0
.FlatStyle = FlatStyle.Standard
'.ForeColor = Color.FromArgb(69, 69, 69)
.TextAlign = ContentAlignment.MiddleCenter
.AutoSize = True
.Appearance = Appearance.Normal
.Font = New Font(Button.DefaultFont.FontFamily, 14)
'.AutoSizeMode = AutoSizeMode.GrowAndShrink
.BackColor = Color.Transparent ' Color.FromArgb(0, 192, 0)
.CheckAlign = ContentAlignment.MiddleCenter
.Text = " "
.Name = "ChkBoxStandardBaudrate" & I
' .Margin = New Padding(8, 8, 3, 3)
.Location = New Point(Spalte * 130 + 55, Zeile * 62)
.TabIndex = I
End With
Me.CheckboxBaudrateGroupBox.Controls.Add(RadioButton) 'hier wird
' der RadioButton erzeugt (pa_01 ist flowlayoutlabel!)
RadioButton = New RadioButton
'AddHandler RadioButton.CheckedChanged, AddressOf
' Zentralen_COMPort_Ändern
Spalte = Spalte + 1
Next IZur Info: Ich arbeite mit VB.NET 2010
Wäre echt klasse, wenn jemand von Euch mir helfen könnte.
Volker |
Forenübersicht Suchen Forumsregeln
Sie sind aktuell nicht angemeldet.
