OpenOffice.info

Verfasst: **Mi, 23.06.2004 19:33**

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: 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

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: Alles auswählen

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

Meine Frage ist jetzt: Wo ist der Fehler in meinem Code?
Ich bin dankbar für eure Hilfe

Verfasst: **Do, 24.06.2004 09:56**

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

Verfasst: **Do, 24.06.2004 14:46**

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

Gruß

Tommy

OpenOffice.info

Frage über Label im Dialog

Frage über Label im Dialog