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
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
[b]schflaeche_einstellen[/b]
MyDlg.Execute()
MyDlg.Dispose()
end Sub
Sub schflaeche_einstellen
Back=MyDlg.GetControl("cbBack")
If MyDlg.Model.Step=1 then
[b]back.model.enabled=false[/b]
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]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[/code]
Gruß
Stephan