Mutipageseite 'enabled'
13.11.2003 11:24:54
toni
auf einer Multipage befinden sich drei Optionsbutton. Ich möchte nun erreichen, das alle weiteren Reiter(pages)ausser der zur Zeit aktiven Einstiegsseite 'enabled' werden, wenn der erste Optionsbutton angeklickt wird (Der Anwender darf also in diesem Fall die weiteren Seiten nicht aufrufen dürfen).
Nun meine Frage:
Ist das Anklicken des Optionsbuttons bereits ein Ereignis, mit dem ich die Reiter grau hinterlegen kann, wenn ja, wie?
Oder muss ich so lösen, dass ich das Optionsfeld über eine Schaltfläche aktiviere und über den Code der Schaltfläche die Reiter grau hinterlege.
Ohne Schaltfläche wäre mir lieber (Layout).
Der folgende Code lässt das Anklicken eines Reiters noch zu. Er wird erst später grau hinterlegt.
Private Sub MultiPage1_Change()
'LBgr5000 ist der Optionbutton, acker die nächste Multipageseite
If LBgr5000.Value = True Then
MsgBox (" Bitte benutzen Sie ..............")
MultiPage1.acker.Enabled = False
End If
End Sub
Das Ereignis MultiPage1_Change kommt hier wohl zu spät.
Ich hoffe Ihr könnt mir helfen.
Gruss Toni
Anzeige