以下指令是什麼意思

請教大大，以下VBA，每行指令是什麼意思，謝謝!

'**Win32 API Declarations
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal IpClassName As String, ByVal IpWindowName As String) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, IpRect As RECT) As Long

'**Win32 API User Defined Types
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub test()
Dim Rec As RECT
'Get Left, Right, Top and Bottom of Form1
GetWindowRect GetWindowHandle, Rec
'Set Cursor position on X
SetCursorPos Rec.Right - 600, Rec.Top + 400
End Sub

Private Function GetWindowHandle() As Long
Const CLASSNAME_M**cel="XLMAIN"
'Gets the Apps window handle, since you can't use App.hInstance in VBA (VB Only)
GetWindowHandle = FindWindow(CLASSNAME_M**cel, vbNullString)
End Function

樓主熱帖

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2010-11-5 00:06 | 只看該作者

SUB TEST以上的是API定義,用來呼叫WINDOW系統的"小程序"
這裡有3個"小程序":FindWindow,SetCursorPos,GetWindowRect

Private Sub test()
Dim Rec As RECT 這句你可以當是存坐標的變量REC
GetWindowRect GetWindowHandle, Rec 把EXCEL的坐標放到REC
SetCursorPos Rec.Right - 600, Rec.Top + 400 把老鼠放到EXCEL右上角向左600點位和上方對下400點位
End Sub

GetWindowHandle:
XLMAIN是EXCEL的"系統名稱" FINDWINDOW 用來找出EXCEL的"ID: (即HANDLE)
用來作日後指定版面做操作,如TEST下的SETCURSORPOS

GetWindowHandle可寫成
Private Function GetWindowHandle() As Long
GetWindowHandle = FindWindow("XLMAIN", vbNullString)
End Function

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

3^#

發表於 2010-11-5 02:19 | 只看該作者

SUB TEST以上的是API定義,用來呼叫WINDOW系統的"小程序"
這裡有3個"小程序":FindWindow,SetCursorPos,GetW ...
kimbal 發表於 2010-11-5 00:06

謝謝版大詳細說明!理解中...

TOP