Tên bài viết: Tổng hợp Unicode trong VB6
Tác giả: Lê Bảo Hiệp
Cấp độ bài viết: Chưa đánh giá
Tóm tắt: Tổng hợp các bài viết về Unicode trong 4rum
Clipboard Unicode:
Bài cUniClipboard:
http://caulacbovb.com/forum/viewtopic.php?f=36&t=15436
Tác giả: doicanhden
Tạo một Module Class tên cClipboard:
Khai báo trong Form:
[vb]Dim Clipboard As New cClipboard[/vb]
Download:
http://caulacbovb.com/forum/download/file.php?id=11094
Tạo Form có tiêu đề Tiếng Việt:
Bài Tạo tiêu đề Form Tiếng Việt đơn giản:
http://caulacbovb.com/forum/viewtopic.php?t=14402
Tác giả: pctester2020
Thêm vào Form:
[vb]'Unicode cho Title cua Form
Private Declare Function DefWindowProcW Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Sub SetUniFormCaption(ByVal hWnd As Long, ByVal sUniText As String)
'---------------------------------------------------------------------------------------
' Function : SetUniFormCaption (Unicode TitleBar, Frame, Button, CheckBox, Option)
' Author : thuongall@yahoo.com
' Address : Dong Khoi
'---------------------------------------------------------------------------------------
DefWindowProcW hWnd, &HC, &H0&, StrPtr(sUniText) 'WM_SETTEXT=&HC
End Sub
Public Function Telex2Uni(ByVal TelexStr As String) As String ' Chuyen chuoi go theo kieu Telex thanh chuoi tieng Viet Unicode
'---------------------------------------------------------------------------------------
' Function : Telex2Uni
' Author : phantronghiep07
' Phone : 0915 080 282
'---------------------------------------------------------------------------------------
Dim i As Integer
Dim MaAcii, Telex
MaAcii = Array(7845, 7847, 7849, 7851, 7853, 226, 225, 224, 7843, 227, 7841, 7855, 7857, 7859, _
7861, 7863, 259, 250, 249, 7911, 361, 7909, 7913, 7915, 7917, 7919, 7921, 432, _
7871, 7873, 7875, 7877, 7879, 234, 233, 232, 7867, 7869, 7865, 7889, 7891, 7893, _
7895, 7897, 244, 243, 242, 7887, 245, 7885, 7899, 7901, 7903, 7905, 7907, 417, _
237, 236, 7881, 297, 7883, 253, 7923, 7927, 7929, 7925, 273, 7844, 7846, 7848, _
7850, 7852, 194, 193, 192, 7842, 195, 7840, 7854, 7856, 7858, 7860, 7862, 258, _
218, 217, 7910, 360, 7908, 7912, 7914, 7916, 7918, 7920, 431, 7870, 7872, 7874, _
7876, 7878, 202, 201, 200, 7866, 7868, 7864, 7888, 7890, 7892, 7894, 7896, 212, _
211, 210, 7886, 213, 7884, 7898, 7900, 7902, 7904, 7906, 416, 205, 204, 7880, 296, _
7882, 221, 7922, 7926, 7928, 7924, 272)
Telex = Array("aas", "aaf", "aar", "aax", "aaj", "aa", "as", "af", "ar", "ax", "aj", "aws", "awf", _
"awr", "awx", "awj", "aw", "us", "uf", "ur", "ux", "uj", "uws", "uwf", "uwr", "uwx", _
"uwj", "uw", "ees", "eef", "eer", "eex", "eej", "ee", "es", "ef", "er", "ex", "ej", _
"oos", "oof", "oor", "oox", "ooj", "oo", "os", "of", "or", "ox", "oj", "ows", "owf", _
"owr", "owx", "owj", "ow", "is", "if", "ir", "ix", "ij", "ys", "yf", "yr", "yx", "yj", _
"dd", "AAS", "AAF", "AAR", "AAX", "AAJ", "AA", "AS", "AF", "AR", "AX", _
"AJ", "AWS", "AWF", "AWR", "AWX", "AWJ", "AW", "US", "UF", "UR", "UX", _
"UJ", "UWS", "UWF", "UWR", "UWX", "UWJ", "UW", "EES", "EEF", "EER", _
"EEX", "EEJ", "EE", "ES", "EF", "ER", "EX", "EJ", "OOS", "OOF", "OOR", _
"OOX", "OOJ", "OO", "OS", "OF", "OR", "OX", "OJ", "OWS", "OWF", "OWR", _
"OWX", "OWJ", "OW", "IS", "IF", "IR", "IX", "IJ", "YS", "YF", "YR", "YX", _
"YJ", "DD")
Telex2Uni = TelexStr
For i = 0 To 133
Telex2Uni = Replace(Telex2Uni, Telex(i), ChrW(MaAcii(i)))
Next i
Telex2Uni = Replace(Telex2Uni, "'", "") ' Neu muon hien thi ko dau thi phai go ky tu ' . Vd: Vi'sual Ba'sic
End Function[/vb]
Sử dụng:
[vb]Private Sub Form_Load()
'Go tieng viet kieu Telex
SetUniFormCaption Me.hWnd, Telex2Uni("Vis duj hieern thij Tieesng Vieejt treen tieeu ddeef Fo'rm")
End Sub[/vb]
Tạo Menu Tiếng Việt:
Bài 1 dòng code = 1 menu đã việt hóa! OK!:
http://caulacbovb.com/forum/viewtopic.php?f=36&t=2011
Tác giả: zZ_Shine_Zz
Tạo Module tên modMenu:
[vb]Option Explicit
'============================================
' Ban co the gui bat ki y kien nao ve dia chi
' gambo_cd3000@yahoo.com
' thanks
'============================================
'============================================
'() () {{___________}} |Author: Tran The Huy
'(^ _ ^) {{ I LOVE AN }} |Ver: 1.00
'_______ {{___________}} |Mail: gambo_cd3000@yahoo.com
'============================================
Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
Public Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoW" (ByVal hMenu As Long, ByVal un As Long, ByVal BOOL As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long
Public Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long
Public Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Public Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As Long
cch As Long
hbmpItem As Long
End Type
Public Const MF_BITMAP = &H4&
Public Const MF_STRING = &H0&
Public Sub ToUniMenu(ByVal hwnd As Long)
Dim hMenu As Long, sMenu As Long, ItemID As Long, CountItem As Long
Dim AdsMenu As New clsArrayVar, AdItemPos As New clsArrayVar
Dim j As Long, k As String * 100, mInfo As MENUITEMINFO
Dim fc As Long
With mInfo
.cbSize = Len(mInfo): .fType = &H200: .fMask = &H10
End With
hMenu = GetMenu(hwnd)
CountItem = GetMenuItemCount(hMenu)
For j = 0 To CountItem - 1
AdsMenu.AddItem hMenu
AdItemPos.AddItem j
Next
Do While CountItem > 0
ItemID = GetMenuItemID(AdsMenu.List(0), AdItemPos.List(0))
If ItemID = -1 Then
ItemID = GetSubMenu(AdsMenu.List(0), AdItemPos.List(0))
fc = GetMenuItemCount(ItemID)
CountItem = CountItem + fc
For j = 0 To fc - 1
AdsMenu.AddItem ItemID
AdItemPos.AddItem j
Next
End If
GetMenuString AdsMenu.List(0), ItemID, k, 50, 0
mInfo.dwTypeData = StrPtr(ToUni(k))
SetMenuItemInfo AdsMenu.List(0), AdItemPos.List(0), 1, mInfo
SetMenuItemBitmaps AdsMenu.List(0), ItemID, 0, frmMain.Picture1.Picture.Handle, frmMain.Picture2.Picture.Handle
CountItem = CountItem - 1
AdItemPos.RemoveItem 0
AdsMenu.RemoveItem 0
fc = -1
Loop
End Sub[/vb]
Tạo Module tên modUniTextVer3:
[vb]Option Explicit
'Version: 3.00. Upgrade by : Tran The Huy
Public Function ToUniByVNI(ByVal sText As String)
Dim i As Integer, j As Integer
Dim sCurChar As String, sPreChar As String, sPreTxt As String
For j = 1 To 2
For i = 2 To Len(sText)
sCurChar = Mid(sText, i, 1)
sPreTxt = Left(sText, i - 2)
sPreChar = Mid(sText, i - 1, 1)
Select Case sCurChar
Case "1"
Select Case sPreChar
'a
Case "a": sText = sPreTxt & ChrW$(&HE1) & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & ChrW$(&HC1) & Right(sText, Len(sText) - i)
Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA5) & Right(sText, Len(sText) - i)
Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA4) & Right(sText, Len(sText) - i)
Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EAF) & Right(sText, Len(sText) - i)
Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EAE) & Right(sText, Len(sText) - i)
'e
Case "e": sText = sPreTxt & ChrW$(&HE9) & Right(sText, Len(sText) - i)
Case "E": sText = sPreTxt & ChrW$(&HC9) & Right(sText, Len(sText) - i)
Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EBF) & Right(sText, Len(sText) - i)
Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EBE) & Right(sText, Len(sText) - i)
'i
Case "i": sText = sPreTxt & ChrW$(&HED) & Right(sText, Len(sText) - i)
Case "I": sText = sPreTxt & ChrW$(&HCD) & Right(sText, Len(sText) - i)
'o
Case "o": sText = sPreTxt & ChrW$(&HF3) & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & ChrW$(&HD3) & Right(sText, Len(sText) - i)
Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED1) & Right(sText, Len(sText) - i)
Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED0) & Right(sText, Len(sText) - i)
Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDB) & Right(sText, Len(sText) - i)
Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDA) & Right(sText, Len(sText) - i)
'u
Case "u": sText = sPreTxt & ChrW$(&HFA) & Right(sText, Len(sText) - i)
Case "U": sText = sPreTxt & ChrW$(&HDA) & Right(sText, Len(sText) - i)
Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EE9) & Right(sText, Len(sText) - i)
Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EE8) & Right(sText, Len(sText) - i)
'y
Case "y": sText = sPreTxt & ChrW$(&HFD) & Right(sText, Len(sText) - i)
Case "Y": sText = sPreTxt & ChrW$(&HDD) & Right(sText, Len(sText) - i)
End Select
Case "2"
Select Case sPreChar
'a
Case "a": sText = sPreTxt & ChrW$(&HE0) & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & ChrW$(&HC0) & Right(sText, Len(sText) - i)
Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA7) & Right(sText, Len(sText) - i)
Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA6) & Right(sText, Len(sText) - i)
Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB1) & Right(sText, Len(sText) - i)
Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB0) & Right(sText, Len(sText) - i)
'e
Case "e": sText = sPreTxt & ChrW$(&HE8) & Right(sText, Len(sText) - i)
Case "E": sText = sPreTxt & ChrW$(&HC8) & Right(sText, Len(sText) - i)
Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC1) & Right(sText, Len(sText) - i)
Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC0) & Right(sText, Len(sText) - i)
'i
Case "i": sText = sPreTxt & ChrW$(&HEC) & Right(sText, Len(sText) - i)
Case "I": sText = sPreTxt & ChrW$(&HCC) & Right(sText, Len(sText) - i)
'o
Case "o": sText = sPreTxt & ChrW$(&HF2) & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & ChrW$(&HD2) & Right(sText, Len(sText) - i)
Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED3) & Right(sText, Len(sText) - i)
Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED2) & Right(sText, Len(sText) - i)
Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDD) & Right(sText, Len(sText) - i)
Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDC) & Right(sText, Len(sText) - i)
'u
Case "u": sText = sPreTxt & ChrW$(&HF9) & Right(sText, Len(sText) - i)
Case "U": sText = sPreTxt & ChrW$(&HD9) & Right(sText, Len(sText) - i)
Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EEB) & Right(sText, Len(sText) - i)
Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEA) & Right(sText, Len(sText) - i)
'y
Case "y": sText = sPreTxt & ChrW$(&H1EF3) & Right(sText, Len(sText) - i)
Case "Y": sText = sPreTxt & ChrW$(&H1EF2) & Right(sText, Len(sText) - i)
End Select
Case "3"
Select Case sPreChar
'a
Case "a": sText = sPreTxt & ChrW$(&H1EA3) & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & ChrW$(&H1EA2) & Right(sText, Len(sText) - i)
Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA9) & Right(sText, Len(sText) - i)
Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA8) & Right(sText, Len(sText) - i)
Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB3) & Right(sText, Len(sText) - i)
Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB2) & Right(sText, Len(sText) - i)
'e
Case "e": sText = sPreTxt & ChrW$(&H1EBB) & Right(sText, Len(sText) - i)
Case "E": sText = sPreTxt & ChrW$(&H1EBA) & Right(sText, Len(sText) - i)
Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC3) & Right(sText, Len(sText) - i)
Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC2) & Right(sText, Len(sText) - i)
'i
Case "i": sText = sPreTxt & ChrW$(&H1EC9) & Right(sText, Len(sText) - i)
Case "I": sText = sPreTxt & ChrW$(&H1EC8) & Right(sText, Len(sText) - i)
'o
Case "o": sText = sPreTxt & ChrW$(&H1ECF) & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & ChrW$(&H1ECE) & Right(sText, Len(sText) - i)
Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED5) & Right(sText, Len(sText) - i)
Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED4) & Right(sText, Len(sText) - i)
Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDF) & Right(sText, Len(sText) - i)
Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDE) & Right(sText, Len(sText) - i)
'u
Case "u": sText = sPreTxt & ChrW$(&H1EE7) & Right(sText, Len(sText) - i)
Case "U": sText = sPreTxt & ChrW$(&H1EE6) & Right(sText, Len(sText) - i)
Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EED) & Right(sText, Len(sText) - i)
Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEC) & Right(sText, Len(sText) - i)
'y
Case "y": sText = sPreTxt & ChrW$(&H1EF7) & Right(sText, Len(sText) - i)
Case "Y": sText = sPreTxt & ChrW$(&H1EF6) & Right(sText, Len(sText) - i)
End Select
Case "4"
Select Case sPreChar
'a
Case "a": sText = sPreTxt & ChrW$(&HE3) & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & ChrW$(&HC3) & Right(sText, Len(sText) - i)
Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EAB) & Right(sText, Len(sText) - i)
Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EAA) & Right(sText, Len(sText) - i)
Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB5) & Right(sText, Len(sText) - i)
Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB4) & Right(sText, Len(sText) - i)
'e
Case "e": sText = sPreTxt & ChrW$(&H1EBD) & Right(sText, Len(sText) - i)
Case "E": sText = sPreTxt & ChrW$(&H1EBC) & Right(sText, Len(sText) - i)
Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC5) & Right(sText, Len(sText) - i)
Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC4) & Right(sText, Len(sText) - i)
'i
Case "i": sText = sPreTxt & ChrW$(&H129) & Right(sText, Len(sText) - i)
Case "I": sText = sPreTxt & ChrW$(&H128) & Right(sText, Len(sText) - i)
'o
Case "o": sText = sPreTxt & ChrW$(&HF5) & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & ChrW$(&HD5) & Right(sText, Len(sText) - i)
Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED7) & Right(sText, Len(sText) - i)
Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED6) & Right(sText, Len(sText) - i)
Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EE1) & Right(sText, Len(sText) - i)
Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EE0) & Right(sText, Len(sText) - i)
'u
Case "u": sText = sPreTxt & ChrW$(&H169) & Right(sText, Len(sText) - i)
Case "U": sText = sPreTxt & ChrW$(&H168) & Right(sText, Len(sText) - i)
Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EEF) & Right(sText, Len(sText) - i)
Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEE) & Right(sText, Len(sText) - i)
'y
Case "y": sText = sPreTxt & ChrW$(&H1EF9) & Right(sText, Len(sText) - i)
Case "Y": sText = sPreTxt & ChrW$(&H1EF8) & Right(sText, Len(sText) - i)
End Select
Case "5"
Select Case sPreChar
'a
Case "a": sText = sPreTxt & ChrW$(&H1EA1) & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & ChrW$(&H1EA0) & Right(sText, Len(sText) - i)
Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EAD) & Right(sText, Len(sText) - i)
Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EAC) & Right(sText, Len(sText) - i)
Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB7) & Right(sText, Len(sText) - i)
Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB6) & Right(sText, Len(sText) - i)
'e
Case "e": sText = sPreTxt & ChrW$(&H1EB9) & Right(sText, Len(sText) - i)
Case "E": sText = sPreTxt & ChrW$(&H1EB8) & Right(sText, Len(sText) - i)
Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC7) & Right(sText, Len(sText) - i)
Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC6) & Right(sText, Len(sText) - i)
'i
Case "i": sText = sPreTxt & ChrW$(&H1ECB) & Right(sText, Len(sText) - i)
Case "I": sText = sPreTxt & ChrW$(&H1ECA) & Right(sText, Len(sText) - i)
'o
Case "o": sText = sPreTxt & ChrW$(&H1ECD) & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & ChrW$(&H1ECC) & Right(sText, Len(sText) - i)
Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED9) & Right(sText, Len(sText) - i)
Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED8) & Right(sText, Len(sText) - i)
Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EE3) & Right(sText, Len(sText) - i)
Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EE2) & Right(sText, Len(sText) - i)
'u
Case "u": sText = sPreTxt & ChrW$(&H1EE5) & Right(sText, Len(sText) - i)
Case "U": sText = sPreTxt & ChrW$(&H1EE4) & Right(sText, Len(sText) - i)
Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EF1) & Right(sText, Len(sText) - i)
Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EF0) & Right(sText, Len(sText) - i)
'y
Case "y": sText = sPreTxt & ChrW$(&H1EF5) & Right(sText, Len(sText) - i)
Case "Y": sText = sPreTxt & ChrW$(&H1EF4) & Right(sText, Len(sText) - i)
End Select
Case "6"
Select Case sPreChar
'a
Case "a": sText = sPreTxt & ChrW$(&HE2) & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & ChrW$(&HC2) & Right(sText, Len(sText) - i)
'e
Case "e": sText = sPreTxt & ChrW$(&HEA) & Right(sText, Len(sText) - i)
Case "E": sText = sPreTxt & ChrW$(&HCA) & Right(sText, Len(sText) - i)
'o
Case "o": sText = sPreTxt & ChrW$(&HF4) & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & ChrW$(&HD4) & Right(sText, Len(sText) - i)
End Select
Case "7"
Select Case sPreChar
'o
Case "o": sText = sPreTxt & ChrW$(&H1A1) & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & ChrW$(&H1A0) & Right(sText, Len(sText) - i)
'u
Case "u": sText = sPreTxt & ChrW$(&H1B0) & Right(sText, Len(sText) - i)
Case "U": sText = sPreTxt & ChrW$(&H1AF) & Right(sText, Len(sText) - i)
End Select
Case "8"
Select Case sPreChar
'a
Case "a": sText = sPreTxt & ChrW$(&H103) & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & ChrW$(&H102) & Right(sText, Len(sText) - i)
End Select
Case "9"
Select Case sPreChar
'd
Case "d": sText = sPreTxt & ChrW$(&H111) & Right(sText, Len(sText) - i)
Case "D": sText = sPreTxt & ChrW$(&H110) & Right(sText, Len(sText) - i)
End Select
End Select
Next i
Next j
ToUniByVNI = sText
End Function
Public Function ToUniByTelex(ByVal sText As String) As String
Dim i As Integer, j As Integer
Dim sCurChar As String, sPreChar As String, sPreTxt As String
Dim cc As String
For j = 1 To 2
For i = 2 To Len(sText)
sCurChar = Mid(sText, i, 1)
sPreTxt = Left(sText, i - 2)
sPreChar = Mid(sText, i - 1, 1)
Select Case LCase(sCurChar)
Case "o"
Select Case sPreChar
Case "o": sText = sPreTxt & "ô" & Right(sText, Len(sText) - i)
Case UCase("o"): sText = sPreTxt & UCase("ô") & Right(sText, Len(sText) - i)
Case "ó": sText = sPreTxt & ChrW(&H1ED1) & Right(sText, Len(sText) - i)
Case UCase("ó"): sText = sPreTxt & UCase(ChrW(&H1ED1)) & Right(sText, Len(sText) - i)
Case "ò": sText = sPreTxt & ChrW(&H1ED3) & Right(sText, Len(sText) - i)
Case UCase("ò"): sText = sPreTxt & UCase(ChrW(&H1ED3)) & Right(sText, Len(sText) - i)
Case ChrW(&H1ECF): sText = sPreTxt & ChrW(&H1ED5) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1ECF)): sText = sPreTxt & UCase(ChrW(&H1ED5)) & Right(sText, Len(sText) - i)
Case "õ": sText = sPreTxt & ChrW(&H1ED7) & Right(sText, Len(sText) - i)
Case UCase("õ"): sText = sPreTxt & UCase(ChrW(&H1ED7)) & Right(sText, Len(sText) - i)
Case ChrW(&H1ECD): sText = sPreTxt & ChrW(&H1ED9) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1ECD)): sText = sPreTxt & UCase(ChrW(&H1ED9)) & Right(sText, Len(sText) - i)
End Select
Case "a"
Select Case sPreChar
Case "a": sText = sPreTxt & "â" & Right(sText, Len(sText) - i)
Case UCase("a"): sText = sPreTxt & UCase("â") & Right(sText, Len(sText) - i)
Case "á": sText = sPreTxt & ChrW(&H1EA5) & Right(sText, Len(sText) - i)
Case UCase("á"): sText = sPreTxt & UCase(ChrW(&H1EA5)) & Right(sText, Len(sText) - i)
Case "à": sText = sPreTxt & ChrW(&H1EA7) & Right(sText, Len(sText) - i)
Case UCase("à"): sText = sPreTxt & UCase(ChrW(&H1EA7)) & Right(sText, Len(sText) - i)
Case ChrW(&H1EA3): sText = sPreTxt & ChrW(&H1EA9) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1EA3)): sText = sPreTxt & UCase(ChrW(&H1EA9)) & Right(sText, Len(sText) - i)
Case "ã": sText = sPreTxt & ChrW(&H1EAB) & Right(sText, Len(sText) - i)
Case UCase("ã"): sText = sPreTxt & UCase(ChrW(&H1EAB)) & Right(sText, Len(sText) - i)
Case ChrW(&H1EA1): sText = sPreTxt & ChrW(&H1EAD) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1EA1)): sText = sPreTxt & UCase(ChrW(&H1EAD)) & Right(sText, Len(sText) - i)
End Select
Case "w"
Select Case sPreChar
Case "a": sText = sPreTxt & ChrW(&H103) & Right(sText, Len(sText) - i)
Case UCase("a"): sText = sPreTxt & UCase(ChrW(&H103)) & Right(sText, Len(sText) - i)
Case "á": sText = sPreTxt & ChrW(&H1EA5 + 9) & Right(sText, Len(sText) - i)
Case UCase("á"): sText = sPreTxt & UCase(ChrW(&H1EA5 + 9)) & Right(sText, Len(sText) - i)
Case "à": sText = sPreTxt & ChrW(&H1EA7 + 9) & Right(sText, Len(sText) - i)
Case UCase("à"): sText = sPreTxt & UCase(ChrW(&H1EA7 + 9)) & Right(sText, Len(sText) - i)
Case ChrW(&H1EA3): sText = sPreTxt & ChrW(&H1EA9 + 9) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1EA3)): sText = sPreTxt & UCase(ChrW(&H1EA9 + 9)) & Right(sText, Len(sText) - i)
Case "ã": sText = sPreTxt & ChrW(&H1EAB + 9) & Right(sText, Len(sText) - i)
Case UCase("ã"): sText = sPreTxt & UCase(ChrW(&H1EAB + 9)) & Right(sText, Len(sText) - i)
Case ChrW(&H1EA1): sText = sPreTxt & ChrW(&H1EAD + 9) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1EA1)): sText = sPreTxt & UCase(ChrW(&H1EAD + 9)) & Right(sText, Len(sText) - i)
Case "o": sText = sPreTxt & ChrW(&H1A1) & Right(sText, Len(sText) - i)
Case UCase("o"): sText = sPreTxt & UCase(ChrW(&H1A1)) & Right(sText, Len(sText) - i)
Case "ó": sText = sPreTxt & ChrW(&H1ED1 + 10) & Right(sText, Len(sText) - i)
Case UCase("ó"): sText = sPreTxt & UCase(ChrW(&H1ED1 + 10)) & Right(sText, Len(sText) - i)
Case "ò": sText = sPreTxt & ChrW(&H1ED3 + 10) & Right(sText, Len(sText) - i)
Case UCase("ò"): sText = sPreTxt & UCase(ChrW(&H1ED3 + 10)) & Right(sText, Len(sText) - i)
Case ChrW(&H1ECF): sText = sPreTxt & ChrW(&H1ED5 + 10) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1ECF)): sText = sPreTxt & UCase(ChrW(&H1ED5 + 10)) & Right(sText, Len(sText) - i)
Case "õ": sText = sPreTxt & ChrW(&H1ED7 + 10) & Right(sText, Len(sText) - i)
Case UCase("õ"): sText = sPreTxt & UCase(ChrW(&H1ED7 + 10)) & Right(sText, Len(sText) - i)
Case ChrW(&H1ECD): sText = sPreTxt & ChrW(&H1ED9 + 10) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1ECD)): sText = sPreTxt & UCase(ChrW(&H1ED9 + 10)) & Right(sText, Len(sText) - i)
Case "u": sText = sPreTxt & ChrW(&H1B0) & Right(sText, Len(sText) - i)
Case UCase("u"): sText = sPreTxt & UCase(ChrW(&H1B0)) & Right(sText, Len(sText) - i)
Case "ú": sText = sPreTxt & ChrW(&H1EE9) & Right(sText, Len(sText) - i)
Case UCase("ú"): sText = sPreTxt & UCase(ChrW(&H1EE9)) & Right(sText, Len(sText) - i)
Case "ù": sText = sPreTxt & ChrW(&H1EEB) & Right(sText, Len(sText) - i)
Case UCase("ù"): sText = sPreTxt & UCase(ChrW(&H1EEB)) & Right(sText, Len(sText) - i)
Case ChrW(&H1EE7): sText = sPreTxt & ChrW(&H1EED) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1EE7)): sText = sPreTxt & UCase(ChrW(&H1EED)) & Right(sText, Len(sText) - i)
Case ChrW(&H169): sText = sPreTxt & ChrW(&H1EEF) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H169)): sText = sPreTxt & UCase(ChrW(&H1EEF)) & Right(sText, Len(sText) - i)
Case ChrW(&H1EE5): sText = sPreTxt & ChrW(&H1EF1) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1EE5)): sText = sPreTxt & UCase(ChrW(&H1EF1)) & Right(sText, Len(sText) - i)
End Select
Case "e"
Select Case sPreChar
Case "e": sText = sPreTxt & "ê" & Right(sText, Len(sText) - i)
Case UCase("e"): sText = sPreTxt & UCase("ê") & Right(sText, Len(sText) - i)
Case "é": sText = sPreTxt & ChrW(&H1EBF) & Right(sText, Len(sText) - i)
Case UCase("é"): sText = sPreTxt & UCase(ChrW(&H1EBF)) & Right(sText, Len(sText) - i)
Case "è": sText = sPreTxt & ChrW(&H1EC1) & Right(sText, Len(sText) - i)
Case UCase("è"): sText = sPreTxt & ChrW(&H1EC1) & Right(sText, Len(sText) - i)
Case ChrW(&H1EBB): sText = sPreTxt & ChrW(&H1EC3) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1EBB)): sText = sPreTxt & UCase(ChrW(&H1EC3)) & Right(sText, Len(sText) - i)
Case ChrW(&H1EBD): sText = sPreTxt & ChrW(&H1EC5) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1EBD)): sText = sPreTxt & UCase(ChrW(&H1EC5)) & Right(sText, Len(sText) - i)
Case ChrW(&H1EB9): sText = sPreTxt & ChrW(&H1EC7) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1EB9)): sText = sPreTxt & UCase(ChrW(&H1EC7)) & Right(sText, Len(sText) - i)
End Select
Case "d"
Select Case sPreChar
Case "d": sText = sPreTxt & ChrW(&H111) & Right(sText, Len(sText) - i)
Case UCase("d"): sText = sPreTxt & UCase(ChrW(&H110)) & Right(sText, Len(sText) - i)
End Select
Case "s"
Select Case sPreChar
Case "o": sText = sPreTxt & "ó" & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & UCase("ó") & Right(sText, Len(sText) - i)
Case "a": sText = sPreTxt & "á" & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & UCase("á") & Right(sText, Len(sText) - i)
Case "e": sText = sPreTxt & "é" & Right(sText, Len(sText) - i)
Case "E": sText = sPreTxt & UCase("é") & Right(sText, Len(sText) - i)
Case "u": sText = sPreTxt & "ú" & Right(sText, Len(sText) - i)
Case "U": sText = sPreTxt & UCase("ú") & Right(sText, Len(sText) - i)
Case "i": sText = sPreTxt & "í" & Right(sText, Len(sText) - i)
Case "I": sText = sPreTxt & UCase("í") & Right(sText, Len(sText) - i)
Case "y": sText = sPreTxt & "ý" & Right(sText, Len(sText) - i)
Case "Y": sText = sPreTxt & UCase("ý") & Right(sText, Len(sText) - i)
Case "ô": sText = sPreTxt & ChrW(&H1ED1) & Right(sText, Len(sText) - i)
Case UCase("ô"): sText = sPreTxt & UCase(ChrW(&H1ED1)) & Right(sText, Len(sText) - i)
Case ChrW(&H1A1): sText = sPreTxt & ChrW(&H1EDB) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1A1)): sText = sPreTxt & UCase(ChrW(&H1EDB)) & Right(sText, Len(sText) - i)
Case "â": sText = sPreTxt & ChrW(&H1EA5) & Right(sText, Len(sText) - i)
Case UCase("â"): sText = sPreTxt & UCase(ChrW(&H1EA5)) & Right(sText, Len(sText) - i)
Case ChrW(&H103): sText = sPreTxt & ChrW(&H1EAF) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H103)): sText = sPreTxt & UCase(ChrW(&H1EAF)) & Right(sText, Len(sText) - i)
Case "ê": sText = sPreTxt & ChrW(&H1EBF) & Right(sText, Len(sText) - i)
Case UCase("ê"): sText = sPreTxt & UCase(ChrW(&H1EBF)) & Right(sText, Len(sText) - i)
Case ChrW(&H1B0): sText = sPreTxt & ChrW(&H1EE9) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1B0)): sText = sPreTxt & UCase(ChrW(&H1EE9)) & Right(sText, Len(sText) - i)
End Select
Case "f"
Select Case sPreChar
Case "o": sText = sPreTxt & "ò" & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & UCase("ò") & Right(sText, Len(sText) - i)
Case "a": sText = sPreTxt & "à" & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & UCase("à") & Right(sText, Len(sText) - i)
Case "e": sText = sPreTxt & "è" & Right(sText, Len(sText) - i)
Case "E": sText = sPreTxt & UCase("è") & Right(sText, Len(sText) - i)
Case "u": sText = sPreTxt & "ù" & Right(sText, Len(sText) - i)
Case "U": sText = sPreTxt & UCase("ù") & Right(sText, Len(sText) - i)
Case "i": sText = sPreTxt & "ì" & Right(sText, Len(sText) - i)
Case "I": sText = sPreTxt & UCase("ì") & Right(sText, Len(sText) - i)
Case "y": sText = sPreTxt & ChrW(&H1EF3) & Right(sText, Len(sText) - i)
Case "Y": sText = sPreTxt & UCase(ChrW(&H1EF3)) & Right(sText, Len(sText) - i)
Case "ô": sText = sPreTxt & ChrW(&H1ED1 + 2) & Right(sText, Len(sText) - i)
Case UCase("ô"): sText = sPreTxt & UCase(ChrW(&H1ED1 + 2)) & Right(sText, Len(sText) - i)
Case ChrW(&H1A1): sText = sPreTxt & ChrW(&H1EDB + 2) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1A1)): sText = sPreTxt & UCase(ChrW(&H1EDB + 2)) & Right(sText, Len(sText) - i)
Case "â": sText = sPreTxt & ChrW(&H1EA5 + 2) & Right(sText, Len(sText) - i)
Case UCase("â"): sText = sPreTxt & UCase(ChrW(&H1EA5 + 2)) & Right(sText, Len(sText) - i)
Case ChrW(&H103): sText = sPreTxt & ChrW(&H1EAF + 2) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H103)): sText = sPreTxt & UCase(ChrW(&H1EAF + 2)) & Right(sText, Len(sText) - i)
Case "ê": sText = sPreTxt & ChrW(&H1EBF + 2) & Right(sText, Len(sText) - i)
Case UCase("ê"): sText = sPreTxt & UCase(ChrW(&H1EBF + 2)) & Right(sText, Len(sText) - i)
Case ChrW(&H1B0): sText = sPreTxt & ChrW(&H1EE9 + 2) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1B0)): sText = sPreTxt & UCase(ChrW(&H1EE9 + 2)) & Right(sText, Len(sText) - i)
End Select
Case "r"
Select Case sPreChar
Case "o": sText = sPreTxt & ChrW(&H1ECF) & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & UCase(ChrW(&H1ECF)) & Right(sText, Len(sText) - i)
Case "a": sText = sPreTxt & ChrW(&H1EA3) & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & UCase(ChrW(&H1EA3)) & Right(sText, Len(sText) - i)
Case "e": sText = sPreTxt & ChrW(&H1EBB) & Right(sText, Len(sText) - i)
Case "E": sText = sPreTxt & UCase(ChrW(&H1EBB)) & Right(sText, Len(sText) - i)
Case "u": sText = sPreTxt & ChrW(&H1EE7) & Right(sText, Len(sText) - i)
Case "U": sText = sPreTxt & UCase(ChrW(&H1EE7)) & Right(sText, Len(sText) - i)
Case "i": sText = sPreTxt & ChrW(&H1EC9) & Right(sText, Len(sText) - i)
Case "I": sText = sPreTxt & UCase(ChrW(&H1EC9)) & Right(sText, Len(sText) - i)
Case "y": sText = sPreTxt & ChrW(&H1EF7) & Right(sText, Len(sText) - i)
Case "Y": sText = sPreTxt & UCase(ChrW(&H1EF7)) & Right(sText, Len(sText) - i)
Case "ô": sText = sPreTxt & ChrW(&H1ED1 + 4) & Right(sText, Len(sText) - i)
Case UCase("ô"): sText = sPreTxt & UCase(ChrW(&H1ED1 + 4)) & Right(sText, Len(sText) - i)
Case ChrW(&H1A1): sText = sPreTxt & ChrW(&H1EDB + 4) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1A1)): sText = sPreTxt & UCase(ChrW(&H1EDB + 4)) & Right(sText, Len(sText) - i)
Case "â": sText = sPreTxt & ChrW(&H1EA5 + 4) & Right(sText, Len(sText) - i)
Case UCase("â"): sText = sPreTxt & UCase(ChrW(&H1EA5 + 4)) & Right(sText, Len(sText) - i)
Case ChrW(&H103): sText = sPreTxt & ChrW(&H1EAF + 4) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H103)): sText = sPreTxt & UCase(ChrW(&H1EAF + 4)) & Right(sText, Len(sText) - i)
Case "ê": sText = sPreTxt & ChrW(&H1EBF + 4) & Right(sText, Len(sText) - i)
Case UCase("ê"): sText = sPreTxt & UCase(ChrW(&H1EBF + 4)) & Right(sText, Len(sText) - i)
Case ChrW(&H1B0): sText = sPreTxt & ChrW(&H1EE9 + 4) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1B0)): sText = sPreTxt & UCase(ChrW(&H1EE9 + 4)) & Right(sText, Len(sText) - i)
End Select
Case "x"
Select Case sPreChar
Case "o": sText = sPreTxt & "õ" & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & UCase("õ") & Right(sText, Len(sText) - i)
Case "a": sText = sPreTxt & "ã" & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & UCase("ã") & Right(sText, Len(sText) - i)
Case "e": sText = sPreTxt & ChrW(&H1EBD) & Right(sText, Len(sText) - i)
Case "E": sText = sPreTxt & UCase(ChrW(&H1EBD)) & Right(sText, Len(sText) - i)
Case "u": sText = sPreTxt & ChrW(&H169) & Right(sText, Len(sText) - i)
Case "U": sText = sPreTxt & UCase(ChrW(&H169)) & Right(sText, Len(sText) - i)
Case "i": sText = sPreTxt & ChrW(&H129) & Right(sText, Len(sText) - i)
Case "I": sText = sPreTxt & UCase(ChrW(&H129)) & Right(sText, Len(sText) - i)
Case "y": sText = sPreTxt & ChrW(&H1EF7 + 2) & Right(sText, Len(sText) - i)
Case "Y": sText = sPreTxt & UCase(ChrW(&H1EF7 + 2)) & Right(sText, Len(sText) - i)
Case "ô": sText = sPreTxt & ChrW(&H1ED1 + 6) & Right(sText, Len(sText) - i)
Case UCase("ô"): sText = sPreTxt & UCase(ChrW(&H1ED1 + 6)) & Right(sText, Len(sText) - i)
Case ChrW(&H1A1): sText = sPreTxt & ChrW(&H1EDB + 6) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1A1)): sText = sPreTxt & UCase(ChrW(&H1EDB + 6)) & Right(sText, Len(sText) - i)
Case "â": sText = sPreTxt & ChrW(&H1EA5 + 6) & Right(sText, Len(sText) - i)
Case UCase("â"): sText = sPreTxt & UCase(ChrW(&H1EA5 + 6)) & Right(sText, Len(sText) - i)
Case ChrW(&H103): sText = sPreTxt & ChrW(&H1EAF + 6) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H103)): sText = sPreTxt & UCase(ChrW(&H1EAF + 6)) & Right(sText, Len(sText) - i)
Case "ê": sText = sPreTxt & ChrW(&H1EBF + 6) & Right(sText, Len(sText) - i)
Case UCase("ê"): sText = sPreTxt & UCase(ChrW(&H1EBF + 6)) & Right(sText, Len(sText) - i)
Case ChrW(&H1B0): sText = sPreTxt & ChrW(&H1EE9 + 6) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1B0)): sText = sPreTxt & UCase(ChrW(&H1EE9 + 6)) & Right(sText, Len(sText) - i)
End Select
Case "j"
Select Case sPreChar
Case "o": sText = sPreTxt & ChrW(&H1ECD) & Right(sText, Len(sText) - i)
Case "O": sText = sPreTxt & UCase(ChrW(&H1ECD)) & Right(sText, Len(sText) - i)
Case "a": sText = sPreTxt & ChrW(&H1EA1) & Right(sText, Len(sText) - i)
Case "A": sText = sPreTxt & UCase(ChrW(&H1EA1)) & Right(sText, Len(sText) - i)
Case "e": sText = sPreTxt & ChrW(&H1EB9) & Right(sText, Len(sText) - i)
Case "E": sText = sPreTxt & UCase(ChrW(&H1EB9)) & Right(sText, Len(sText) - i)
Case "u": sText = sPreTxt & ChrW(&H1EE5) & Right(sText, Len(sText) - i)
Case "U": sText = sPreTxt & UCase(ChrW(&H1EE5)) & Right(sText, Len(sText) - i)
Case "i": sText = sPreTxt & ChrW(&H1ECB) & Right(sText, Len(sText) - i)
Case "I": sText = sPreTxt & UCase(ChrW(&H1ECB)) & Right(sText, Len(sText) - i)
Case "y": sText = sPreTxt & ChrW(&H1EF5) & Right(sText, Len(sText) - i)
Case "Y": sText = sPreTxt & UCase(ChrW(&H1EF5)) & Right(sText, Len(sText) - i)
Case "ô": sText = sPreTxt & ChrW(&H1ED1 + 8) & Right(sText, Len(sText) - i)
Case UCase("ô"): sText = sPreTxt & UCase(ChrW(&H1ED1 + 8)) & Right(sText, Len(sText) - i)
Case ChrW(&H1A1): sText = sPreTxt & ChrW(&H1EDB + 8) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1A1)): sText = sPreTxt & UCase(ChrW(&H1EDB + 8)) & Right(sText, Len(sText) - i)
Case "â": sText = sPreTxt & ChrW(&H1EA5 + 8) & Right(sText, Len(sText) - i)
Case UCase("â"): sText = sPreTxt & UCase(ChrW(&H1EA5 + 8)) & Right(sText, Len(sText) - i)
Case ChrW(&H103): sText = sPreTxt & ChrW(&H1EAF + 8) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H103)): sText = sPreTxt & UCase(ChrW(&H1EAF + 8)) & Right(sText, Len(sText) - i)
Case "ê": sText = sPreTxt & ChrW(&H1EBF + 8) & Right(sText, Len(sText) - i)
Case UCase("ê"): sText = sPreTxt & UCase(ChrW(&H1EBF + 8)) & Right(sText, Len(sText) - i)
Case ChrW(&H1B0): sText = sPreTxt & ChrW(&H1EE9 + 8) & Right(sText, Len(sText) - i)
Case UCase(ChrW(&H1B0)): sText = sPreTxt & UCase(ChrW(&H1EE9 + 8)) & Right(sText, Len(sText) - i)
End Select
End Select
Next i
Next j
ToUniByTelex = sText
End Function
Public Function ToUni(ByVal sText As String, Optional Spec_Char As String = "*", Optional Auto_VNI_TEX_012 As Byte = 0) As String
Dim cA() As String, j As Long, nText As String
cA = Split(Replace(sText, "\enter", Chr(13) & Chr(10), 1, Len(sText), 0), Spec_Char)
For j = 1 To UBound(cA) Step 2
Select Case Auto_VNI_TEX_012
Case 0
cA(j) = ToUniByVNI(ToUniByTelex(cA(j)))
Case 1
cA(j) = ToUniByVNI(cA(j))
Case 2
cA(j) = ToUniByTelex(cA(j))
End Select
Next
For j = 0 To UBound(cA)
nText = nText & cA(j)
Next
ToUni = nText
End Function
Public Sub ToUniObj(ByVal Obj As Object)
On Error Resume Next
If Obj.Text <> "" Then
Obj.Text = ToUni(Obj.Text)
Else
Obj.Caption = ToUni(Obj.Caption)
End If
End Sub
[/vb]
Download:
http://caulacbovb.com/forum/download/file.php?id=1594
- Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
- Tìm kiếm trước khi đặt câu hỏi
Tổng hợp Unicode trong VB6
- VuVanHoanh
- Thành viên danh dự
- Posts: 1259
- Joined: Thu 03/06/2010 9:23 pm
- Location: Kim Sơn - Đông Triều - Quảng Ninh
- Has thanked: 22 times
- Been thanked: 138 times
- Contact:
-
- Thành viên danh dự
- Posts: 109
- Joined: Sun 27/12/2009 6:37 pm
- Location: Tam Kỳ
- Has thanked: 3 times
- Been thanked: 9 times
Re: Tổng hợp Unicode trong VB6
Thêm mấy bài đây:
http://caulacbovb.com/forum/viewtopic.php?t=20638
http://caulacbovb.com/forum/viewtopic.php?t=20607
http://caulacbovb.com/forum/viewtopic.php?t=20631
Control:
Vào bài hướng dẫn tạo Control của anh Hưng. Trong đó có hướng dẫn tạo UniControl đó.
http://caulacbovb.com/forum/viewtopic.php?f=22&t=196
Hay cái iVB UnicodeControls v2.0 của iVB Group:
http://caulacbovb.com/forum/viewtopic.php?f=36&t=307
http://caulacbovb.com/forum/viewtopic.php?t=20638
http://caulacbovb.com/forum/viewtopic.php?t=20607
http://caulacbovb.com/forum/viewtopic.php?t=20631
Control:
Vào bài hướng dẫn tạo Control của anh Hưng. Trong đó có hướng dẫn tạo UniControl đó.
http://caulacbovb.com/forum/viewtopic.php?f=22&t=196
Hay cái iVB UnicodeControls v2.0 của iVB Group:
http://caulacbovb.com/forum/viewtopic.php?f=36&t=307
-
- Thành viên danh dự
- Posts: 109
- Joined: Sun 27/12/2009 6:37 pm
- Location: Tam Kỳ
- Has thanked: 3 times
- Been thanked: 9 times
Re: Tổng hợp Unicode trong VB6
UniMsgBox:
Thêm code vào một Module.
Trong Form, khi nào dùng thì gọi hàm UniMsgBox (Gõ kiểu VNI).
Thêm code vào một Module.
Trong Form, khi nào dùng thì gọi hàm UniMsgBox (Gõ kiểu VNI).
-
- Thành viên chính thức
- Posts: 19
- Joined: Fri 18/01/2013 8:56 am
- Location: Giao Thủy - Nam Định
- Has thanked: 8 times
- Been thanked: 1 time
- Contact:
Re: Tổng hợp Unicode trong VB6
Ae cho hoi mấy cái Funtion trên dùng thế nào vậy
ToUniByVNI ; UniMsgBox; ToUniByTelex ...
>> Mình đã add module nhưng gọi hàm không thấy kết quả
ToUniByVNI ; UniMsgBox; ToUniByTelex ...
>> Mình đã add module nhưng gọi hàm không thấy kết quả
- tungblt
- Điều hành viên
- Posts: 550
- Joined: Mon 22/12/2008 5:22 pm
- Location: quy nhơn
- Has thanked: 8 times
- Been thanked: 77 times
- Contact:
Re: Tổng hợp Unicode trong VB6
Label1.Caption = TounibyVni ("ca6u la5c bo65 VB")
UniMsgBox "nội dung thông báo","Tiêu đề thông báo"
Label1.Caption = ToUniByTelex ("caau lajc booj VB")
UniMsgBox "nội dung thông báo","Tiêu đề thông báo"
Label1.Caption = ToUniByTelex ("caau lajc booj VB")
love
Return to “[VB] Bài viết hướng dẫn”
Who is online
Users browsing this forum: No registered users and 0 guests