Hallo Oliver,
danke, das läuft.
Mein Befehl
MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Dialog1)

läuft wohl nicht. mit
MyDlg = CreateUnoDialog(Dialoglibraries.Standard.getByName("Dialog1"))

funktioniert es.

Horst


Am 28.01.2016 um 18:23 schrieb Oliver Brinzing:
Hallo Horst,

> ich habe einen Dialog mit einer Listbox und will dort wie in der Hilfe beschrieben Items einfügen.

also bei mir funktioniert das:

Sub Main

    oLibContainer = DialogLibraries
    oLibContainer.LoadLibrary("Standard")
    oLib = oLibContainer.getByName("Standard")
    oLibDialog = oLib.getByName("MyDialog")
    oRuntimeDialog = CreateUnoDialog(oLibDialog)

    oModel = oRuntimeDialog.getControl("ListBox1").getModel()
    oModel.insertItemText(0,"New Item0")
    oModel.insertItemText(1,"New Item1")
    oModel.insertItemText(2,"New Item2")

    oRuntimeDialog.execute()
End Sub

Gruß
Oliver


---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org


Antwort per Email an