Newsgroup: it.comp.appl.access
Titolo: Linea verticale che assuma la stessa altezza di controllo espandibile

Salve,
in un Report, ho impostato un controllo come espandibile e a fianco al
controllo ho disegnato manualmente una linea verticale della stessa
altezza del controllo.
Come posso fare in modo che, quando il controllo viene espanso, la
linea verticale divenga alta come il controllo?
In un vecchio post, ho trovato questo codice di Alex Baraldi
  Me.DrawWidth = 12
  Me.Line (669,1600)-(669,Me.ScaleHeight)
  Come vedi sono le 4 coordinate matematiche per individuare i due
punti 
  estremi. 
ma non ho ben capito come utilizzarlo.
Grazie.

 ma non ho ben capito come utilizzarlo.
Devi inserire quel codice nell'evento formattazione della sezione del report 
nel quale deve essere disegnato.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution

 skype: pbsoftsolution
Non ho ancora capito una cosa.
Come faccio a fare in modo che l'altezza della linea divenga la stessa
del controllo espanso?

 del controllo espanso?
In alternativa, potrei far comparire una linea aggiuntiva se il
controllo diventa di 2 righe.
Ma come fare, via codice, a intercettare l'espansione un controllo, o
meglio come fare a intercettare se il testo nel controllo viene diviso
in 2 righe?
C'è un modo?

 del controllo espanso?
Sinceramente non so darti suggerimenti per questo. Il codice di cui abbiamo 
parlato serve per creare linee verticali alte come la sezione che contiene 
i controlli.
L'altezza di una sezione viene determinata dal report-engine di Access dopo 
che ha provveduto ad impostare l'altezza dei vari controlli contenuti nella 
sezione, quindi il problema è facilmente risolvibile in quel caso.
Purtroppo non ho idea di come fare per intercettare la variazione dell'altezza 
di un controllo.


 C'è un modo?
E' questo purtroppo il problema: non so come intercettare l'espansione di 



prova così dovrebbe funzionare.....
rpt.Line (Me!NomeControllo.Left,
Me!NomeControllo.Top)-(Me!NomeControllo.Left, _
   Me!NomeControllo.Top + Me!NomeControllo.Height)
ciao..

 Me!NomeControllo.Top + Me!NomeControllo.Height)
Io ho provato il seguente codice, inserito nell'evento Print della sezione 
dove deve comparirre la linea, e pare funzionare correttamente, intercettando 
l'espansione ed il collassamento di un controllo preso come riferimento:
=========================================
Const acbcSMTwips = 1
Donst acbcDSSolid = 0
Dim sngLineTop As Single
Dim sngLineLeft As Single
Dim sngLineWidth As Single
Dim sngLineHeight As Single
sngLineTop = Me.NomeControllo.Top
sngLineLeft = Me.NomeControllo.Left
sngLineWidth = 20
sngLineHeight = Me.NomeControllo.Top + Me.NomeControllo.Height
Me.Line (sngLineLeft, sngLineTop)-Step(sngLineWidth, sngLineHeight), , BF
=========================================



Ciao Gabriele,
posso inserire queste righe di codice su Accessgroup?
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

> posso inserire queste righe di codice su Accessgroup?
Per quanto mi riguarda non ci sono problemi.
Tuttavia quel codice è parte di alcune righe di codice riprese da un libro 
che ho letto, quindi forse bisognerebbe prima chiedere i diritti di pubblicazione 
all'autore.
Che ne pensi?
