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:
Y este otro es el Subprocedimiento público que llamo en el evento "Activated" del Formulario.
Desde ya les Agradezco su gran ayuda.
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.ControlsIf 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
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
0