Anh ơi! Đúng như Hai2hai nói, món này cần đến hàm API đấy!
. Cần chịu đổi mới nữa.
Ah... tôi thì chẳng ngại gì cả! Có điều cái gì cũng phải từ từ... nó mới thấm lâu!Em thấy không cái gì là không thể học được cả. Cần có đam mê, đầu tư thời gian, điều kiện về tư liệu thời đại này có lẽ không thiếu. Thấy anh em trên GPE rất sáng tạo, nghiền ngẫm công thức & VBA, nhưng khi nói tới Windows API là đa số ngại bàn đến
Bạn làm thế nào mà OK, tôi test thử thì thấy cái Msgbox vẫn đững nguyên vị trí giữa màn hình còn, cái của sổ của Excel lại bị dịch xuống theo tọa độ nhập vào.
Trong sub này:
Sub TestMsgBox()
MsgBoxPos "Set non-Center Position", _
vbOKOnly, _
"Message Box Hooking", _
400, 300
End SubCó lẽ anh nhập sô thế nào đó vượt khả năng tính toán của Windows mới có hiện tượng này... chứ em test có vấn đề gì đâu!
Không tính toán gì, chỉ thử TestMsgBox
Anh đóng cửa số VBE lại rồi chạy code sẽ không có hiện tượng đó xảy ra!
Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Declare Function GetActiveWindow Lib "user32.dll" () As LongPrivate Function MsgBoxHookProc(ByVal lMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
If lMsg = HCBT_ACTIVATE Then[COLOR="SeaGreen"] 'Kiểm tra cửa sổ hoạt động[/COLOR]
[COLOR="SeaGreen"] 'Modified by Nguyen Duy Tuan
'Begin checking class for MsgBox Window
'wParam is the handle of Window[/COLOR]
Dim cClsName As String [COLOR="SeaGreen"]'Nhận tên Class của cửa sổ[/COLOR]
Dim x As Long [COLOR="SeaGreen"]'Xác định số ký tự của chỗi[/COLOR]
cClsName = Space(32)
x = GetClassName(wParam, cClsName, 32)
cClsName = Left(cClsName, x) [COLOR="SeaGreen"]'string convertion[/COLOR]
If cClsName = "#32770" Then [COLOR="SeaGreen"]'Kiểm tra Class có phải của cửa sổ MsgBox không[/COLOR]
[COLOR="SeaGreen"]' Change position[/COLOR]
SetWindowPos wParam, 0, msgbox_x, msgbox_y, _
0, 0, SWP_NOSIZE + SWP_NOZORDER
[COLOR="SeaGreen"]' Release the Hook[/COLOR]
UnhookWindowsHookEx hHook
hHook = 0
MsgBoxHookProc = True
End If
End If
MsgBoxHookProc = False
End Function
