1. Alle Labels in rechter Spalte sollen zuerst unsichtbar sein
2. Dialog erscheinen
3. Nach jeweils 1 Sekunde soll jeweils ein Label wieder sichtbar sein.
4. Nachdem alle Labels wieder sichtbar sind, Dialog schliessen.
Hier ist der Code
Code: Alles auswählen
Sub Main
Call StartDialog
End Sub
Sub StartDialog
Dim n As Integer
Dim i As Integer
Dim MyDlg As Object
Dialoglibraries.Loadlibrary("Standard")
MyDlg = CreateUnoDialog(Dialoglibraries.Standard.Dialog1)
' alle OK-Label sind am Anfang unsichtbar
'MsgBox MyDlg.Model.dbg_Methods : Exit Sub
for i=8 to 14
MyDlg.getControl("Label" & i).Visible = False
next i
MyDlg.Execute()
For n=8 to 14
Wait (1000)
MyDlg.getControl("Label" & i).Visible = True
next n
Wait 1000
MyDlg.endExecute()
MyDlg.dispose() ' aus dem Speichern löschen
End Sub
Code: Alles auswählen
MyDlg.getControl("Label" & i).Visible = True
Ich bin dankbar für eure Hilfe