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

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.

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:

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.

Para obter informações adicionais, consulte os seguintes artigos na base de dados de conhecimento da Microsoft: