texbox multilinea

[eduardo2009]

Que como estan aqui con una consulta, hay manera de un texbox multilinea delimitar los a 5 renglones.................


saludos y gracias por la ayuda

[pkj]

¿Puedes usar un RichTextBox?

Con este código consigues lo que quieres:

Código :

Private Sub RichTextBox1_Change()
  If RichTextBox1.GetLineFromChar(Len(RichTextBox1.Text)) > 4 Then
    SendKeys "{BS}"
  End If
End Sub
 

Saludos

[pkj]

He encontrado este modo para hacerlo con TextBox normales.

Código :

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Sub Text1_Change()
  If SendMessageLong(Text1.hwnd, &HBA, 0&, 0&) > 5 Then
    SendKeys "{BS}"
  End If
End Sub
 

Saludos

[eduardo2009]

Iniciado por pkj

He encontrado este modo para hacerlo con TextBox normales.

Código :

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Sub Text1_Change()
  If SendMessageLong(Text1.hwnd, &HBA, 0&, 0&) > 5 Then
    SendKeys "{BS}"
  End If
End Sub
 

Saludos

Muchas gracias por la ayuda......... me funciono perfectamente bien





Saludos

[pkj]

Siempre es un placer ayudar.

Hoy además parece que estaba inspirado, ya que solo trasteé un ratito con Right$, Left$ y Mid$ antes de que se me ocurriese esta simple pero eficaz solución.

Un saludo y a mandar.