Multipage per Button aktivieren und anzeigen
04.01.2007 23:49:51
Anja
habe ein kleines Problem:
ich habe eine Multipage mit 2 Pages die ich mittels 2 Option-Button nur einzeln sichtbar machen möchte.
Problem an der ganzen Sache ist: wenn Button 1 aktiviert und Page 1 sichtbar ist und ich klick auf Button 2 sodass Page2 sichtbar wird, die Page 2 ist zwar sichtbar aber nicht aktiv (d.h. es ist nur eine graue Page zu sehen ohne die textboxen die da drauf sind). Nun meine Frage , wie aktivier ich die Page? Habe es mit select enabled und activate schon probiert aber es funzt nicht (in diesem Code mit enabled)
Hier mein dazugehöriger Code:
Private Sub smCXBox_Click()
If Form_Doku.MultiPage1.Pages(2).smCXBox.Value = True Then
Form_Doku.MultiPage1.Pages(2).MultiPage2.Pages(1).Visible = False
Form_Doku.MultiPage1.Pages(2).MultiPage2.Pages(0).Visible = True
Form_Doku.MultiPage1.Pages(2).MultiPage2.Pages(0).Enabled = True
Else
Form_Doku.MultiPage1.Pages(2).MultiPage2.Visible = False
End If
End Sub
Private Sub smG2Box_Click()
If Form_Doku.MultiPage1.Pages(2).smG2Box.Value = True Then
Form_Doku.MultiPage1.Pages(2).MultiPage2.Pages(0).Visible = False
Form_Doku.MultiPage1.Pages(2).MultiPage2.Pages(1).Visible = True
Form_Doku.MultiPage1.Pages(2).MultiPage2.Pages(1).Enabled = True
Else
Form_Doku.MultiPage1.Pages(2).MultiPage2.Visible = False
End If
End Sub