Seite 1 von 1
Dialogbox - Buttons , inaktiv setzen
Verfasst: Sa, 13.11.2004 20:11
von mecki_45
Hallo zusammen,
ich möchte den "ENDE" -Button solange inaktiv lassen, bis das komplette Makro durchgelaufen ist.
Wie geht das?
Grüßle
Alex
Verfasst: Sa, 13.11.2004 23:01
von Stephan
Über die enabled-Eigenschaft:
Code: Alles auswählen
Public dia as object
Sub Main
oLib = DialogLibraries.getbyname("Standard")
dia = CreateUnoDialog(oLib.getByName("Dialog1"))
dia.execute()
End Sub
Sub deaktivieren
dia.getModel.getbyName("Commandbutton1").enabled = false
End Sub
Gruß
Stephan
Re: Dialogbox - Buttons , inaktiv setzen
Verfasst: Do, 18.11.2004 06:17
von Wolf
Hallo,
Auch ich habe eine Lösung.
Hier der Vorschlag.
Wenn Du einen Button erst dann aktivieren möchtest, wenn das Makro durchlaufen ist, kannst du die "Enabled"-Eigenschaft schon am Beginn des Programms auf False setzen.
Beispiel:
Code: Alles auswählen
Public dlgTest
Sub Start
Dim a as long
dlgTest = CreateUnoDialog(DialogLibraries.Standard.Test)
cmdEnde = dlgTest.getControl("Ende")
cmdEnde.Enabled = False
a=dlgTest.exexute()
.
.
.
dlgTest.dispose()
End sub
Sub Aktiviere_Endebutton
cmdEnde.Enabled = True
End sub
Viel Erfolg
Wolf