Visual Basic - Resolucion de pantalla

Life is soft - evento anual de software empresarial
 
Vista:

Resolucion de pantalla

Publicado por Salvador Rangel (1 intervención) el 15/08/2005 23:20:54
tengo aproximadamente un par de meses programando en VB, y ahora eh comprado una nueva laptop para seguir programando, la cuestion es que mi nueva laptop tiene una patalla widescreen de 15.4 pulgadas y una resoucion de 1280 x 800, al momento de cambiar el programa realizado en esta pc, se veran igual los formularios en diferentes resoluciones???
antes programaba a 800 x 600 y cuando utlizaba el programa en una pantalla de 1024 x 768, se acomodaban diferentes los formularios, alguien odria ayudare?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Resolucion de pantalla

Publicado por Karlo (5 intervenciones) el 16/08/2005 03:23:13
Caundo haces una aplicacion teniendo una resolucion determinada, tus formularios se veran grandes al correr la aplicacion desde otro ordenador con menor resolucion, debido a las medidas establecidas.

Pero tengo este API que al menos te puede avisar cuando se corre en una Resolucion menor a la necesitada.

Type RECT_Type
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Declare Function GetActiveWindow Lib "user32" () As Long
Declare Function GetDesktopWindow Lib "user32" () As Long

Option Compare Database
Option Explicit

Type Rect
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type

Declare Function GetDesktopWindow Lib "user32" () As Long

Declare Function GetWindowRect Lib "user32" _
(ByVal hWnd As Long, rectangle As Rect) As Long

'*****************************************************************
' FUNCION: GetScreenResolution()
'
' PROPOSITO:
' Determina el tamaño o resolucion actual de la pantalla.
'
' DEVUELVE:
' La resolucion actual. Tipicamente una de las siguientes:
' 640 x 480
' 800 x 600
' 1024 x 768
'
'*****************************************************************
Function GetScreenResolution() As String
Dim R As Rect
Dim hWnd As Long
Dim RetVal As Long
hWnd = GetDesktopWindow()
RetVal = GetWindowRect(hWnd, R)
GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
End Function

Function CheckRes()
Dim c As String

c = GetScreenResolution

If c = "640x480" Then
MsgBox "800x600 O > Resoluicion es Requerida para esta aplicacion." _
& "Se recomienda uncrementar la resolucion y ejecutar el programa. " _
, vbOKOnly + vbCritical
End
End If

End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Resolucion de pantalla

Publicado por Salvador Rangel (17 intervenciones) el 16/08/2005 07:16:06
Perfecto. Con esto me es posible cambiar los formularios de tamanio en tiempo de ejecucion. bueno al menos lo puedo intentar, muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar