Como ler e apresentar cadeia UNICODE no formulário do Visual Basic

Traduções de Artigos Traduções de Artigos
Artigo: 193540 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo demonstra como ler uma cadeia Unicode a partir de um ficheiro de texto Unicode e apresentar a cadeia de um formulário do Visual Basic.

Mais Informação

Visual Basic baseia-se internamente no padrão de Unicode de byte duplo. No entanto, a maior parte do mundo fora do Visual Basic ainda utiliza o modelo de ANSI de byte único. Por este motivo, o Visual Basic fornece dois conjuntos de controlos de formulário e utiliza o ANSI define como controlo predefinido. Quaisquer cadeias transmitidas para o ANSI conjunto de controlos serão convertidos a partir da respectiva representação Unicode interna para uma representação de ANSI e não mostrará as cadeias UNICODE correctamente. Para conseguir visualizar a cadeia UNICODE num formulário do Visual Basic, devem ser utilizados os controlos UNICODE (Forms 2.0). O exemplo seguinte mostra como utilizar os controlos Forms 2.0 para apresentar cadeias UNICODE lidos num ficheiro de texto Unicode. Uma vez que este comportamento requer suporte de pacote de idioma UNICODE, é actualmente suportado apenas no Windows NT.

Nota : O Forms 2.0 controlos utilizados neste artigo não foram concebidos para utilização em formulários do Visual Basic e não tenham sido testados formalmente no ambiente. Este artigo documenta a sua utilização apenas neste contexto muito limitado para resolver uma limitação para os controlos intrínsecos do Visual Basic. A utilização de outras funcionalidades destes controlos em formulários do Visual Basic não é suportada.

Além disso, Forms 2.0 faz parte do Microsoft Office e não é redistribuível. Por conseguinte, não é possível distribuir Forms 2.0 (fm20.dll) com a aplicação. Já tem de estar nos computadores de destino.

Para informações adicional sobre como distribuir fm20.dll, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
224305INFO: Utilização e Redistribution de FM20.DLL [OffDev]

Guia passo a passo para criar o exemplo

  1. Instale o pacote de idioma chinês no computador Windows NT. Consulte a secção referências abaixo para instruções de instalação. MingLiu tipo de letra será instalado automaticamente durante este passo. Pode também instalar outros pacotes de idiomas se pretender utilizar outra UNICODE suporte de idioma.
  2. Crie um projecto EXE padrão. É criado o Form1 por predefinição.
  3. Seleccionar componentes no menu Project e verificar Microsoft Forms 2.0 Object Library . Vários novos controlos são adicionados à caixa de ferramentas, incluindo versões UNICODE da caixa de texto, rótulo e por aí em diante.
  4. Adicione um TextBox 2.0 de formulários ao Form1 e manter o nome predefinido: Caixatexto1. Defina o tipo de letra da caixa de texto para ser MingLiu.
  5. Adicione dois CommandButtons ao Form1.
  6. Adicione o seguinte código à janela de código do Form1:
          Private Sub Command1_Click()
            ' create a Unicode text file with Chinese character
            ' Dan1 and English character D.
            Dim a(0 To 5) As Byte
            a(0) = &HFF
            a(1) = &HFE
            a(2) = &H39
            a(3) = &H4E
            a(4) = &H44
            a(5) = &H0
            Open "unicode.txt" For Binary As #1
            Put #1, , a
            Close #1
          End Sub
    
          Private Sub Command2_Click()
            Dim txtline As String
    
            ' you may need to change the path of the file
            Open "unicode.txt" For Binary As #1
    
            txtline = InputB(2, #1)  ' always FF FE, skip them
            txtline = InputB(4, #1)
    
            Close #1
    
            TextBox1.Text = txtline  ' display the string
          End Sub
    nota que o ficheiro de texto UNICODE começa sempre por FE de FF bytes, que é porquê necessita de ignorar estes dois bytes. Tenha também em atenção que para ler cadeias UNICODE a partir de um ficheiro, o ficheiro tem ser aberto como leitura utilizando centrada em binário.
  7. Execute a aplicação. Clique em Command1 para criar o ficheiro de texto Unicode.
  8. Clique em Command2 . Os caracteres chineses Dan1 e o carácter inglês D são apresentados correctamente na caixa de texto. Também pode verificar o ficheiro unicode.txt utilizando o bloco de notas com tipo de letra MingLiu.

Referências

Para obter informações adicionais, consulte os seguintes artigos na base de dados de conhecimento da Microsoft:
177561Como adicionar e activar idiomas adicionais no Windows NT
224305INFO: Utilização e Redistribution de FM20.DLL [OffDev]

Propriedades

Artigo: 193540 - Última revisão: 7 de março de 2005 - Revisão: 1.4
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Palavras-chave: 
kbmt kbctrl kbhowto kbunicode KB193540 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 193540

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com