title image


Smiley vb.net Zeilenlänge einer Multiline Textbox
ich habe folgenden code in einem VB6-Programme, um in einem Mutliline - Textfeld die zeilenlänge auf 40 zeichen zu beschränken



Private Declare Function SendMessage Lib "user32" Alias _

"SendMessageA" _

(ByVal hwnd As Long, _

ByVal wMsg As Long, _

ByVal wParam As Long, _

ByVal lParam As Any) As Long



Private Const EM_GETLINECOUNT = &HBA

Private Const EM_LINEFROMCHAR = &HC9

Private Const EM_GETLINE = &HC4





Error.Caption = ""

Dim sline As String * 1024, zeile As Long

sline = Space(1024)

zeile = SendMessage(txNachArText.hwnd, EM_LINEFROMCHAR, -1, 0&)

nlen = SendMessage(txNachArText.hwnd, EM_GETLINE, zeile, sline)

If nlen > 39 And KeyAscii 13 Then KeyAscii = 0









nun brauch ich das in einem vb.net Programm

(leider hab ich mit dem api-zeugs in der .net Welt noch nichts gemacht)


Fuchsi

Alkohol ist keine Antwort, aber man vergisst beim Trinken die Frage !

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: