Optionsbutton abfragen
17.11.2005 11:29:13
ingo
Durch eine Schleife erzeuge ich eine Anzahl von zwei parralelen Optionsbutton, wobei der eine makiert ist der andere nicht. Mein Problem ist es, dass wenn ich jetzt nun das Häkchen weg mache (dann soll der parrallele optionsbutton ausgeblendet werden) der Button nicht ausgeblendet wird. Hat das was mit der "Sub" Form zu tun wo der code (für die Abfragung ob das Häkchen makiert ist oder nicht) drin steht?
Private Sub UserForm_Activate()
ReDim chbSichtbar(37)
ReDim chbUnsichtbar(37)
Dim lngA As Long
Dim wks As Worksheet
Dim sngHoehe As Single
sngHoehe = 25
Set wks = Worksheets("Triggersignal")
For lngA = 1 To 38 Step 1
If wks.Cells(4 + lngA, 3).Value <> "" Then
Set chbSichtbar(lngA) = Me.Controls.Add("Forms.Checkbox.1", "chbSichtbar" & CStr(lngA), True)
'erzeugen der sichbaren Button
chbSichtbar(lngA).Left = 35 'Wird einer von Ihnen angeklickt soll "sec1" sichtbar werden
chbSichtbar(lngA).Top = 25 + abst * 20
chbSichtbar(lngA).Height = 25
chbSichtbar(lngA).Width = 300
chbSichtbar(lngA).Caption = wks.Cells(4 + lngA, 2)
chbSichtbar(lngA).Font.Size = 10
chbSichtbar(lngA).Value = True
Set chbUnsichtbar(lngA) = Me.Controls.Add("Forms.Checkbox.1", "chbUnsichtbar" & CStr(lngA), True)
'Hier werden die unsichtbaren Button erzeugt
chbUnsichtbar(lngA).Left = 8
chbUnsichtbar(lngA).Top = 25 + abst * 20
chbUnsichtbar(lngA).Height = 25
chbUnsichtbar(lngA).Width = 13
chbUnsichtbar(lngA).Visible = False
abst = abst + 1
If chbSichtbar(lngA).Value = True Then
chbUnsichtbar(lngA).Visible = True
End If
Else
End If
Next
End Sub
Private Sub Click()
Dim lngA As Long
For lngA = 1 To UBound(chbSichtbar)
If chbSichtbar(lngA).Value = false Then
MsgBox "hah"
chbUnsichtbar(lngA).Visible = False
End If
Next
End Sub
Anzeige