MSHFlexgrid

giovedì 16 febbraio 2006 - 10.04

skibbino Profilo | Newbie

Ciao a tutti
volevo qualche informazione sull'oggetto MSHFlexgrid. Ho associato la griglia ad un Recordset, ma non riesco a ridimensionare le colonne in automatico con il testo più lungo inserito. Ho visto la proprietà ColWidth, ma non è quello che cerco.
Grazie

Brainkiller Profilo | Guru

>Ciao a tutti
>volevo qualche informazione sull'oggetto MSHFlexgrid. Ho associato
>la griglia ad un Recordset, ma non riesco a ridimensionare le
>colonne in automatico con il testo più lungo inserito. Ho visto
> la proprietà ColWidth, ma non è quello che cerco.
>Grazie

Ciao,
ti riporto una procedura tratta da Internet che fa un resize della colonna dato l'id della colonna stessa.
Non l'ho provata quindi non garantisco personalmente:

Private Sub ResizeColumn(ColNumber As Long)
Dim CurrentRow As Long
Dim CurrentCol As Long
Dim ColText As String
Dim Fnt As Object
With MSFlexGrid1
CurrentRow = .Row
CurrentCol = .Col
.Row = 0
.Col = ColNumber
.RowSel = .Rows - 1
.ColSel = ColNumber
ColText = .Clip
Set Fnt = .Parent.Font
Set .Parent.Font = .Font
.ColWidth(ColNumber) = .Parent.TextWidth(ColText)
If .ColWidth(ColNumber) > 0 Then
.ColWidth(ColNumber) = .ColWidth(ColNumber) + _
6 * Screen.TwipsPerPixelX
End If
Set .Parent.Font = Fnt
.Row = CurrentRow
.Col = CurrentCol
End With
End Sub

Sostituisci MSFlexGrid1 con il nome della tua FlexGrid.
Ciao


David De Giacomi
Microsoft MVP
http://blogs.dotnethell.it/david/

skibbino Profilo | Newbie

Grazie mille!!
La provo e vi farò sapere!!!

skibbino Profilo | Newbie

Funziona benissimo!!!
Grazie mille
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5