RE:URGENTE!!!! API's de resolucion de pantalla
Supongo que ya leistes la auyuda de Visual Basic, y ya pusistes la opcion "Buscar" de este foro, y no encontrastes la respuesta ¿Verdad?
Supongo que ya probastes hacerlo con el objeto Screen y ya intentastes algo como esto:
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
Si mal no recuerdo, la api para poder obtener la resolución actual es:
GetDeviceCaps
Tenia un programa de ejemplo pero no lo encontre.
No me quede con la curiosidad, cheque un libro que tengo de Apis, y un poco de codigos de ejemplos y me puse a buscar hasta que encontre las constantes para obtener la resolucion en x y.
Aqui esta un ejemplo:
'--- En un formulario teclea
'
Const Horizontal = 8
Const Vertical = 10
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 Sub Form_Click()
Dim hdcscreen As Long
Dim X As Integer, Y As Integer
Dim X2 As Integer, Y2 As Integer
'-- Primero la forma facil:
X = Screen.Width / Screen.TwipsPerPixelX
Y = Screen.Height / Screen.TwipsPerPixelY
Print "Con el objeto Screen"
Print X
Print Y
'-- Ahora la forma dificil:
hdcscreen = GetDC(hNull)
X2 = GetDeviceCaps(hdcscreen, Horizontal)
Y2 = GetDeviceCaps(hdcscreen, Vertical)
Print "Con las Apis de windows"
Print X2
Print Y2
End Sub
'-------
Saludos y espero te sirvan
-
Mike79
