WinForms variable RadioButtons in GroupBox - wie gehts richtig ?

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von 3D_CAD.

    WinForms variable RadioButtons in GroupBox - wie gehts richtig ?

    Hallo zusammen,

    für ein CAD-Programm habe ich in einem VB.net Derivat (iLogic) einen Produktkonfigurator erstellt. Die Eingabemaske möchte ich nun zusätzlich in VB.net mittels WinForm umsetzen. Ziel ist es, dass andere Abteilungen Zugriff auf die Produktlogik erhalten, direkt sehen können welche Kombinationen möglich sind und im Idealfall eine Parameterausgabe zur Weitergabe erhalten welche ich gerne im CAD einlesen würde.

    Momentan geht es mir erstmal um die reine Umsetzung der Eingabemaske mit abhängigen Auswahloptionen, welche bedingt durch die Auswahl anderer Option zur Verfügung stehen sollen.

    Eine erste Machbarkeitsversion habe ich mir zurechtgewurschtelt :whistling: und wollte nun, bevor ich die komplexeren Zusammenhänge einbringe, fragen ob sich jemand erbarmt über mein Machwerk einmal drüber zu schauen. Ich kann mir vorstellen dass dort einiges an Verbesserungspotential schlummert oder es komplett falsch aufgezogen ist. Vor allem da dies ein einfacherer Konfigurator ist und einer mit wesentlich mehr Abhängigkeiten umgesetzt werden soll.

    Einmal der Code und einmal das vollständige Abhängikeitsmodell.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    3. Imports Microsoft.VisualBasic.ControlChars
    5. Public Class Form1
    6. Private Sub Konfigurator_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Call InitializeForm()
    8. End Sub
    10. #Region "Deklaration"
    12. Dim _Breite As String
    13. Dim _Version As String
    14. Dim _Anzahl As String
    15. Dim _Tiefe As String
    17. Private Const x01RadioButtons As Integer = 10
    18. Private Const y01RadioButtons As Integer = 20
    19. Private Const dyRadioButtons As Integer = 20
    21. Private rtb_Ausgabe As RichTextBox
    23. Private grb_Breite As GroupBox
    24. Private rb_Breite01 As RadioButton
    25. Private rb_Breite02 As RadioButton
    26. Private rb_Breite03 As RadioButton
    27. Private rb_Breite04 As RadioButton
    29. Private grb_Version As GroupBox
    30. Private rb_Version01 As RadioButton
    31. Private rb_Version02 As RadioButton
    33. Private grb_Tiefe As GroupBox
    34. Private rb_Tiefe01 As RadioButton
    35. Private rb_Tiefe02 As RadioButton
    36. Private rb_Tiefe03 As RadioButton
    37. Private rb_Tiefe04 As RadioButton
    38. Private rb_Tiefe05 As RadioButton
    39. Private rb_Tiefe06 As RadioButton
    41. Private grb_Anzahl As GroupBox
    42. Private rb_Anzahl06 As RadioButton
    43. Private rb_Anzahl07 As RadioButton
    44. Private rb_Anzahl08 As RadioButton
    45. Private rb_Anzahl09 As RadioButton
    46. Private rb_Anzahl10 As RadioButton
    47. Private rb_Anzahl11 As RadioButton
    48. Private rb_Anzahl12 As RadioButton
    49. #End Region
    51. Private Sub InitializeForm()
    52. grb_Breite = New System.Windows.Forms.GroupBox()
    53. rb_Breite01 = New System.Windows.Forms.RadioButton()
    54. rb_Breite02 = New System.Windows.Forms.RadioButton()
    55. rb_Breite03 = New System.Windows.Forms.RadioButton()
    56. rb_Breite04 = New System.Windows.Forms.RadioButton()
    58. grb_Version = New System.Windows.Forms.GroupBox()
    59. rb_Version01 = New System.Windows.Forms.RadioButton()
    60. rb_Version02 = New System.Windows.Forms.RadioButton()
    62. grb_Tiefe = New System.Windows.Forms.GroupBox()
    64. rtb_Ausgabe = New System.Windows.Forms.RichTextBox()
    66. Call FixeElemente()
    67. Call FixeAuswahl()
    68. Call VariableAuswahl()
    69. Call KonfiguratorForm()
    70. End Sub
    72. Private Sub FixeElemente()
    73. With rtb_Ausgabe
    74. .Location = New System.Drawing.Point(140, 17)
    75. .Name = "rtb_Ausgabe"
    76. .Size = New System.Drawing.Size(150, 200)
    77. .TabIndex = 7
    78. .Text = "Zusammenfassung"
    79. .ReadOnly = True
    80. End With
    81. End Sub
    83. Private Sub VariableAuswahl()
    84. Call AnzahlOptionen()
    85. Call TiefenOptionen()
    86. End Sub
    88. Private Sub FixeAuswahl()
    89. Call BreitenOptionen()
    90. Call VersionsOptionen()
    91. End Sub
    93. Private Sub BreitenOptionen()
    94. Dim IndexRadioButtons As Integer
    95. Dim y As Integer
    97. With grb_Breite
    98. .Location = New System.Drawing.Point(10, 10)
    99. .Size = New System.Drawing.Size(100, 105)
    100. .Text = "Breite"
    101. .Controls.Add(rb_Breite01)
    102. .Controls.Add(rb_Breite02)
    103. .Controls.Add(rb_Breite03)
    104. .Controls.Add(rb_Breite04)
    105. End With
    107. y = y01RadioButtons + IndexRadioButtons * dyRadioButtons
    108. With rb_Breite01
    109. .Location = New System.Drawing.Point(x01RadioButtons, y)
    110. .Name = "rb_Breite01"
    111. .Size = New System.Drawing.Size(67, 17)
    112. .Text = "Breite 01"
    113. AddHandler .CheckedChanged, AddressOf BreiteChanged
    114. End With
    116. IndexRadioButtons += 1
    117. y = y01RadioButtons + IndexRadioButtons * dyRadioButtons
    118. With rb_Breite02
    119. .Location = New System.Drawing.Point(x01RadioButtons, y)
    120. .Name = "rb_Breite02"
    121. .Size = New System.Drawing.Size(67, 17)
    122. .Text = "Breite 02"
    123. AddHandler .CheckedChanged, AddressOf BreiteChanged
    124. End With
    126. IndexRadioButtons += 1
    127. y = y01RadioButtons + IndexRadioButtons * dyRadioButtons
    128. With rb_Breite03
    129. .Location = New System.Drawing.Point(x01RadioButtons, y)
    130. .Name = "rb_Breite03"
    131. .Size = New System.Drawing.Size(67, 17)
    132. .Text = "Breite 03"
    133. AddHandler .CheckedChanged, AddressOf BreiteChanged
    134. End With
    136. IndexRadioButtons += 1
    137. y = y01RadioButtons + IndexRadioButtons * dyRadioButtons
    138. With rb_Breite04
    139. .Location = New System.Drawing.Point(x01RadioButtons, y)
    140. .Name = "rb_Breite04"
    141. .Size = New System.Drawing.Size(67, 17)
    142. .Text = "Breite 04"
    143. AddHandler .CheckedChanged, AddressOf BreiteChanged
    144. End With
    145. End Sub
    147. Private Sub VersionsOptionen()
    148. Dim IndexRadioButtons As Integer
    149. Dim y As Integer
    151. With grb_Version
    152. .Location = New System.Drawing.Point(10, 120)
    153. .Size = New System.Drawing.Size(100, 65)
    154. .Text = "Version"
    155. .Controls.Add(rb_Version01)
    156. .Controls.Add(rb_Version02)
    157. End With
    159. y = y01RadioButtons + IndexRadioButtons * dyRadioButtons
    161. With rb_Version01
    162. .Location = New System.Drawing.Point(x01RadioButtons, y)
    163. .Name = "rb_Version01"
    164. .Size = New System.Drawing.Size(75, 17)
    165. .Text = "Standard"
    166. AddHandler .Click, AddressOf VersionChanged
    167. End With
    169. IndexRadioButtons += 1
    170. y = y01RadioButtons + IndexRadioButtons * dyRadioButtons
    172. With rb_Version02
    173. .Location = New System.Drawing.Point(x01RadioButtons, y)
    174. .Name = "rb_Version02"
    175. .Size = New System.Drawing.Size(75, 17)
    176. .Text = "Hoch"
    177. AddHandler .Click, AddressOf VersionChanged
    178. End With
    179. End Sub
    181. Private Sub TiefenOptionen()
    182. Dim IndexRadioButtons, y As Integer
    184. rb_Tiefe01 = New System.Windows.Forms.RadioButton()
    185. rb_Tiefe02 = New System.Windows.Forms.RadioButton()
    186. rb_Tiefe03 = New System.Windows.Forms.RadioButton()
    187. rb_Tiefe04 = New System.Windows.Forms.RadioButton()
    188. rb_Tiefe05 = New System.Windows.Forms.RadioButton()
    189. rb_Tiefe06 = New System.Windows.Forms.RadioButton()
    191. y = y01RadioButtons + IndexRadioButtons * dyRadioButtons
    193. With rb_Tiefe01
    194. .Location = New System.Drawing.Point(x01RadioButtons, y)
    195. .Name = "rb_Tiefe01"
    196. .Size = New System.Drawing.Size(67, 17)
    197. .Text = "Tiefe 01"
    198. AddHandler .CheckedChanged, AddressOf TiefeChanged
    199. End With
    200. With rb_Tiefe03
    201. .Location = New System.Drawing.Point(x01RadioButtons, y)
    202. .Name = "rb_Tiefe03"
    203. .Size = New System.Drawing.Size(67, 17)
    204. .Text = "Tiefe 03"
    205. AddHandler .CheckedChanged, AddressOf TiefeChanged
    206. End With
    207. With rb_Tiefe05
    208. .Location = New System.Drawing.Point(x01RadioButtons, y)
    209. .Name = "rb_Tiefe05"
    210. .Size = New System.Drawing.Size(67, 17)
    211. .Text = "Tiefe 05"
    212. AddHandler .CheckedChanged, AddressOf TiefeChanged
    213. End With
    215. IndexRadioButtons += 1
    216. y = y01RadioButtons + IndexRadioButtons * dyRadioButtons
    217. With rb_Tiefe02
    218. .Location = New System.Drawing.Point(x01RadioButtons, y)
    219. .Name = "rb_Tiefe02"
    220. .Size = New System.Drawing.Size(67, 17)
    221. .Text = "Tiefe 02"
    222. AddHandler .CheckedChanged, AddressOf TiefeChanged
    223. End With
    224. With rb_Tiefe04
    225. .Location = New System.Drawing.Point(x01RadioButtons, y)
    226. .Name = "rb_Tiefe04"
    227. .Size = New System.Drawing.Size(67, 17)
    228. .Text = "Tiefe 04"
    229. AddHandler .CheckedChanged, AddressOf TiefeChanged
    230. End With
    231. With rb_Tiefe06
    232. .Location = New System.Drawing.Point(x01RadioButtons, y)
    233. .Name = "rb_Tiefe06"
    234. .Size = New System.Drawing.Size(67, 17)
    235. .Text = "Tiefe 06"
    236. AddHandler rb_Tiefe06.CheckedChanged, AddressOf TiefeChanged
    237. End With
    239. Select Case _Breite
    240. Case "Breite 01"
    241. SetTiefenOptionen({rb_Tiefe01, rb_Tiefe02})
    242. If Not rb_Tiefe02.Checked Then rb_Tiefe01.Checked = True
    243. Case "Breite 02"
    244. SetTiefenOptionen({rb_Tiefe03, rb_Tiefe04})
    245. If Not rb_Tiefe04.Checked Then rb_Tiefe03.Checked = True
    246. Case "Breite 03"
    247. SetTiefenOptionen({rb_Tiefe01, rb_Tiefe02})
    248. If Not rb_Tiefe02.Checked Then rb_Tiefe01.Checked = True
    249. Case "Breite 04"
    250. SetTiefenOptionen({rb_Tiefe05, rb_Tiefe06})
    251. If Not rb_Tiefe06.Checked Then rb_Tiefe05.Checked = True
    252. Case Else
    253. SetTiefenOptionen({rb_Tiefe01, rb_Tiefe02})
    254. End Select
    256. Controls.Add(grb_Tiefe)
    258. End Sub
    260. Private Sub SetTiefenOptionen(BtnsToAdd() As RadioButton)
    261. grb_Tiefe.AutoSize = False
    262. grb_Tiefe.Controls.Clear()
    264. For i As Integer = 1 To BtnsToAdd.GetUpperBound(0) + 1
    265. grb_Tiefe.Controls.Add(BtnsToAdd(i - 1))
    266. Next
    268. With grb_Tiefe
    269. .Location = New System.Drawing.Point(10, 190)
    270. .Size = New System.Drawing.Size(100, 65)
    271. .Name = "grb_Tiefe"
    272. .Text = "Tiefe"
    273. End With
    275. End Sub
    277. Private Sub AnzahlOptionen()
    279. End Sub
    281. Private Sub KonfiguratorForm()
    282. ClientSize = New System.Drawing.Size(310, 410)
    283. Controls.Add(grb_Breite)
    284. Controls.Add(grb_Version)
    285. Controls.Add(grb_Tiefe)
    286. Controls.Add(rtb_Ausgabe)
    287. End Sub
    289. Private Sub BreiteChanged(ByVal sender As Object, ByVal e As EventArgs)
    291. If rb_Breite01.Checked Then
    292. _Breite = "Breite 01"
    293. ElseIf rb_Breite02.Checked Then
    294. _Breite = "Breite 02"
    295. ElseIf rb_Breite03.Checked Then
    296. _Breite = "Breite 03"
    297. ElseIf rb_Breite04.Checked Then
    298. _Breite = "Breite 04"
    299. End If
    301. Call TiefenOptionen()
    302. Call Ausgabe()
    304. End Sub
    306. Private Sub VersionChanged(ByVal sender As Object, ByVal e As EventArgs)
    308. If rb_Version01.Checked Then
    309. _Version = "Standard"
    310. ElseIf rb_Version02.Checked Then
    311. _Version = "Hoch"
    312. End If
    314. Call Ausgabe()
    316. End Sub
    318. Private Sub TiefeChanged(ByVal sender As Object, ByVal e As EventArgs)
    320. If rb_Tiefe01.Checked Then
    321. _Tiefe = "Tiefe 01"
    322. ElseIf rb_Tiefe02.Checked Then
    323. _Tiefe = "Tiefe 02"
    324. ElseIf rb_Tiefe03.Checked Then
    325. _Tiefe = "Tiefe 03"
    326. ElseIf rb_Tiefe04.Checked Then
    327. _Tiefe = "Tiefe 04"
    328. ElseIf rb_Tiefe05.Checked Then
    329. _Tiefe = "Tiefe 05"
    330. ElseIf rb_Tiefe06.Checked Then
    331. _Tiefe = "Tiefe 06"
    332. Else
    333. _Tiefe = " "
    334. End If
    336. Call Ausgabe()
    338. End Sub
    340. Private Sub Ausgabe()
    341. Const unitLength As String = " mm"
    342. Const unitArea As String = " m²"
    343. Const unitUnitless As String = " "
    344. Const unitLengthTc As String = "[mm]"
    345. Const unitAreaTc As String = "[m²]"
    346. Const unitUnitlessTc As String = "[-] "
    348. rtb_Ausgabe.Text = "Zusammenfassung" & Lf & Lf &
    349. "Breite:" & Tab & _Breite & unitLength & Lf &
    350. "Version:" & Tab & _Version & Lf &
    351. "Tiefe:" & Tab & _Tiefe & unitLength
    352. End Sub
    354. End Class



    Jetzt schon einmal vielen Dank für eure Mühen


    Grüße

    3D_CAD
    Bilder

    • Entwurf_Konfigurator_01.png

      57,17 kB, 687×1.348, 76 mal angesehen

    So, drübergeschaut hab ich.
    Aber ausprobieren kann ich nix, und bei > 30 Zeilen kann man bei drüberschauen allenfalls sagen: "jo, sieht hübsch aus".
    Also wirklich drüberschauen könnte ich nur, wenn du eine lauffähige Solution zippst und anhängst - nur die Sources, Binaries bitte entfernen.

    Und von iLogic habich noch nie gehört, und mag ich mir auch nicht installieren - also deine Solution müsste ohne das lauffähig sein.

    Der Code lässt sich direkt in das Form1.vb eines neuen WinForms Projekt setzen und ist dann lauffähig.

    Mit iLogic hat der Code / das Ganze nichts weiter zu tun, war nur Tei meiner ausschweifenden Erläuterung.

    Anbei die hoffentlich lauffähige Solution
    Dateien

    Jo, für mich sieht das sehr abwegig aus. Ich würde das als typisiertes Dataset modellieren, mit den Tabellen Breite, Version, Tiefe.
    Zur Auswähl kämen Listboxen, Comboboxen oder Datagridview zum Einsatz.

    Wäre ein kompletter Rewrite, aber (für mich) ziemlich einfach.

    Dann wäre das Teil auf einer erprobten Technologie aufgebaut und exorbitant Ausmass erweiterbar.
    Hingegen wies derzeit ist, kommt man mittm Verständnis bereits jetzt an Grenzen - hab ich den Eindruck.
    Und ob das korrekt funktioniert?

    Etwa wenn ich Breite 01 eingestellt hab, dann stellt sich Tiefe 01 ein.
    Dann wechsel ich auf Tiefe 02.
    Wenn ich dann auf Breite 02 gehe, und danach auf Breite 01 zurückkehre - dann ist Tiefe wieder Tiefe 01 (wo ich vorher doch Tiefe 02 eingestellt hab).
    Ist das beabsichtigt?

    @3D_CAD Ich würde die RadioButton alle im Designer anlegen, dann brauchst Du nur 8 Stück.
    Neben der Umbenennung würde ich Dir die Property .Tag empfehlen, um beim Klicksen zu wissen, welche Kennung dahinter steckt.
    Was ist der Unterschied zwischen Breite 01 und Breite 03? Wenn bei diesen dieselben Tiefen angeboten werden, sollten sie untereinander stehen.
    @ErfinderDesRades Jou, die innere Logik erschließt sich mir nicht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke fürs anschauen.


    ... Ich würde das als typisiertes Dataset modellieren ...


    Das übersteigt leider meine derzeitigen (Un)Kenntnisse :huh:

    Prinzipiell funktioniert das bisher korrekt.

    Das CAD-seitige Formular habe ich in iLogic umgesetzt. Das ist eine eigene Implemtierung von Autodesk ins CAD-Programm zur Steuerung von Modellen etc. mit Syntax VB.net und einigen spezifischen Funktionen u.a. in der Verwendung innerhalb von Fomularen (Comboboxen lassen sich dort z.B. als Optionsfeldgruppe darstellen, was optisch meinen RadioButton-Gruppen entspricht). Dort passt alles und meine bisherige Umsetzung in WinForms verhält sich auch wie gewünscht.

    Tatsächlich wäre der Einsatz von Comboboxen auch meine erste Wahl und würde alles viel leichter machen, allerdings wünsche ich ein optische Durchgängigkeit, mit gleichzeitiger Ansicht aller wählbaren Optionen

    z.B. beim Wechsel Breite01 -> Breite02 steht weder die Option Tiefe01 noch Tiefe02 zur Verfügung. Daher wechselt er auf Tiefe03 als Standard Auswahl.

    Edit01:
    @ErfinderDesRades

    ... Wenn ich dann auf Breite 02 gehe, und danach auf Breite 01 zurückkehre - dann ist Tiefe wieder Tiefe 01 (wo ich vorher doch Tiefe 02 eingestellt hab).

    Ist das beabsichtigt? ...

    Sorry, falsch verstanden. Nein prinzipiell könnte auch die vorherige Auswahl dort drin stehen, allerdings Erstelle ich die RadioButtons momentan bei jeder einflussnehmenden Änderung neu. Zudem frage ich .Checked ab um einen Parameter zu setzen. Daher bin ich im Moment gezwungen zu resetten (sonst bliebe in der Ausgabe der Ursprünglich gesetzte Parameter stehen.


    @RodFromGermany

    ...Was ist der Unterschied zwischen Breite 01 und Breite 03? Wenn bei diesen dieselben Tiefen angeboten werden, sollten sie untereinander stehen. ...

    Es handelt sich um einen produktzentrischen Konfigurator. Die Logik des Produktaufbaus gibt vor das Breite 1 - 4 untereinander stehen.



    ... Ich würde die RadioButton alle im Designer anlegen, dann brauchst Du nur 8 Stück ...

    Ich habe den Fall, dass je nach Optionswahl eine unterschiedliche Anzahl an Radiobuttons benötigt werden. Siehe auch das Logikmodell oben. Ich habe noch mal eine um die Option Anzahl erweiterte Variante angehängt. Dort wird das Verhalten ersichtlich.
    Dateien

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „3D_CAD“ ()

Facebook
Telefonspende