OpenOffice.info

Danke für die schnelle Antwort. Ich werde versuchen, mein Vorhaben zu realisieren.

Gruß

Tommy

Hi Stephan,
danke für Deine Antwort. Das, was du vorgeschlagen hast, ist nicht mein Vorhaben. Eigentlich hab ich folgendes vor, dass das jeweilige Label in der rechten Spalte erscheint, wenn die Sub-Routine, deren Name in der linken Spalte ist, fertig durchgeführt hat. Gehört die obige Beschreibung auch zum Ereignis, wenn ja dann könnte mein Vorhaben realisiert werden, oder?

Gruß

Tommy

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

MyDlg.getControl("Label" & i).Visible = True

Hi Leute, ich habe ein Dialog erstellt, das mit 2 Spalten beinhaltet, in jede Spalte gibt es 7 Labels. Folgendes soll es ablaufen:
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]
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]
Nachdem Ausführen erscheint das Dialog mit unsichtbaren Labels, aber es hat sich nicht nach 1 Sekunde geändert. Nachdem ich das Dialog geschlossen habe, erscheint eine Fehlermeldung "Objektvariable nicht belegt" und zwar an der Zeile
[code]MyDlg.getControl("Label" & i).Visible = True[/code]
Meine Frage ist jetzt: Wo ist der Fehler in meinem Code?
Ich bin dankbar für eure Hilfe