Very quick question. Userform control coordinates.

  • Thread starter Thread starter Legacy 98055
  • Start date Start date
L

Legacy 98055

Guest
Are in points? Correct? For example, the left coordinate of some control on a userform. Would be in points? I am trying to get the window handle for a frame control that is drawn onto a userform. Because the class name is the same for all msform windowed controls, I figured that I would use the WindowFromPoint API function to get the handle by figuring out the xy coordinates of the frame.

Thanks for any help!
 

Excel Facts

Back into an answer in Excel
Use Data, What-If Analysis, Goal Seek to find the correct input cell value to reach a desired result
Sort by date Sort by votes
<table border="1" bgcolor="White"><caption ALIGN=left><font size="2" face=Courier New>Example VBA Code:</FONT></caption><tr><td><font size="2" face=Courier New>  <font color="#008000">'The width of a pixel in Excel's userform coordinates</font>
  <font color="#008000">'thanks to Stephen Bullen</font>
  <font color="#0000A0">Public</font> <font color="#0000A0">Property</font> <font color="#0000A0">Get</font> PointsPerPixelX() <font color="#0000A0">As</font> <font color="#0000A0">Double</font>
       <font color="#0000A0">Dim</font> hDC <font color="#0000A0">As</font> <font color="#0000A0">Long</font>
       hDC = GetDC(0)
      <font color="#008000"> 'A point is defined as 1/72 of an inch and LOGPIXELSX returns</font>
      <font color="#008000"> 'the number of pixels per logical inch, so divide them to give</font>
      <font color="#008000"> 'the width of a pixel in Excel's userform coordinates</font>
       PointsPerPixelX = 72 / GetDeviceCaps(hDC, LOGPIXELSX)
       ReleaseDC 0, hDC
  
  
  <font color="#0000A0">End</font> <font color="#0000A0">Property</font>
  
  
  <font color="#008000">'The width of a pixel in Excel's userform coordinates</font>
  <font color="#008000">'thanks to Stephen Bullen</font>
  <font color="#0000A0">Public</font> <font color="#0000A0">Property</font> <font color="#0000A0">Get</font> PointsPerPixelY() <font color="#0000A0">As</font> <font color="#0000A0">Double</font>
       <font color="#0000A0">Dim</font> hDC <font color="#0000A0">As</font> <font color="#0000A0">Long</font>
       hDC = GetDC(0)
      <font color="#008000"> 'A point is defined as 1/72 of an inch and LOGPIXELSX returns</font>
      <font color="#008000"> 'the number of pixels per logical inch, so divide them to give</font>
      <font color="#008000"> 'the width of a pixel in Excel's userform coordinates</font>
       PointsPerPixelY = 72 / GetDeviceCaps(hDC, LOGPIXELSY)
       ReleaseDC 0, hDC
  <font color="#0000A0">End</font> <font color="#0000A0">Property</font>
  
</FONT></td></tr></table>

<table border="1" bgcolor="White"><caption ALIGN=left><font size="2" face=Courier New>Example VBA Code:</FONT></caption><tr><td><font size="2" face=Courier New>  <font color="#0000A0">Private</font> <font color="#0000A0">Declare</font> <font color="#0000A0">Function</font> GetDC <font color="#0000A0">Lib</font> "user32" (ByVal hwnd <font color="#0000A0">As</font> Long) <font color="#0000A0">As</font> <font color="#0000A0">Long</font>
  <font color="#0000A0">Private</font> <font color="#0000A0">Declare</font> <font color="#0000A0">Function</font> GetDeviceCaps <font color="#0000A0">Lib</font> "Gdi32" (ByVal hDC <font color="#0000A0">As</font> Long, <font color="#0000A0">ByVal</font> _
  nIndex <font color="#0000A0">As</font> Long) <font color="#0000A0">As</font> <font color="#0000A0">Long</font>
  <font color="#0000A0">Private</font> <font color="#0000A0">Declare</font> <font color="#0000A0">Function</font> ReleaseDC <font color="#0000A0">Lib</font> "user32" (ByVal hwnd <font color="#0000A0">As</font> Long, <font color="#0000A0">ByVal</font> _
  hDC <font color="#0000A0">As</font> Long) <font color="#0000A0">As</font> <font color="#0000A0">Long</font>
  <font color="#0000A0">Private</font> <font color="#0000A0">Const</font> LOGPIXELSX = 88
  <font color="#0000A0">Private</font> <font color="#0000A0">Const</font> LOGPIXELSY = 90
</FONT></td></tr></table>
 
Upvote 0
Userform Controls are windowless so I don't think you can get their handles.

Regards.
 
Upvote 0
The frame, listbox, and MultiPage controls are windows. The problem is the class name is the same for the client area and all of the above listed controls. So I have no way to distinguish one from the other or I could simply use the API FindWindowEx function. That is why I figured I would use the WindowFromPoint API function. Any other ideas?
 
