USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Datas/Números/Strings)

Título da Dica:  O Caracter ENTER
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página