Unicode tiếng Việt trong VBA Excel

2 Responses

1. hands says:

   17/01/2023 at 8:35 am

   Dear

   Hiện tại các lable hay text thì e dùng hàm trên OK, xuất được tiếng việt, nhưng khi đặt cho form thì cũng bị lỗi, nhờ ad xem lại thử
   2002

   Thử đoạn code này của anh @Nguyễn Duy Tuân thử xem được không?

   Option Explicit
   Private Const WM_SETTEXT = &HC
   #If Win64 Then
       Declare PtrSafe Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
       Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
   #Else
       Private Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
       Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   #End If
   Private Sub UserForm_Initialize()
       Dim hwnd&, sUnicode$
       hwnd = FindWindow("ThunderDFrame", Caption)  ' Tim HWnd cua UserForm
       sUnicode = "L" & ChrW(7863) & "p l" & ChrW(7841) & "i tiêu " & ChrW(273) & ChrW(7873) & " cho dòng d" & ChrW(7919) & " li" & ChrW(7879) & "u"
       DefWindowProc hwnd, WM_SETTEXT, 0, StrPtr(sUnicode)
   End Sub

   Đưa toàn bộ phần khai báo hàm (Declare….) vô Module chứ không phải Form module thử xem.
   Office bác này là 64bit, nên khai báo trên thiếu từ khóa Private.
   Bác add thêm Private và trước Declare 2 dòng đó
   À máy tôi Win7 32, Office 32bit 2007, chạy đoạn code của bác Tuân cũng không ra. Test với hàm API IsWindowUnicode thì ra FALSE (0), tức Ansi Window
   Bạn giaiphap dùng Office gì vậy, chạy giúp tôi đoạn code này thử

   Private Const WM_SETTEXT = &HC
   #If VBA7 Then
       Private Declare PtrSafe Function DefWindowProc Lib "user32" Alias "DefWindowProcW" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
       Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
       Private Declare PtrSafe Function IsWindowUnicode Lib "USER32" (ByVal hWnd As LongPtr) As Long
   #Else
       Private Declare Function DefWindowProc Lib "USER32" Alias "DefWindowProcW" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
       Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
       Private Declare Function IsWindowUnicode Lib "USER32" (ByVal hWnd As Long) As Long
   #End If
   
   Private Sub TestSetUniCaption()
   #If VBA7 Then
       Dim hWnd As LongPtr
   #Else
       Dim hWnd As Long
   #End If
       Dim sUnicode As String
   
   hWnd = FindWindow("ThunderDFrame", Caption)  ' Tim HWnd cua UserForm
       MsgBox IsWindowUnicode(hWnd)
   
   sUnicode = "L" & ChrW(7863) & "p l" & ChrW(7841) & "i tiêu " & ChrW(273) & ChrW(7873) & " cho dòng d" & ChrW(7919) & " li" & ChrW(7879) & "u"
       DefWindowProc hWnd, WM_SETTEXT, 0, StrPtr(sUnicode)
   End Sub

   Win và Office đều 32bit, kết quả hiển thị tiêu đề Unicode được nhưng hàm IsWindowUnicode kết quả bằng 0.

   Lạ ta, Office bạn ver mấy ? VBA bạn là VBA7 hay 6, file fm20.dll trong %Windows%System32 có version là bao nhiêu ? Xem giúp mình ?
   Mình Office2007, VBA6, FM20.dll có ver là 12.0.4518.1014
   Bạn debug giúp mình, xem kỹ là DefWindowProcW hay DefWindowProcA, code của bác Tuan đấy

   Là cái này DefWindowProcW.

   Phải chỉnh lại vì Office của bạn ấy là 64bit, khai báo hwnd as Long sẽ bị báo lỗi Type mismatch. Phải là LongPtr
   Sữa lại thành giống code tui vừa post
   Code của bác Tuân lúc đầu cả 2 đều là DefWindowProcA

   Ở máy tôi 32bit chạy tốt, @ThangCuAnh chạy 64bit thử xem có được không?

   Không được bạn, mình đã thử rồi mới đăng lên đây. Máy hiện tại tại VP mình đang ngồi là Offcie 2007, 32bit, Win7
   Bạn up giúp mình file FM20.dll trong thư mục Windows System32 của bạn nhé. Để tối về mình RE và compare xem sao.

   Thử test lại file này xem sao.

   Hì hì, tìm ra lý do rồi, do Theme API của Windows. Để desktop về theme Windows Classis thì sẽ không được, do Windows dùng Ansi API để xử lý các non Unicode Window. Còn có theme thì Windows dùng Theme API Unicode cho tất cả các Window.
   File Caption Unicode up lần sau của bác giaiphap, các bác test giùm cu anh em đoạn code sau cái.

   Option Explicit
   
   Private Sub UserForm_Initialize()
       Dim strUniCaption As String
   
   strUniCaption = "L" & ChrW(7863) & "p l" & ChrW(7841) & "i tiêu " & ChrW(273) & ChrW(7873) & " cho dòng d" & ChrW(7919) & " li" & ChrW(7879) & "u"
       SetUniText Me, strUniCaption
   
   MsgBox Me.Caption
       MsgBox StrComp(Me.Caption, strUniCaption, vbTextCompare)
       MsgBox StrComp(Me.Caption, strUniCaption, vbBinaryCompare)
   End Sub

   Nghi là do ông ClearType font của Quýnh đâu can thiệp nữa.
   Cái vụ Caption UserForm này còn dài dài, nhiều chuyện để moi đây.

   Me.Caption luôn trả vể AnsiString. Kể cả dùng các hàm API GetWindowTextW (unicode) để lấy text cũng chỉ ra AnsiString. Mặc dù vậy, trong handle của userform này luôn lưu chuỗi unicode cho Caption từ lúc chạy DefWindowProcW. Bạn luôn coi Caption của userform chính là chuối strUniCaption mà đã nhồi vào bởi DefWindowProcW trước đó.

   Vụ này mình làm nhiều năm trước và chỉ dừng lại ở việc tạo unicode trên title của userform. Việc Theme Windows là classic sẽ không thể hiển thị unicode thì chưa tìm được cách nào khác đơn giản. Lập trình kỳ công hơn thì vẫn có thể viết được unicode trên Title của userform nhưng chắc là không đáng để lao công khổ tứ, vì dù hiển thị được thì còn phải làm quá nhiều thứ nữa khi người dùng đổi Theme hoặc vào "Advance Appearance" chỉnh sửa tùm lum để đảm bảo việc hiển thị nó luôn cân đối.

   Làm cách nào bác Tuân biết UserForm Caption get property trả về Ansi string vậy bác ? Bác đã từng debug vào đó chưa ?

   Userform tạo ra từ hàm CreateWindowA nên handle của nó không phải unicode (dùng hàm IsUnicodeWindow là thấy). Khi handle không phải unicode thì các hàm API đi theo nó trong thủ tục chính WndProc làm theo Ansi – Người lập trình có thể dùng phương pháp Subclass để hack vào trong này để thay đổi… Theo chuẩn gọi API thì Userform.Caption thì bên trong mấy anh lập trình sẽ dùng hàm GetWindowTextA (vì handle không phải unicode) để trả về cho property_get gọi nó. Các cách lấy text của handle hệ thống làm bên trong là SendMessage(,.. ,WM_GETTEXT,…), khi đó thằng WndProc nhận thông điệp WM_GETTEXT để trả về,….

   Lý thuyết lập trình là vậy, nhưng internal của UserForm (FM20.dll) làm sao thì phải "rờ em" nó mới biết chứ, đâu nói không vậy được.

   Reply
