escritorio de windows desde vb
Como puedo saber que resolución tiene el escritorio de windows al cargar un form. Para cambiar las características del form dinámicamente.
Me conformaría con la lista de equivalencias entre twips y resolución del escritorio.
ej. 15,15 640x480
Me conformaría con la lista de equivalencias entre twips y resolución del escritorio.
ej. 15,15 640x480
Usa las siguientes funciones:
objeto.ScaleX(ancho, escalaOrig, escalaDest)
objeto.ScaleY(ancho, escalaOrig, escalaDest)
objeto.ScaleX(ancho, escalaOrig, escalaDest)
objeto.ScaleY(ancho, escalaOrig, escalaDest)
Utilice el objeto Screen.
dim px as long
dim py as long
px=screen.widthscreen.twipsperpixel
py=screen.heightscreen.twipsperpixel
debug.print "Resolución: " & cstr(px) & "x" & cstr(py)
dim px as long
dim py as long
px=screen.widthscreen.twipsperpixel
py=screen.heightscreen.twipsperpixel
debug.print "Resolución: " & cstr(px) & "x" & cstr(py)
Hehe, pequeña corrección:
px=screen.widthscreen.twipsperpixelX
py=screen.heightscreen.twipsperpixelY
Los valores almacenados en px y py son valores en pixels.
px=screen.widthscreen.twipsperpixelX
py=screen.heightscreen.twipsperpixelY
Los valores almacenados en px y py son valores en pixels.
