Cara membaca dan menampilkan UNICODE String pada bentuk Visual Basic

Artikel ini menunjukkan bagaimana untuk membaca Unicode string dari teks Unicode file dan menampilkan string pada bentuk Visual Basic.

Visual Basic adalah berdasarkan internal standar Unicode byte ganda. Namun, sebagian besar dunia di luar Visual Basic masih menggunakan satu- byte ANSI model. Untuk alasan ini, Visual Basic menyediakan dua set formulir kontrol dan menggunakan ANSI ditetapkan sebagai default control. String yang berlalu untuk ANSI set bentuk kontrol akan dikonversi dari mereka internal Unicode representasi representasi ANSI dan tidak akan menampilkan UNICODE string dengan benar. Agar dapat menampilkan UNICODE string pada Visual Basic bentuk, UNICODE (bentuk 2.0) kontrol harus digunakan. The contoh berikut menunjukkan cara menggunakan kontrol bentuk 2.0 untuk menampilkan UNICODE string membaca dari file teks Unicode. Karena perilaku ini memerlukan bahasa paket dukungan UNICODE, itu saat ini didukung hanya dalam Windows NT.

CATATAN: Bentuk 2.0 kontrol digunakan di dalam artikel ini tidak dirancang untuk digunakan pada Visual Basic bentuk dan tak resmi diuji dalam lingkungan. Artikel ini dokumen mereka digunakan hanya dalam konteks ini sangat terbatas untuk mengatasi pembatasan untuk kontrol Visual Basic intrinsik. Menggunakan fitur-fitur lainnya dari kontrol ini pada bentuk-bentuk Visual Basic tidak didukung.

Lebih jauh lagi, bentuk 2.0 adalah bagian dari Microsoft Office dan tidak dapat didistribusikan ulang. Oleh karena itu, Anda tidak dapat mendistribusikan bentuk 2.0 (fm20.dll) dengan aplikasi Anda. Sudah pasti pada mesin target.

Untuk informasi tambahan mengenai mendistribusikan fm20.dll, silakan lihat artikel berikut pada Basis Pengetahuan Microsoft:

Langkah demi langkah panduan untuk membangun sampel

1. Menginstal paket bahasa Cina pada komputer Windows NT. Lihat bagian referensi di bawah ini untuk petunjuk instalasi. MingLiu font akan terinstal secara otomatis selama langkah ini. Anda juga dapat menginstal paket bahasa lain jika Anda ingin menggunakan UNICODE lain dukungan bahasa.
2. Membuat proyek EXE standar. Form1 dibuat secara default.
3. Pilih Komponen dari Project menu dan cek Microsoft bentuk 2.0 Perpustakaan objek. Beberapa kontrol baru ditambahkan ke toolbox, termasuk UNICODE versi dari kotak teks, label, dan sebagainya.
4. Menambahkan bentuk 2.0 TextBox Form1 dan menjaga nama default: TextBox1. Menyetel font dari kotak teks untuk menjadi MingLiu.
5. Menambahkan dua CommandButtons Form1.
6. Tambahkan kode berikut ke jendela kode 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

   Perhatikan bahwa file teks UNICODE selalu diawali dengan byte FF FE, Itulah sebabnya Anda perlu untuk melewati dua byte. Juga mencatat bahwa untuk membaca UNICODE string dari file, file harus dibuka sebagai ganda dan membaca menggunakan InputB.
7. Menjalankan aplikasi. Klik Command1 untuk membuat file teks Unicode.
8. Klik Command2. Cina karakter Dan1 dan Inggris karakter d ditampilkan dengan benar di kotak teks. Anda juga dapat memeriksa Unicode.txt file dengan menggunakan notepad dengan MingLiu font.

Untuk informasi tambahan, silakan lihat artikel berikut di Basis Pengetahuan Microsoft: