APACHE 46 a écrit :
Effectivement j'ai testé la macro mais je me heurte à un problème au
niveau du lancement du formulaire j'ai cette erreur qui apparait
REM ***** BASIC *****
Sub ChangeTaillePositionFenetre
dim oCadre as Object
dim oFenetre as Object
dim oRect as Object
dim nHauteur as Integer
dim nLargeur as Integer
dim nPosX as Integer
dim nPosY as Integer
oCadre = StarDesktop.getCurrentFrame()
oFenetre = oCadre.getContainerWindow() (A cette ligne j'ai une
l'erreur suivante :)
oRect = oFenetre.getPosSize() (*variable
d'objet non définie*)
nPosX = oRect.X
nPosY = oRect.Y
nHauteur = 550
nLargeur = 800
oFenetre.setPosSize(nPosX, nPosY, nLargeur, nHauteur, 15)
End Sub
A tout hasard, il manque sans doute la macro d'ouverture du formulaire :
Function OpenForm( formContainer as variant, oConnection as variant,
sFormName as string, optional strMode as string ) as variant
Dim aProp(1) As New com.sun.star.beans.PropertyValue
dim openMode as string
if ismissing( strMode ) then
openMode = "open"
else
openMode = strMode
endif
aProp(0).Name = "ActiveConnection"
aProp(0).Value = oConnection
aProp(1).Name = "OpenMode"
aProp(1).Value = strMode
OpenForm =
formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
End Function
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
