Cái này mình cũng chịu Vì việc Hook vào Window cùng với các hàm API mình không rõ cái MSgboxW này cũng là do mình sưu tầm và thay thế một chút thui mà tiện đây mình có tải Hàm Msgboxw tiếng việt của anh Nguyễn trung tín bạn nào có thời gian ngồi ngâm cứu mấy cái icon cho mọi người nhé!
Public Function MsgBoxW(strText As String, Optional iButtons As VbMsgBoxStyle = vbOKOnly, Optional strTitle As String, _
Optional hWnd As Long = &H0) As VbMsgBoxResult
Dim sTam1 As String, sTam2 As String
sTam1 = UNC(strText)
sTam2 = UNC(strTitle)
hDlgHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, Application.Hinstance, GetCurrentThreadId())
MsgBoxW = MessageBoxW(0, StrPtr(sTam1), StrPtr(sTam2), iButtons Or MB_TASKMODAL)
End FunctionPublic Function MsgBoxW(strText As String, Optional iButtons As VbMsgBoxStyle = vbOKOnly, Optional strTitle As String, _
Optional hWnd As Long = &H0) As VbMsgBoxResult
Dim sTam1 As String, sTam2 As String
sTam1 = UNC(strText)
sTam2 = UNC(strTitle)
hDlgHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, Application.Hinstance, GetCurrentThreadId())
MsgBoxW = MessageBoxW([COLOR="#FF0000"]Application.hWnd[/COLOR], StrPtr(sTam1), StrPtr(sTam2), iButtons Or MB_TASKMODAL)
End FunctionOption Explicit
Public hDlgHook As Long
Private Const FONT_FACE = "Verdana"
Public Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const WM_SETFONT = &H30
Private Const MB_TASKMODAL = &H2000&
Public Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal h As Long, ByVal W As Long, ByVal e As Long, _
ByVal o As Long, ByVal W As Long, ByVal i As Long, ByVal u As Long, ByVal s As Long, ByVal c As Long, _
ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal ParenthWnd As Long, _
ByVal ChildhWnd As Long, ByVal ClassName As String, ByVal Caption As String) As Long
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, _
ByVal lpfn As Long, ByVal hMod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Public Declare Function SetWindowTextW Lib "user32" (ByVal hWnd As Long, ByVal lpString As Long) As Long
Public Declare Function MessageBoxW Lib "user32.dll" (ByVal hWnd As Long, ByVal lpText As Long, _
ByVal lpCaption As Long, ByVal uType As Long) As LongPrivate Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim hStatic1 As Long, hStatic2 As Long, hButton As Long, hFont As Long
HookProc = CallNextHookEx(hDlgHook, nCode, wParam, lParam)
If nCode = HCBT_ACTIVATE Then
hFont = CreateFont(15, 0, 0, 0, 500, 0, 0, 0, 0, 0, 0, 0, 0, FONT_FACE)
hStatic1 = FindWindowEx(wParam, 0&, "Static", vbNullString)
hStatic2 = FindWindowEx(wParam, hStatic1, "Static", vbNullString)
If hStatic2 = 0 Then hStatic2 = hStatic1
SendMessage hStatic2, WM_SETFONT, hFont, ByVal 1&
hButton = FindWindowEx(wParam, 0&, "Button", "OK")
SendMessage hButton, WM_SETFONT, hFont, 0
SetWindowTextW hButton, StrPtr(UNC("&§ång ý"))
hButton = FindWindowEx(wParam, 0&, "Button", "&Yes")
SendMessage hButton, WM_SETFONT, hFont, 0
SetWindowTextW hButton, StrPtr(UNC("&Cã"))
hButton = FindWindowEx(wParam, 0&, "Button", "&No")
SendMessage hButton, WM_SETFONT, hFont, 0
SetWindowTextW hButton, StrPtr(UNC("&Kh«ng"))
hButton = FindWindowEx(wParam, 0&, "Button", "Cancel")
SendMessage hButton, WM_SETFONT, hFont, 0
SetWindowTextW hButton, StrPtr(UNC("&Hñy bá"))
hButton = FindWindowEx(wParam, 0&, "Button", "&Retry")
SendMessage hButton, WM_SETFONT, hFont, 0
SetWindowTextW hButton, StrPtr(UNC("&Thö l¹i"))
hButton = FindWindowEx(wParam, 0&, "Button", "&Ignore")
SendMessage hButton, WM_SETFONT, hFont, 0
SetWindowTextW hButton, StrPtr(UNC("&Lê ®i"))
hButton = FindWindowEx(wParam, 0&, "Button", "&Abort")
SendMessage hButton, WM_SETFONT, hFont, 0
SetWindowTextW hButton, StrPtr(UNC("&Xua61t ra *.txt"))
hButton = FindWindowEx(wParam, 0&, "Button", "Help")
SendMessage hButton, WM_SETFONT, hFont, 0
SetWindowTextW hButton, StrPtr(UNC("Gióp ®ì"))
UnhookWindowsHookEx hDlgHook
End If
End FunctionPublic Function MsgBoxW(strText As String, Optional iButtons As VbMsgBoxStyle = vbOKOnly, Optional strTitle As String, _
Optional hWnd As Long = &H0) As VbMsgBoxResult
Dim sTam1 As String, sTam2 As String
sTam1 = UNC(strText)
sTam2 = UNC(strTitle)
hDlgHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, Application.Hinstance, GetCurrentThreadId())
MsgBoxW = MessageBoxW(Application.hWnd, StrPtr(sTam1), StrPtr(sTam2), iButtons Or MB_TASKMODAL)
End FunctionPublic Declare Function DeleteObject Lib "gdi32" Alias "DeleteObject" (ByVal hObject As Long) As Long
Public hFont As Long [COLOR="#008000"]'Lưu giá trị handle của font đã tạo[/COLOR]Public Function MsgBoxW(strText As String, Optional iButtons As VbMsgBoxStyle = vbOKOnly, Optional strTitle As String, _
Optional hWnd As Long = &H0) As VbMsgBoxResult
Dim sTam1 As String, sTam2 As String
sTam1 = UNC(strText)
sTam2 = UNC(strTitle)
hDlgHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, Application.Hinstance, GetCurrentThreadId())
MsgBoxW = MessageBoxW(Application.hWnd, StrPtr(sTam1), StrPtr(sTam2), iButtons Or MB_TASKMODAL)
[COLOR="#FF0000"] DeleteObject hFont[/COLOR]
End Function
Bạn ptlong04x1 xin chờ chút nhé chắc đến chiều mình cập nhật bản mới sẽ bỏ các thao tác đăng ký và cho phép người dùng sử dụng nhưng dưới mật khẩu phân quyền của người cài đặt sử dụng nó. Mà khi viết đề tài này mình đã ghi rõ muốn mọi người cùng nhau phát triển để tiện dụng nhất khi sử dụng Excel mà!!!!!!!!!!!!!!! hãy nghiên cứu và phát triển lên đi bạn
