Controls in userform ansprechen
29.01.2016 08:33:13
Marc
ich habe folgendes Problem und bitte um Hilfe:
Hier generiere ich einen Haufen Togglebuttons in der Suerform WW_Start. Soweit so gut.
Private Sub UserForm_Initialize()
For i = 1 To 100
Set objToggleButton = WW_Start.Controls.Add("Forms.ToggleButton.1", , True)
With objToggleButton
.Height = Hoehe
.Width = Breite
End With
Next i
End Sub
allem die Events der Togglebutton zugreifen.
Habe dazu viel gelesen und auch Beispiele im Netz gefunden,
mit Textboxen bekomme ich es hin, mit Togglebuttons aber nicht.
Bitte um Hilfe.
Hier der textbox-Code der läuft:
Option Explicit
Private WithEvents mevt_TextBox As MSForms.TextBox
Private Sub UserForm_Initialize()
Set mevt_TextBox = Me.Controls.Add("Forms.TextBox.1", , True)
mevt_TextBox.Move 6, 6, 72, 18
End Sub
Private Sub mevt_TextBox_Change()
MsgBox "In der TextBox '" & mevt_TextBox.Name & _
"' wurde eine Eingabe gemacht!" & vbCr & _
"Text: " & mevt_TextBox.Text
End Sub