Name des OptionButtons bei Mausklick ausgeben
14.11.2008 11:25:00
S.
ich habe eine Userform, die einen Rahmen enthält, der mit einer variablen Anzahl von Optionbuttons automatisch bestückt wird (Set TextBox, Set OptionButton). Bei Anklicken eines Optionbuttons soll der die Nummer des Optionsbuttons in einer Textbox auf derselben Userform erscheinen.
Mit dem nachfolgenden Code für ein Klassenmodul funktioniert das auch, aber eben nur, wenn die OptionButtons manuell auf der UserForm platziert wurden, sobald ich die Set OptionButton-Routine verwende, erhalte ich keine Rückmeldung.
Im Klassenmodul:
Option Explicit
Public WithEvents OpB As MSForms.OptionButton
Private Sub OPB_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MsgBox OpB.Name
End Sub
_________________________________________________________________
In der Userform:
Option Explicit
Dim varOB() As New clsControls
Private Sub userfomr_Initialize()
Dim L As Integer
Dim ctrl As MSForms.Control
Dim objOB As MSForms.OptionButton
For Each ctrl In Me.Controls
Select Case TypeName(ctrl)
Case "OptionButton"
ReDim Preserve varOB(L)
Set varOB(L).OpB=ctrl
L=L+1
End Select
Next
End Sub
Wie löse ich dieses Problem?
Danke vorab.
Stephan
Anzeige