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

[Hoàng Trọng Nghĩa]

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:









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
[CODE]

 

[Nguyễn Duy Tuân]

Tay chưa vợ 2 này thiết kế đẹp ghê, cho copy là tài liệu nhé!

Bác đưa vào tài liệu và không quên trích dẫn tên các nick (không phải chỉ một tác giả) trong GPE tạo ra hay góp phần làm bộ code hoàn chỉnh, sự đồng ý của tác giả gốc là ok rồi.

 

[Hoàng Trọng Nghĩa]

Tay chưa vợ 2 này thiết kế đẹp ghê, cho copy là tài liệu nhé!

Được thầy Hướng chiếu cố thì vinh hạnh quá rồi còn gì! Xem qua bài này luôn anh!
http://www.giaiphapexcel.com/forum/...ệnh-theo-ý-muốn!-(Phần-3)&p=684876#post684876

 

[PhanTuHuong]

Được thầy Hướng chiếu cố thì vinh hạnh quá rồi còn gì! Xem qua bài này luôn anh!
http://www.giaiphapexcel.com/forum/...ệnh-theo-ý-muốn!-(Phần-3)&p=684876#post684876

Anh khiêm tốn quá
Tôi thích nhất là tổng hợp được kiến thức của các cao thủ trên GPE.