Tặng Hàm MsgBox Việt hóa font Unicode tuyệt đẹp! (Phần 2 – 32bit/64bit)

Nhu cầu Việt hóa cao cho các thông điệp bằng MsgBox nên tôi lại tiếp tục với phiên bản 2 có thể chạy trên Win32bit và Win64bit.

Một số hình ảnh sinh động của Phiên bản này:

162

Hàm MyUniMsgBox:

Function MyUniMsgBox(ByVal msgTitle As String, _
                     Optional msgText As String, _
                     Optional msgButtonType As MsoAlertButtonType, _
                     Optional msgIconType As MsoAlertIconType, _
                     Optional msgDefaultType As MsoAlertDefaultType) As VbMsgBoxResult
    ''---------------------------------------------------------------------------------------------------
    ''Cau truc: MyUniMsgBox TieuDe (bat buoc), [NoiDung], [KieuNutLenh], [KieuIcon], [KieuNutLenhMacDinh]
    ''---------------------------------------------------------------------------------------------------
    hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, 0, GetCurrentThreadId)
    On Error Resume Next
    MyUniMsgBox = Assistant.DoAlert(msgTitle, _
                                    msgText, _
                                    msgButtonType, _
                                    msgIconType, _
                                    msgDefaultType, _
                                    msoAlertCancelDefault, _
                                    False)
    If Err.Number Then
    Err.Clear
    MyUniMsgBox = Assistant.DoAlert(msgTitle, _
                                    msgText, _
                                    msgButtonType, _
                                    msgIconType, _
                                    msoAlertDefaultFirst, _
                                    msoAlertCancelDefault, _
                                    False)
    End If
End Function

www.giaiphapexcel.com/diendan/threads/t%E1%BA%B7ng-h%C3%A0m-msgbox-vi%E1%BB%87t-h%C3%B3a-font-unicode-tuy%E1%BB%87t-%C4%91%E1%BA%B9p-ph%E1%BA%A7n-2-32bit-64bit.109175/#post682368

Khóa học SprinGO phù hợp

Thiết kế Tổng đãi ngộ (Total Rewards) theo khung SHRM

Khóa học “Thiết kế Tổng phần thưởng (Total Reward) chuẩn khung SHRM” giúp bạn nắm vững toàn bộ hệ thống đãi ngộ theo chuẩn...

Xem khóa học