convert screen resolution to pixels

?? You need the current resolution in pixels? (SystemInformation.PrimaryMonitorSize.ToString())
Or you want to capture the screen?

I don't get it either...if you're working in VB.Net then everything is in PIXELS already...

Can you explain more?

i was looking for a way to make the current resolution into pixels so that i could use coordinates for a mouse event..... But when you change screen resolution it changes where buttons, and other click-able stuff is positioned... this is what i came up with after some googling

my current screen resolution  1440x900
the coordinates of my mouse event     (30000,20000)

So if another monitor is 1280x1024 you would plug those into corresponding iWidth and iHeight

basically its a percentage problem


dest_x = (30000 * (iWidth / 1440))
dest_y = (20000 * (iHeight / 900))


I still have to test this

What version VB are you using?...you tagged it as VB.Net.  If this is the case then everything is already in pixels and you wouldn't be getting 30000 or 20000.  Are you working in VB6 by chance?  (it works in TWIPS)

I use VB express through microsoft.... i was pretty sure that was vb.net or closely compatable.... but if corner to corner is 0,0 to 65565,65565   it seems to be hitting the right spot on the screen

"the coordinates of my mouse event     (30000,20000)"

So you're saying you have some kind of container that is 30,000 pixels wide by 20,000 pixels high?!

What kind of control is it?...the coords in .Net, even for the Move() event is still in Pixels.

If you have a different coordinate system of some kind then cK- gave you one way to get the resolution.

You could also do:

        Dim rc As Rectangle = Screen.PrimaryScreen.Bounds
        MessageBox.Show(rc.Width & "x" & rc.Height)

hopefully this will help clear up the confusion as to how I get huge numbers.




'the below declaration is on one line... what would we do without word wrap?....

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
 
    Public Const MOUSEEVENTF_MOVE As Integer = &H1
   Public Const MOUSEEVENTF_LEFTDOWN As Integer = &H2
   Public Const MOUSEEVENTF_LEFTUP As Integer = &H4
   Public Const MOUSEEVENTF_ABSOLUTE As Integer = &H8000



'set the coordinates of the mouse
       Dim dest_x
       Dim dest_y

       dest_x = (30000 * (iWidth / 1440))
       dest_y = (16500 * (iHeight / 900))


'this actually moves the mouse to specified coordinates
mouse_event( _
       MOUSEEVENTF_ABSOLUTE + _
       MOUSEEVENTF_MOVE + _
       MOUSEEVENTF_LEFTDOWN + _
       MOUSEEVENTF_LEFTUP, _
       dest_x, dest_y, 0, 0)

mouse_event() also expects SCREEN COORDS IN PIXELS too...

So you want to click at a specific position on the screen?  (based on "percentage")

I would use Cursor.Position() to move the mouse and then click without coords like this:

    Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2
    Private Const MOUSEEVENTF_LEFTUP As Integer = &H4
 
    Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8
    Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10
 
    Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, _
        ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, _
        ByVal dwExtraInfo As Integer)
 
    Private Sub ClickAt(ByVal x As Integer, ByVal y As Integer, ByVal LeftClick As Boolean, ByVal RestorePosition As Boolean)
        Dim pt As Point = Cursor.Position
        Cursor.Position = New Point(x, y)
        If LeftClick Then
            mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        Else
            mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
            mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
        End If
        If RestorePosition Then
            Cursor.Position = pt
        End If
    End Sub

If you wanted 3/4ths of the way to the right of the screen and 1/2 way down:

        Dim percentX As Double = 0.75
        Dim percentY As Double = 0.5
        Dim rc As Rectangle = Screen.PrimaryScreen.Bounds
        ClickAt(rc.Width * percentX, rc.Height * percentY, True, False)

I'll see if I can get it working

Are you clicking on an external button or something?  If you want it fullproof then get a HANDLE to the external window and get its screen position with GetWindowRect().

You can get handles in various ways inclucing EnunWindows() and/or FindWindow()/FindWindowEx().

If you explain the "big picture" we can make better suggestions....  =)

Originally I needed an IE window to open maximized and simulate a user clicking a button.  (I could not get VB to see the web button through coding)

All that works fine on my screen 1440x900

Then I realized that I needed this to run on different computers with different resolutions ex. 1280x768

I noticed that the mouse will click the exact same spot no matter what resolution the screen was in which due to different resolutions the locations of the  web page buttons move.

Now i'm trying to compensate so that my button click is accurate.  (when i change resolutions it's only off like .5 inches lol so close yet so far)

I tried opening the window as a certain size ex. 800x600 and having it set in a specific location every time... using setwindowpos function... I could not get that to work... or a movewindow function... also failed.....  trying to figure out the ratios seems like the best option because the down and dirty of it is that it's all math based......I was looking for a fool proof solution nothing else i tried has worked...

You can automate some things in IE...just depends on how the button was created.  For standard html stuff:
http://www.experts-exchange.com/Programming/Languages/.NET/Visual_Basic.NET/Q_22980842.html

Some sites allow data to be posted directly (as part of the URL) with httpwebrequest.

If it's flash based then you'd probably have to go your current route.

If you say so...you sure that will work across ALL monitors?...or just yours in different resolutions?...

Good luck!