Dialogbox - Buttons , inaktiv setzen

[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

[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

[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