Newsgroup: it.comp.lang.visual-basic
Titolo: Tabelle e autodimensionamento righe !!!!!!!!!!!

Salve a tutti
Ho questo probblema: in un form ho una tabella in cui vengono inserite delle
descrizioni di articoli, ma queste non hanno sempre la stessa lunghezza e
quindi non sono visibili completamente nelle celle; sulla tabella č stato
attivato il wordwrap per il ritorno a capo automatico delle descrizioni, ma
ho sempre il probblema di come fare ad autodimensionare le righe per alteza
in modo da visualizzare tutto il testo. Mi potete aiutare ???
Grazie per la vostra attenzione
Ciao Ciao
Manuel
E-Mail ... 
m...@galactica.it

 in un form ho una tabella in cui vengono inserite delle descrizioni di
articoli, ma queste non hanno sempre la stessa lunghezza e quindi non sono
visibili completamente nelle celle; sulla tabella è stato attivato il
wordwrap per il ritorno a capo automatico delle descrizioni, ma ho sempre il
probblema di come fare ad autodimensionare le righe per alteza in modo da
visualizzare tutto il testo. Mi potete aiutare ???
  E... che sarebbe 'sta "tabella"? Scusa sai ma sono una persona curiosa.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Sto usando una MSFlexGrid

   E... che sarebbe 'sta "tabella"? Scusa sai ma sono una persona curiosa.
Sto usando una MSFlexGrid
<saluti e firma>
*** FINE *****************************************************
  Fai questo esperimento:
Option Explicit
Private Sub Command1_Click( _
)
  Dim strString As String
  strString = Text1.Text
  With Label1
    .Move _
        (.Left) _
      , (.Top) _
      , TextWidth(strString) _
      , TextHeight(strString)
    .Caption = strString
  End With
End Sub
Private Sub Form_Load( _
)
  With Text1
  ' .MultiLine = True
    .Text _
      = "Riga1: Pippo;" & vbCrLf _
      & "Riga2: Pluto;" & vbCrLf _
      & "Riga3: Paperino."
  End With
  With Label1
    .WordWrap = True
    .Caption = ""
    .BackColor = Text1.BackColor
  End With
End Sub
  Poi considera come adattarlo alle proprieta`:
    Property ColWidth(index As Long) As Long
        Member of MSFlexGridLib.MSFlexGrid
        Determines the width of the specified column in Twips. Not available
at design time.
e
    Property RowHeight(index As Long) As Long
        Member of MSFlexGridLib.MSFlexGrid
        Returns/sets the height of the specified row in Twips. Not available
at design time.


 visibili completamente nelle celle; sulla tabella è stato attivato il

Come puoi vedere so quotare abbastanza anche io ... non ti ho risposto prima
perché sono tornato da poco dalle ferie ... comunque ... a me sembrava di
aver posto un altro quesito.
Nel tuo esempio dimensioni una Label sul contenuto di un Text ... ma quello
che serviva a me era:
data la larghezza fissa di una colonna della MSFlexGrid, copiato del testo
in una cella (del quale non sappiamo il numero di righe che andrà ad
occupare), fare in modo tale che questa riga si autodimensioni in altezza,
altrimenti il resto del testo non è visibile.
Comunque grazie per il disturbo.
Ciao Ciao
Manuel

 Comunque grazie per il disturbo.
  Figurati. Ma dimmi: l'hai fatto o no l'esperimento? E, se l'hai fatto,
davvero non hai colto l'attinenza col tuo problema? Una volta ottenuta una
label, con autosize, della stessa larghezza della colonna, ottieni l'altezza
del testo che assegnerai a RowHeight.
