Lineas y caracteres en un textbox, ayuda!!

[jusepe48]

Un saludo a todos los usuarios del foro, soy nuevo aqui, les pido me ayuden con esta duda, estoy programando en vb6 y tengo un textbox, en el esta multiline= true, lo que necesito especificamente es que cada linea contenga 85 caracteres y despues pase a la siguiente linea hasta un total de 1000 caracteres y al llegar a esta cuenta no se pueda escribir mas, tambien a su vez en un label poder mostar los caracteres restantes de los 1000 mientras estoy escribiendo, muchas gracias de antemano y se que aqui voy a encontar la respuesta gracias a sus ayudas..

[lokoman]

Hola!!
Pon en el evento change del text box:

Código vb:

If len(textbox.text)=85 then chr(10) 'si no me equivoco el chr(10) es el enter
Label.caption=1000 - len(textbox.text)
 

[lokoman]

Hola!!
Pon en el evento change del text box:

Código vb:

If len(textbox.text)=85 then chr(10) 'si no me equivoco el chr(10) es el enter
Label.caption=1000 - len(textbox.text)
 

[erbuson]

Hola, lo que pretendes hacer deberías controlarlo de la siguiente manera:

Código vb:

Private Declare Function SendMessageBynum Lib "user32" _
    Alias "SendMessageA" (ByVal hwnd As Long, _
            ByVal wMsg As Long, _
            ByVal wParam As Long, _
            ByVal lParam As Long) As Long
 
Private Const EM_LINEFROMCHAR As Long = &HC9
Private Const EM_LINELENGTH As Long = &HC1
Private Const EM_LINEINDEX As Long = &HBB
 

Por otra parte, este es el código que complementa la funcion definida:

Código vb:

Dim LineaActual As Long
  Dim PrimerCaracter As Long
  Dim Longitud As Long
  
  ' Calcula la línea donde se encuentra el cursor
  LineaActual = SendMessageBynum(txt.hwnd, EM_LINEFROMCHAR, -1, 0&)
  
  ' Determina la posición del primer carácter de la línea actual
  PrimerCaracter = SendMessageBynum(txt.hwnd, EM_LINEINDEX, LineaActual, 0&)
 
  ' Calcula la longitud de la línea seleccionada
  Longitud = SendMessageBynum(txt.hwnd, EM_LINELENGTH, PrimerCaracter, 0&) + 1
 

Debes ahora montarlo como mejor te convenga.

Saludos