Visual Basic.NET - TextBox Multilinea Permitir Nueva Línea con Enter

   
Vista:

TextBox Multilinea Permitir Nueva Línea con Enter

Publicado por Francisco (1 intervención) el 11/07/2016 07:55:29
Hola Amigos,

Estoy aprendiendo a usar Visual Strudio 2008 (Bisual Basic) ¿Podrían Ayudarme a que el siguiente código me permita ingresar un salto de Línea cuando Pulse la Tecla enter dentro de un textBox Multilínea por favor?

Sucede que tengo unos proceminetos que sustituyen la tecla Enter por la tecla TAB pero en los textbox multilinea no se detiene para ingresar un salto de línea.

Estos son mis subprocedimientos establecidos en un modulo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TabEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If (e.KeyCode = Keys.Enter) Then
            e.SuppressKeyPress = True
            SendKeys.Send("{TAB}")
        End If
End Sub
 
Public Sub InsereEnter(ByVal controle As Control)
        For Each elemento In controle.Controls
            If elemento.GetType.Name().ToString = "GroupBox" Or _
               elemento.GetType.Name().ToString = "Panel" Then
                InsereEnter(elemento)
            Else
                AddHandler CType(elemento, Control).KeyDown, AddressOf TabEnter
            End If
        Next
End Sub
Y este otro es el Subprocedimiento público que llamo en el evento "Activated" del Formulario.

1
2
3
4
5
Private Sub frmClientes_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
 
    Call InsereEnter(Me)
 
End Sub

Desde ya les Agradezco su gran ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder