|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: O Caracter ENTER
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Ele nunca aparece, mas existe. No Word é representado por um , nas caixas de texto do VB aparece um y (caracter não imprimível). Mas como aceitar e gerar este caracter?
1) No evento KeyPress, o caracter digitado (parâmetro KeyAscii) vale 10 ou 13 (os dois valores do ENTER na tabela de caracteres ANSI).
2) Em quaisquer consistências (como TextBox_Change ou análise de variáveis string) a função Asc retornará 10 ou 13.
Texto = Left(Texto, (Len(Texto) - 1))
If Asc(texto) = 10 or Asc(texto) = 13 then msgbox "Foi digitado um ENTER"
3) Numa textbox, é preciso gerar (via função chr) o caracter 10 mais o caracter 13.
text1.Text = "linha 1"
text1.Text = text1.Text & Chr$(13) & Chr$(10) & "linha 2"
text1.Text = text1.Text & Chr$(13) & Chr$(10)
text1.Text = text1.Text & Chr$(13) & Chr$(10) & "linha 4"
4) Numa MsgBox, basta gerar o caracter 13.
Dim vmsg As String
vmsg = "linha 1"
vmsg = vmsg & Chr$(13) & "linha 2"
vmsg = vmsg & Chr$(13)
vmsg = vmsg & Chr$(13) & "linha 4"
MsgBox vmsg, 0, "texto 2
|
|
|
|
|
