OpenOffice.info

Verfasst: **Mo, 07.08.2006 16:05**

Hallo zusammen

Ich habe einen Dialog erstellt und für die Buttons wie weiter und zurück
einen Code aus den "StarbasicFAQ" verwendet

Code: Alles auswählen

Sub schflaeche_cbBack
Back=MyDlg.GetControl("Z")
MyDlg.Model.Step= MyDlg.Model.Step-1
If MyDlg.Model.Step=1 then
back.model.enabled=false
else
back.model.enabled=true
End if
End Sub

der soll ja nun den "Zurückbutton" (bei mir "Z") beim ersten step deaktivieren.

Des macht er auch aber erst wenn man von step 2 auf 1 zurückblätter
und nicht wenn man mit step 1 started.
Das heist man kann nach dem Start auf step 0 blättern.
Außerdem deaktiviert der code den Button auf dauer und er aktiviert sich auch net wieder wenn man auf step 2;3;4;... geht.

Bitte hilf mir jemand
THX im vorraus

Verfasst: **Mo, 07.08.2006 16:59**

Würdest Du bitte ganz einfach lesen was Michael schreibt, es ist nämlich exellent und ich könnte es auch nicht besser, nur Du mußt es halt lesen.

So wird der Dialog gestartet:
Sub CallDialog
DialogLibraries.LoadLibrary( "Standard" )
MyDlg = CreateUnoDialog( DialogLibraries.Standard.Dialog2 )
MyDlg.Model.Step=1
schflaeche_einstellen
MyDlg.Execute()
MyDlg.Dispose()
end Sub

Sub schflaeche_einstellen
Back=MyDlg.GetControl("cbBack")
If MyDlg.Model.Step=1 then
back.model.enabled=false
else
back.model.enabled=true
End if
Fore=MyDlg.GetControl("cbFore")
If MyDlg.Model.Step<2 then
Fore.model.enabled=true
else
Fore.model.enabled=false
End if
End sub

außerdem gibst dann noch den Code für die 2 Schaltflächen:

Code: Alles auswählen

Sub schflaeche_cbBack
    MyDlg.Model.Step=   MyDlg.Model.Step-1
    schflaeche_einstellen
End sub
Sub schflaeche_cbFore
    MyDlg.Model.Step=   MyDlg.Model.Step+1
    schflaeche_einstellen
End sub

Gruß
Stephan

Verfasst: **Mo, 07.08.2006 21:47**

Tschuldie

THX für den Hinweis
Wer lesen kann is halt doch klar im Vorteil

OpenOffice.info

[gelöst] Dialog Buttons sperren

[gelöst] Dialog Buttons sperren