2. hands says:

   17/01/2023 at 8:38 am

   Tôi đang tạo một UserForm chạy trên VBA7 và Win64 với chức năng hiển thị form Min, Max, Resize, và tôi cho nó thêm caption tiếng Việt.
   Tất cả đều OK, tuy nhiên một vấn đề khác mà tôi không khắc phục được đó là nếu thủ tục tạo Caption tiếng Việt được kích hoạt thì nó không show form Max khi load lên, ngược lại, bỏ câu lệnh đó thì nó show được form Max! Nhờ các anh chị hướng dẫn khắc phục giúp.

   Thủ tục tạo UserForm có 3 nút Close, Max, Min & Normal:

   Sub CreateMaxMinResizeForm(ByVal lngFrmWndHdl)
       Dim lngStyle
       lngStyle = GetWindowLongPtr(lngFrmWndHdl, GWL_STYLE)
       lngStyle = lngStyle Or WS_SYSMENU       'Add SystemMenu
       lngStyle = lngStyle Or WS_MINIMIZEBOX   'Add MinimizeBox
       lngStyle = lngStyle Or WS_MAXIMIZEBOX   'Add MaximizeBox
       lngStyle = lngStyle + (WS_THICKFRAME)
       SetWindowLongPtr lngFrmWndHdl, GWL_STYLE, lngStyle
       DrawMenuBar lngFrmWndHdl
   End Sub

   Thủ tục Unicode trên Caption của UserForm:

   Sub SetUniCaption(ByVal usfHwnd, ByVal UnicodeString As String)
       DefWindowProc usfHwnd, WM_SETTEXT, 0, StrPtr(UnicodeString)
   End Sub

   Các sự kiện trong UserForm:

   Private hwnd
   
   ''Thủ tục show form Max:
   Private Sub UserForm_Activate()
       ShowWindow FindWindowA(vbNullString, Me.Caption), Show_MAXIMIZE
   End Sub
   
   Private Sub UserForm_Initialize()
       hwnd = FindWindow("ThunderDFrame", Me.Caption)
       ''The same:
       'hwnd = FindWindowA(vbNullString, Me.Caption)
   
   Dim strFormCaption As String
       strFormCaption = "  HOÀNG TR" & ChrW(7884) & "NG NGH" & ChrW(296) & "A, Phone: 0938.520.520, Mail: NghiaCSG@gmail.com"
       CreateMaxMinResizeForm hwnd
   
   ''Tai sao co dong duoi day thi khi load form khong the show max form duoc?
   
   SetUniCaption hwnd, strFormCaption
   End Sub

   Tôi đã nói không biết bao nhiêu lần rồi. Đã dịch thì dịch đến cùng, không dịch nửa vời. Vì trên máy khác có thể không hiển thị chuẩn.
   Trên máy tôi

   2005

   do không dịch HOÀNG.
   ————-
   Sửa

   ShowWindow FindWindowA(vbNullString, Me.Caption), Show_MAXIMIZE

   thành

   ShowWindow hwnd, Show_MAXIMIZE

   do không dịch HOÀNG.

   —————-
   Rất dễ hiểu là vì Form đã nhận Handle khi chưa chuyển tiếng Việt
   sau khi chuyển tiếng Việt Hàm FindWindow không đủ khả năng tìm ký tự ngoài UTF-8.

   Cách giải quyết, có thể là Lưu lại Handle của Form trước khi chuyển tiếng Việt.
   Hoặc dùng hàm FindWindowW
   —————-

   Khai báo FindWindowW hoặc Alias "FindWindowW"
   hWnd = FindWindow("ThunderDFrame" , VBA.StrConv(Form.Caption, vbUnicode))

   Trên OfficeX32 thì chạy tốt mà cái #If VBA7 And Win64 Then Nhìn vào trong code rất đẹp
   Còn trên Officex64 thì nó báo API màu đỏ …. tất nhiên là nó cũng chạy rất tốt …. Nhưng nhìn vào VBA thấy đỏ code nó ko đẹp tí nào
   Sao Bill vẻ ra rắc rối thế nhỉ

   Tiện có thớt này hỏi ké chút
   Có cách nào xử lý đỏ code như mô tả đó khi xài #If VBA7 And Win64 Then trên Officex64 hay không ???!!! … hay ta xoá nó đi là xong khỏi nhiều chuyện he ???!!! 😀 -0-0-0-
   231360

   Thì nếu chỉ dành riêng cho Win 64bit và Office 64 bit thì xóa cha nó cho rồi, khỏi IF éc gì cả.

   Reply