- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,717
- Giới tính
- Nam
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:
Một số hình ảnh sinh động của Phiên bản này:
Hàm MyUniMsgBox:
Mã:
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]
Lần chỉnh sửa cuối:
