Bonjour,
un souci avec ce code :
Sub Main
DialogLibraries.LoadLibrary( "Standard" )
MyDlg = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
MyDlgModel = createUnoService("com.sun.star.awt.UnoControlDialogModel")
MyContainer = createUnoService("com.sun.star.awt.UnoControlContainer")
MyContainerModel =
createUnoService("com.sun.star.awt.UnoControlContainerModel")
With MyContainer
.posSize.X = 1
.posSize.Y = 10
.posSize.width = 137
.posSize.height = 158
end with
With MyContainerModel
.BackGroundcolor = RGB(100,200,0)
.border = 1
.borderColor = 100
.text = "Test"
end with
MyDlg.addControl("com.sun.star.awt.Toolkit",MyContainer)
MyDlg.Execute()
End Sub
La ligne "MyDlg.addControl("com.sun.star.awt.Toolkit",MyContainer)"
renvoie toujours une erreur, noramment mais pas exclusivement
"createPeer : No Model". J'ai fait divers essais en fonction de ce que
j'ai trouvé ici ou là, mais je ne vois pas trop quoi mettre dans les
parenthèse, surtout pour la première expression (ici, c'est d'après A.
Pitonyak) ...
Si quelqu'un a une idée ...
Merci,
Serge
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
