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

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
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
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]

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 193540 - Última Revisão: 12/05/2015 09:22:22 - Revisão: 1.4

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

  • kbnosurvey kbarchive kbmt kbctrl kbhowto kbunicode KB193540 KbMtpt
Comentários