Forum AtoutFox : Re: Passer une array du objects a libreoffice/openoffice   

dim. 01 octobre 2017, 18h42
Jean à Grenoble
atoutfox.public.association

Re: Passer une array du objects a libreoffice/openoffice

Bonsoir Jan,

1) en écrivant oStyle.ParatabStops=(tbstps) tu ne copies que le premier élément
de tbstps. Que se passe-t-il si tu écris "oStyle.ParatabStops=tbstps" ?
(when you write oStyle.ParatabStops=(tbstps) only the first element of tbstps is
transferred. What happens when you write "oStyle.ParatabStops=tbstps" without
parenthesis ?)

Il faudrait que tu regardes l'aide de la fonction COMARRAY() (you should read
the help for the function COMARRAY()) :

Specifies how to pass an array to a COM object specified with oObject.
The following table lists the settings for nNewValue and how the to pass the
array to the COM object.
nNewValue Description
0 The array is a zero-based array and is passed by value.
1 The array is a one-based array and is passed by value. Compatible with
earlier versions of Visual FoxPro. (Default)
10 etc ....

2) le programme serait plus clair en écrivant : (the program should be more
readable if you write :)
tbstps(1)=Thisform.lofuncties1.ooocreatestruct("com.sun.star.style.TabStop")
WITH tbstps(1)
.Alignment = 0
.DecimalChar = 44
.FillChar = 32
.Position = 1500
ENDWITH

3) les lignes suivantes sont inutiles (the following lines are unnecessary)
oStyle=CREATEOBJECT("Empty")
tbstps(1)=CREATEOBJECT("Empty")
tbstps(2)=CREATEOBJECT("Empty")
tbstps(3)=CREATEOBJECT("Empty")

Bonne soirée

Jean à Grenoble
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018468