Access - Centrar Formulario en pantalla

   
Vista:

Centrar Formulario en pantalla

Publicado por Dun (5 intervenciones) el 23/10/2012 17:00:53
Con que función de VB puedo centrar un formulario en la pantalla
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

Centrar Formulario en pantalla

Publicado por 2PL (461 intervenciones) el 24/10/2012 09:16:50
Declare Function glrMoveWindows Lib "user32" Alias "MoveWindow" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWindth As Long, ByVal nHeight As Long, ByVal bRepair As Long) As Long

Function GetScreenResolution() As String
Dim R As RECT, hwnd As Long, RetVal As Long
hwnd = GetDesktopWindow()
RetVal = GetWindowRect(hwnd, R)
GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
End Function
'Al abrir el formulario y dependiendo de la resolución de la pantalla
Private Sub Form_Open(Cancel As Integer)
Dim posicion As String
If GetScreenResolution = "1024x768" Then
posicion = glrMoveWindows(Me.hwnd, 100, 65, 850, 510, True)
ElseIf GetScreenResolution = "1152x864" Then
posicion = glrMoveWindows(Me.hwnd, 200, 100, 850, 510, True)
Else
posicion = glrMoveWindows(Me.hwnd, 100, -20, 850, 510, True)
End If
End Sub

explicación de las posiciones
posicion = glrMoveWindows(Me.hwnd, 100, 65, 850, 510, True)
100 = posición margen izquierdo
65 = posición margen superior
850 = anchura del formulario
510 = altura del formulario
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Centrar Formulario en pantalla

Publicado por Efren Rodriguez (1 intervención) el 25/10/2012 21:03:04
Buenas tardes

Soy novato donde realizo estas modificaciones, como acceso esta codificacion, .
Necesito evaluar en un formulario la dependencia de varios campos , por ejemplo a la hora de facturar esta hora no debe ser mayor a la establecida por parametros. O sea si una factura se tenia que realizar a las 2:00 pm esta hora se debe comparar con la hora que tenia que ser realizada y mostrar un mensaje al momento.
Por favor necesito apoyo para esto 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