Multipage Userform und Klassenmodul
08.05.2013 10:04:26
Peter
ich habe ein Problem mit meinem (ersten) Mulitpage-Userform.
Ich möchte eine Multipage in einem Userform mit gleichartigen Buttons füllen, welche ihr Funktion aus der Klasse CB_Rueck erhalten:
'==========================================================
'UserForm
'==========================================================
Option Explicit
Public m_RL_TB As New CB_Rueck
Private Sub UserForm_Activate()
Dim RLTB As Control 'MSForms.ToggleButton
Dim intAbstand As Integer
Dim MP_i As Integer
Dim Sch_i As Integer
Dim Left_Shift As Integer
intAbstand = 20
For MP_i = 1 To 20 'Schleife zum Durchlaufen der einzelnen Multipage Pages
For Sch_i = 1 To 34
If Sch_i > 17 Then
Left_Shift = 135
Else
Left_Shift = 0
End If
If RL_But_arr(Sch_i, MP_i) = 1 Then
Set RLTB = RL_SL_List.RL_MP.Pages.Item(MP_i-1).Controls.Add("Forms.ToggleButton.1", " _
cntBut" & Sch_i, True)
With RLTB
.Left = 15 + Left_Shift
.Top = intAbstand * (Sch_i Mod 17) - 5
.Width = 120
.Height = 18
.Caption = Tabelle01.Cells(Sch_i + 3, 2).Value & " " & Tabelle01.Cells(Sch_i + 3, 3) _
.Value
.Tag = Sch_i
.FontSize = 9
.Font.Bold = True
End With
Set Me.RL_MP.Pages.Item(MP_i - 1).m_RL_TB(Sch_i).c_RL_TB = Me.RL_MP.Pages.Item(MP_i - 1) _
.RLTB
End If
Next Sch_i
Next MP_i
End Sub
'==========================================================
'Klassenmodul
'==========================================================
Option Explicit
Public WithEvents c_RL_TB As MSForms.ToggleButton
Private Sub c_RL_TB_Click()
MsgBox "Das klappt"
End Sub
Wenn ich den Code aber ausführe, dann erhalte ich immer "Laufzeitfehler 438. Objekt unterstützt diese Eigenschaft nicht" Ich bin langsam echt am verzweifeln, denn wenn ich das gleiche Vorhaben im Userform selbst anwende, funktioniert meine Variante bestens... Was muss ich bei Multipages anders machen? Ich habe die vom Debugger angemahnte Stelle im Code markiert.
Vielen Dank schon mal im Voraus!
VG Peter