[RISOLTO] gestire prorietà size e position di un oggetto

[ottaviane]

salve a tutti.
ho difficoltà a trovare un elenco completo delle proprietà dei button.
mi spiego meglio.
ho questo codice:

Codice: Seleziona tutto

Sheet=ThisComponent.Sheets.getByName("GestioneMese")
   Form=Sheet.DrawPage.Forms.getByIndex(0)
   Button = Form.GetByName("Pulsante01")
   n=Button.Label
   msgBox("Label="+n)
   n=Button.PositionY
   msgBox("Posy="+n)

e mi da errore alla penultima riga .
qual'è la giusta modalità per ricavarne laposizione?
ciao

[patel]

Codice: Seleziona tutto

Sub PosizionePulsanti()

	Dim oDoc As Object, oSheet As Object, g as Object, c As Integer
	Dim s As new com.sun.star.awt.Size, gp As new com.sun.star.awt.Point      
	oDoc = ThisComponent
	oSheet = oDoc.CurrentController.ActiveSheet
	c = oSheet.DrawPage.count
	for b = 1 to c
	  g = oSheet.DrawPage(b-1)
      s = g.getSize()
	  gp = g.getPosition()
 	  print gp.x
	  print gp.y
	next
End Sub

[vladboscaneanu]

Ti consiglio di usare Xray, cerca su google Xray OpenOffice.Se proprio ni,
fai un print di button.dbg_methods() ,cosi usciranno tutti i metodi.
Spero che sono stato utile.

[ottaviane]

grazie mille.
e per conoscere la posizione in coordinate grafiche di una cella?
per esempio la cella B3 che x e y ha graficamente parlando?

saluti.

[patel]

Codice: Seleziona tutto

Sub cellapos
Sheet = ThisComponent.Sheets(0)
oCell = Sheet.getCellRangeByName("B3")
aPos = oCell.Position
cellax = aPos.X
cellay = aPos.Y
W = oCell.Size.Width
H = oCell.Size.Height
end sub 

[ottaviane]

waw
eccezionale. grazie 1000

[ottaviane]

Codice: Seleziona tutto

Sub PosizionePulsanti()

	Dim oDoc As Object, oSheet As Object, g as Object, c As Integer
	Dim s As new com.sun.star.awt.Size, gp As new com.sun.star.awt.Point      
	oDoc = ThisComponent
	oSheet = oDoc.CurrentController.ActiveSheet
	c = oSheet.DrawPage.count
	for b = 1 to c
	  g = oSheet.DrawPage(b-1)
      s = g.getSize()
	  gp = g.getPosition()
 	  print gp.x
	  print gp.y
	next
End Sub

ultima cosa: e se volessi cambiare la posizione degli oggetti?
ho provato a fare

Codice: Seleziona tutto

gp.x=33 ...

ma la posizione non varia. Come si fa?
ciao

[patel]

prova il file allegato

[charlie]

@ottaviane,
se hai messo [Risolto] perché continui a fare nuove domande?

[ottaviane]

scusa,
ho messo risolto perchè il problema è stato risolto.
Il fatto è che avevo inviato io stesso la soluzione che grazie a voi tutti
abbiamo trovato, ma non so perchè non è andata a buon fine.
Comunque ho risolto usando la funzione setposition(gp).
ciao e sempre grazie

[charlie]

Ciao, il tag [Risolto] non è definitivo, lo puoi sempre togliere. Ma la discussione deve continuare sullo stesso argomento, altrimenti è necessario aprirne una nuova, magari con un link di riferimento.