Joe Strazzere - All Things Quality

Visit my new blog at http://strazzere.blogspot.com/


December 1, 2005 - WinTask - GetResolution

Posted in WinTask

'
' GetResolution
'

dim x as unsigned
dim y as unsigned

x = External("user32","GetSystemMetrics",0)
y = External("user32","GetSystemMetrics",1)

msgbox("Screen Resolution is "+str$(x)+" x "+Str$(y),,"GetResolution")


<- Last Page :: Next Page ->

About Me

A gathering place for information and ideas about Quality Assurance, Testing, and other useful topics.

Problems cannot be solved by the same level of thinking that created them. - A. Einstein

Search This Site

Translate This Site

RSS Feed

• Subscribe

Twitter

• @jstrazzere

Categories

• Life
• QA
• Sports
• Tools
• WinTask
• Work in General

What I'm Reading Now