[VB6] MSFlex Control 6.0: Zellen an Inhalt anpassen?

[Freundlicher Nachbar]

Hallo,

ich möchte, das sich die Zellen Ihrem Inhalt anpassen.

Ist das irgendwie möglich?

Gruß

Freundlicher Nachbar

[Thias78]

ich weiß nicht, ob du schon was gefunden hast, aber ein kollege von mir hat das auch grad für sein proggie gebraucht...

hier der code:

Public Sub OptimaleSpaltenbreite(frm As Form, FG As MSFlexGrid)

Dim i As Integer 'Zeilen

Dim k As Integer 'Spalten

Dim Zeile As Integer 'Merkt sich die breiteste Zeile

Dim Breite As Double 'Merkt sich die Breite

k = 0

Do While k < FG.Cols

Breite = 0

Zeile = 0

i = 0

Do While i < FG.Rows

If frm.TextWidth(FG.TextMatrix(i, k)) > Breite Then

Breite = frm.TextWidth(FG.TextMatrix(i, k))

Zeile = i

End If

i = i + 1

Loop

FG.ColWidth(k) = frm.TextWidth(FG.TextMatrix(Zeile, k)) + 150

k = k + 1

Loop

End Sub

ich hoffe, es ist dir noch eine hilfe!! (O:

c ya

Thias

[Freundlicher Nachbar]

Habe noch nichts gefunden!

Vielen Dank für den Code!

Hat mir sehr geholfen!

Gruß

Freundlicher Nachbar