Ejemplos usando el Api de windows para Visual basic

199 - Obtener posición y dimensiones de la pantalla sin contar el Taskbar de windows

Contenido:

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Ejemplo que usa el Api SystemParametersInfo para recuperar la posición x / y , ancho y alto del área de trabajo

A la función se le envía el mensaje o constante SPI_GETWORKAREA , y en el parámetro pvParam, una variable de tipo Rect que retorna los datos

vista de los datos de la dimensión del área de trabajo de windows sin la barra de tareas

Código fuente en el formulario

' función api SystemParametersInfo Private Declare Function SystemParametersInfo Lib "user32.dll" Alias _ "SystemParametersInfoA" ( _ ByVal uiAction As Long, _ ByVal uiParam As Long, _ pvParam As Any, _ ByVal fWinIni As Long) As Long ' Mensaje para obtener el área de la pantalla sin contar el taskBar Private Const SPI_GETWORKAREA = 48 ' Estrucura Rect que retorna la posición y dimensiones del área de trabajo Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Sub Command1_Click() Dim ret As Long Dim T_rect As RECT ret = SystemParametersInfo(SPI_GETWORKAREA, 0, T_rect, 0) ' Muestra los datos MsgBox "Posición x: " & T_rect.Left & vbCrLf & _ "Posición y: " & T_rect.Top & vbCrLf & _ "Ancho :" & T_rect.Right - T_rect.Left & vbCrLf & _ "Altura :" & T_rect.Bottom - T_rect.Top, _ vbInformation, "Taskbar de windows en pixeles " End Sub Private Sub Form_Load() Command1.Caption = " Obtener dimensiones" End Sub

Ejemplo 2

Este otro ejemplo, centra una ventana en la pantalla, pero sin contar el área que utiliza la barra de tareas

Código fuente en el formulario

Private Sub Form_Load() ' Le damos un valor para el ancho y alto del formulario Me.Width = Screen.Width / 2 Me.Height = Screen.Height / 2 ' Centra el formulario Call Centrar_Ventana(Me) End Sub

Código fuente en un módulo bas

Option Explicit ' función api SystemParametersInfo Private Declare Function SystemParametersInfo Lib "user32" Alias _ "SystemParametersInfoA" ( _ ByVal uAction As Long, _ ByVal uParam As Long, _ ByRef lpvParam As RECT, _ ByVal fuWinIni As Long) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type ' Constante para SystemParametersInfo Private Const SPI_GETWORKAREA = 48 ' sub que centra la ventana, recibe el formulario com param Sub Centrar_Ventana(ByVal Formulario As Form) Dim t_rect As RECT Dim Ancho As Single, Alto As Single, Izquierda As Single, Arriba As Single ' Obtiene las dimensiones del área de pantalla de windows sin el TaskBar If SystemParametersInfo(SPI_GETWORKAREA, 0, t_rect, 0) <> 0 Then With t_rect ' Pasa las dimensiones de pixeles a Twips Ancho = Formulario.ScaleX(.Right, vbPixels, vbTwips) Alto = Formulario.ScaleY(.Bottom, vbPixels, vbTwips) Izquierda = Formulario.ScaleX(.Left, vbPixels, vbTwips) Arriba = Formulario.ScaleY(.Top, vbPixels, vbTwips) End With End If ' CEntra la ventana en el área de trabajo sin contar la barra de tareas Formulario.Move (Ancho - Formulario.Width + Izquierda) / 2, _ (Alto - Formulario.Height + Arriba) / 2 End Sub

Relacionados

SystemParametersInfo - Cambiar tapiz

Buscar en Recursos vb