Hiển thị tiếng Việt Unicode trong VB6 dễ dàng hơn!

Trước hết, tôi cũng xây dựng một hàm tương tự như hàm CharUnicode và cũng thêm vào hộp công cụ của VB các điều khiển (control) của MS Forms 2.0 như hướng dẫn của anh Bằng.Nhưng tôi đặt tên hàm là Viethoa (Việt hóa) và tạo ra chức năng chuyển thành mã tiếng Việt Unicode đối với chuỗi được gõ vào theo cách như khi bạn gõ tiếng Việt với kiểu gõ VNI (đoạn mã 1). Ví dụ, khi bạn muốn hiển thị cụm từ "Tiếng Việt", bạn chỉ cần viết đoạn mã như sau: Private Sub Form_Load() cmdTiengviet.Caption =...
Nội dung trích xuất từ tài liệu:
Hiển thị tiếng Việt Unicode trong VB6 dễ dàng hơn! Hiển thị tiếng Việt Unicode trong VB6 dễ dàng hơn! Trước hết, tôi cũng xây dựng một hàm tương tự như hàm CharUnicode và cũng thêm vào hộp công cụ của VB các điều khiển (control) của MS Forms 2.0 như hướng dẫn của anh Bằng.Nhưng tôi đặt tên hàm là Viethoa (Việt hóa) và tạo ra chức năng chuyển thành mã tiếng ViệtUnicode đối với chuỗi được gõ vào theo cách như khi bạn gõ tiếng Việt với kiểu gõ VNI (đoạnmã 1). Ví dụ, khi bạn muốn hiển thị cụm từ Tiếng Việt, bạn chỉ cần viết đoạn mã như sau:Private Sub Form_Load()cmdTiengviet.Caption = Viethoa(“Tie61ng Vie65t”)End SubBạn có thể làm tương tự để dùng kiểu gõ khác mà bạn ưa thích. Chúc bạn thành công!Đoạn mã 1Function Viethoa(chuoi As String)Dim i As IntegerDim j As IntegerFor j = 1 To 2For i = 2 To Len(chuoi)Select Case Mid(chuoi, i, 1)Case 1aIf Mid(chuoi, i - 1, 1) = a Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HE1) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = A Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HC1) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EA5) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EA4) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&H103) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EAF) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&H102) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EAE) & Right(chuoi, Len(chuoi) - i)End IfeIf Mid(chuoi, i - 1, 1) = e Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HE9) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = E Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HC9) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EBF) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EBE) & Right(chuoi, Len(chuoi) - i)End IfiIf Mid(chuoi, i - 1, 1) = i Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HED) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = I Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HCD) & Right(chuoi, Len(chuoi) - i)End IfoIf Mid(chuoi, i - 1, 1) = o Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HF3) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = O Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HD3) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&HF4) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1ED1) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&HDA) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1ED0) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&H1A1) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EDB) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&H1A0) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EDA) & Right(chuoi, Len(chuoi) - i)End IfuIf Mid(chuoi, i - 1, 1) = u Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HFA) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = U Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HDA) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&H1B0) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EE9) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&H1AF) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EE8) & Right(chuoi, Len(chuoi) - i)End IfyIf Mid(chuoi, i - 1, 1) = y Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HFD) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = Y Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HDD) & Right(chuoi, Len(chuoi) - i)End IfCase 2aIf Mid(chuoi, i - 1, 1) = a Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HE0) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = A Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HC0) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EA7) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EA6) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&H103) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EB1) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&H102) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EB0) & Right(chuoi, Len(chuoi) - i)End IfeIf Mid(chuoi, i - 1, 1) = e Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HE8) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = E Thenchuoi = Left(chuoi, i - 2) & ChrW$(&HC8) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Thenchuoi = Left(chuoi, i - 2) & ChrW$(&H1EC1) & Right(chuoi, Len(chuoi) - i)End IfIf Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Thenchuoi = Left(chuoi, i - 2) ...