Printable View
Please help me on this one. I'm trying to get the position of any browser address bar. i've already tried the GetCursorPos API but it seems to cumbersome.
What i have in mind is to make a command button that once activated, will enabled you to draw a selection box (around the address bar) and record the initial and final X,Y values of the selection box.
If you know how or have a better idea for doing that, please tell me.
Thanks
Use the GetWindowRect api function:
Code:Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As _
Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal _
hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click()
Dim ieframe As Long, workera As Long, rebarwindow As Long
Dim comboboxex As Long, combobox As Long, editx As Long
Dim intWidth As Integer
Dim intHeight As Integer
Dim strMsg As String
Dim TheRect As RECT
ieframe = FindWindow("ieframe", vbNullString)
workera = FindWindowEx(ieframe, 0&, "workera", vbNullString)
rebarwindow = FindWindowEx(workera, 0&, "rebarwindow32", vbNullString)
comboboxex = FindWindowEx(rebarwindow, 0&, "comboboxex32", vbNullString)
combobox = FindWindowEx(comboboxex, 0&, "combobox", vbNullString)
editx = FindWindowEx(combobox, 0&, "edit", vbNullString)
' size and position values stored in TheRect
Call GetWindowRect(editx, TheRect)
intWidth = TheRect.Right - TheRect.Left
intHeight = TheRect.Bottom - TheRect.Top
strMsg = strMsg & "Left: " & TheRect.Left & vbCrLf
strMsg = strMsg & "Top: " & TheRect.Top & vbCrLf
strMsg = strMsg & "Width: " & intWidth & vbCrLf
strMsg = strMsg & "Height: " & intHeight & vbCrLf
MsgBox strMsg
End Sub
Thanks Matthew !
Eventhough it's a little complicated for a beginner like me to use (didn't manage to make it work), it was very helpful: i now know where to start (found a reference on allapi.net) and with a little bit of work, it "should" be ok:)
What do you mean you didn't get it to work? It's all there. Just put it all into the form declarations. Make sure an IE window is open, place a command button on the form, click it and it should tell you where the IE Combobox/Address bar is located.
[Edited by Matthew Gates on 11-19-2000 at 07:04 PM]
Hello, i don't know why it didn't work eventhough all the necessary code was there! Anyway here's what i find (from allapi.net and with some mod...) and it works like a charm!
so thanks a lot, i think i should buy a book on VB API calls... so much to learn...
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Pt As POINTAPI, mWnd As Long, WR As RECT, nDC As Long
GetCursorPos Pt
mWnd = WindowFromPoint(Pt.X, Pt.Y)
GetWindowRect mWnd, WR
X1.Caption = (WR.Left)
Y1.Caption = (WR.Top)
Xwidth.Caption = ((WR.Right) - (WR.Left))
Yheight.Caption = ((WR.Bottom) - (WR.Top))
End Sub