Upvote 0
Tom

I think Jaafar is right.

What are you actually trying to achieve?
 
Upvote 0
Hi Jaafar and Norie. The question relates to this post.

It works, but you have to click on the frame. This way, I can use the cursor position to get frame1's handle by way of the frame1's click event. This may prove good enough for the OP. I don't know? My thought was to get the rectangle of the userform and then add the left position (converted from points to pixels) of the frame. What do you think?

ScreenCaptureControlOnUserform.zip

EDIT: See the code. There is a handle for the three controls listed.
 
Upvote 0
Tom

What is the OP trying to do?

I think there might be other solutions than the Windows API to place an image
from a userform on a spreadsheet.

I'm not going to try and check them out or look for them as it's rather late here, but I'll have a look in the morning/afternoon/whatever.:)
 
Upvote 0
I don't know of any that would take a snapshot of a frame control and the child controls within? Maybe there is... I'm not even 100% sure that's what the OP wants. No matter, I do a lot of screenshots for various reasons but have been using Paint Shop Pro, which has a decent screen capture function, but I would like to create my own from Excel anyway. So this will be a good start.

Am still looking for an alternative suggestion for getting the window handle for the frame control on a userform. I'm betting there is a better way than using the WindowFromPoint API function.

Thanks guys!
 
Upvote 0
Tom

Sorry, I just reread your post and the link.:oops:

I think you might be on the right lines with the API, I can recall responding to
a similar post and directing the OP to some similar code.

I think that involved capturing some "freeform" drawing on a userform.
 
Upvote 0
I didn't know those particular controls had a hwnd !!

Anyway, have you thought about using the ClientToScreen API ?

Add a CommandButton1 to your form and add the following code in the userform module :

I assume the frame is named frame1

Code: 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function WindowFromPoint Lib "user32" _
(ByVal xPoint As Long, ByVal yPoint As Long) As Long

Private Declare Function ClientToScreen Lib "user32" _
(ByVal hwnd As Long, lpPoint As POINTAPI) As Long
 
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hDC As Long, ByVal _
nIndex As Long) As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal _
hDC As Long) As Long

Private Const LOGPIXELSX = 88
Private Const LOGPIXELSY = 90
 
Private Type POINTAPI
    x As Long
    y As Long
End Type


'The width of a pixel in Excel's userform coordinates
  'thanks to Stephen Bullen
  Public Function PointsPerPixelX() As Double
       Dim hDC As Long
       hDC = GetDC(0)
       'A point is defined as 1/72 of an inch and LOGPIXELSX returns
       'the number of pixels per logical inch, so divide them to give
       'the width of a pixel in Excel's userform coordinates
       PointsPerPixelX = 72 / GetDeviceCaps(hDC, LOGPIXELSX)
       ReleaseDC 0, hDC
   
   
  End Function

'The HEIGHT of a pixel in Excel's userform coordinates
  'thanks to Stephen Bullen

  Public Function PointsPerPixelY() As Double
       Dim hDC As Long
       hDC = GetDC(0)
       'A point is defined as 1/72 of an inch and LOGPIXELSY returns
       'the number of pixels per logical inch, so divide them to give
       'the width of a pixel in Excel's userform coordinates
       PointsPerPixelY = 72 / GetDeviceCaps(hDC, LOGPIXELSY)
       ReleaseDC 0, hDC
   
   
  End Function



' displays the frame hwnd
Sub CommandButton1_Click()

    Dim P As POINTAPI
    Dim lngHwnd, lngFrameHwnd As Long
    Dim lngLeftInPixels, lngTopInPixels As Long
    
    lngHwnd = FindWindow(vbNullString, Me.Caption)
    lngLeftInPixels = Me.Frame1.Left / PointsPerPixelX
    lngTopInPixels = Me.Frame1.Top / PointsPerPixelY
    P.x = lngLeftInPixels
    P.y = lngTopInPixels
    ClientToScreen lngHwnd, P
    lngFrameHwnd = WindowFromPoint(P.x, P.y)
    MsgBox "The Frame handle is :  " & lngFrameHwnd

End Sub


Regards.
 
Upvote 0
You must log in or register to reply here.

Similar threads

Artik
  • Question Question
VBA code to click Image in WebBrowser control.
Replies
4
Views
337
Artik
Artik
F
  • Question Question
Making a UserForm behave as a Tool Window for another process
Replies
3
Views
368
fitzmorrispr
F
S
  • Solved
VBA Populate userform dynamically with custom class Frame
Replies
1
Views
411
saboh12617
S
S
  • Solved
VBA linking Class(es) and Userforms
Replies
4
Views
538
Jaafar Tribak
Jaafar Tribak
Edgar_
  • Question Question
Finding the right arguments for Windows API
Replies
2
Views
353
Edgar_
Edgar_

Forum statistics

Threads
1,224,881
Messages
6,181,540
Members
453,054
Latest member
ezzat

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top