- Tham gia
- 17/8/08
- Bài viết
- 8,655
- Được thích
- 16,712
- 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:
![Msg1.jpg Msg1.jpg](https://www.giaiphapexcel.com/diendan/data/attachments/110/110836-e0dfe5a3e323a27feb51ffe22d35b2f8.jpg)
![Msg2.jpg Msg2.jpg](https://www.giaiphapexcel.com/diendan/data/attachments/110/110837-a405689da69d59e11934d7d055cbc9ca.jpg)
![Msg3.jpg Msg3.jpg](https://www.giaiphapexcel.com/diendan/data/attachments/110/110838-e4e664c8a93089244b8636196b4bccbc.jpg)
![Msg4.jpg Msg4.jpg](https://www.giaiphapexcel.com/diendan/data/attachments/110/110839-5ebae91bab5729ef12fbb3e8d656ced3.jpg)
Hàm MyUniMsgBox:
Một số hình ảnh sinh động của Phiên bản này:
![Msg1.jpg Msg1.jpg](https://www.giaiphapexcel.com/diendan/data/attachments/110/110836-e0dfe5a3e323a27feb51ffe22d35b2f8.jpg)
![Msg2.jpg Msg2.jpg](https://www.giaiphapexcel.com/diendan/data/attachments/110/110837-a405689da69d59e11934d7d055cbc9ca.jpg)
![Msg3.jpg Msg3.jpg](https://www.giaiphapexcel.com/diendan/data/attachments/110/110838-e4e664c8a93089244b8636196b4bccbc.jpg)
![Msg4.jpg Msg4.jpg](https://www.giaiphapexcel.com/diendan/data/attachments/110/110839-5ebae91bab5729ef12fbb3e8d656ced3.jpg)
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]
File đính kèm
Lần chỉnh sửa cuối: