title image


Smiley Re: Mehrere Zeilen im MSFlexGrid
Lege ein Textfeld text1 an und mach es unsichtbar (.visible=false)

Die Breite des Textfeldes muß dem des Gridfeldes entsprechen.

(.multiline=true nicht vergessen).

Fülle die Textbox mit dem Feldinhalt.

Mit der nachfolgenden Procedure erhältst Du die Anzahl der notwendigen Zeilen.

Dann kannst Du die Zeilenhöhe der entsprechenden Reihe bestimmen.





Public Declare Function SendMessage Lib "user32" Alias _

"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long



Public Function anzahl_textzeilen(quelle As TextBox) As Integer

Const hwnd_broadcast = &HFFFF&

Const EM_GETLINECOUNT = &HBA&

Dim N%, ant$

ant = quelle.text

N = SendMessage(quelle.hwnd, EM_GETLINECOUNT, 0, 0&)

anzahl_textzeilen = N

End Function

















geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: