NÃO ENVIAR ENTER EM TEXTBOX MULTLINE
Bom dia!
Gostaria da ajuda de voces a respeito da seguinte questão, no VB6 usava a rotina abaixo:
Quando pressionada a tecla enter em textbox multline o textbox não perdi o foco e sim pula para linha de baixo.
VB6:
If TypeOf Screen.ActiveControl Is TextBox Then
If Screen.ActiveControl.MultiLine = True Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Exit Sub
End If
ElseIf KeyAscii = vbKeyReturn Then
SendKeys ([Ô]{TAB}[Ô])
KeyAscii = 0
End If
Como ficaria esta rotina em VB.net.
Desde já agradeço a todos.
Abraços,
Gostaria da ajuda de voces a respeito da seguinte questão, no VB6 usava a rotina abaixo:
Quando pressionada a tecla enter em textbox multline o textbox não perdi o foco e sim pula para linha de baixo.
VB6:
If TypeOf Screen.ActiveControl Is TextBox Then
If Screen.ActiveControl.MultiLine = True Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Exit Sub
End If
ElseIf KeyAscii = vbKeyReturn Then
SendKeys ([Ô]{TAB}[Ô])
KeyAscii = 0
End If
Como ficaria esta rotina em VB.net.
Desde já agradeço a todos.
Abraços,
Select Case ActiveControl.Name
Case [Ô]TXT_OBS[Ô], [Ô]TXT_DESCR[Ô]
Case Else
If e.KeyChar = Convert.ToChar(13) Then
e.Handled = True
SendKeys.Send([Ô]{TAB}[Ô])
End If
End Select
Case [Ô]TXT_OBS[Ô], [Ô]TXT_DESCR[Ô]
Case Else
If e.KeyChar = Convert.ToChar(13) Then
e.Handled = True
SendKeys.Send([Ô]{TAB}[Ô])
End If
End Select
Tópico encerrado , respostas não são mais permitidas