Object spørgsmål i VB.Net
Jeg har 16 groupeboxes hvor der er 3 radiobuttons + en label i.som indholder listview widht og center format
I bunden har jeg en Trackbar. som skal justerer et listview,
alt efter hvilken groupbox der er valgt.
Denne kode kører fint.
Private Sub rbPick_Knapper(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbPick1.Click, rbPick9.Click, rbPick8.Click, rbPick7.Click, rbPick6.Click, rbPick5.Click, rbPick4.Click, rbPick3.Click, rbPick2.Click, rbPick16.Click, rbPick15.Click, rbPick14.Click, rbPick13.Click, rbPick12.Click, rbPick11.Click, rbPick10.Click, rbPick0.Click
Dim Knap As New RadioButton
Dim Ctl, CtlChoise As New Control
Knap = CType(sender, RadioButton)
GrpValg = CInt(Knap.Tag)
For Each Ctl In Me.Controls
If CInt(Ctl.Tag) = GrpValg And TypeOf Ctl Is GroupBox Then
Ctl.BackColor = Color.LightGreen
CtlChoise = Ctl
ElseIf TypeOf Ctl Is GroupBox Then
Ctl.BackColor = System.Drawing.SystemColors.Control
End If
Next
Ctl = Nothing
Dim ss As New Control
For Each ss In CtlChoise.Controls
If ss.Name = "lblSize" & GrpValg Then
lblTrackSize.Text = ss.Text
trackball.Value = CInt(ss.Text)
Exit For
End If
Next
CtlChoise = Nothing
ss = Nothing
End Sub
Men er det ikke muligt at sætte trackbar efter labelen
uden at sku igennem for Each løkken.
Nå jeg nu ved hvad label og groupbox der blivet klikket på
som noget i denne stil
Dim FixLabel as Label
FixLabel.Name = "lblSize" & Grpvalg
lblTrackSize.Text = FixLabel.Text
trackball.Value = CInt(FixLabel.Text)