vb6 - toda - Tamaño del formulario para completar las dimensiones de la pantalla menos la barra de tareas

maximizar formulario c#

Question

¿Cómo se dimensiona el formulario en vb6 para que el borde inferior del formulario esté en la parte superior de la barra de tareas?

Answer 1

¿Hay alguna razón por la que no puedas simplemente maximizar el formulario? Esa sería mi primera impresión.

Si no es un corredor, puede intentar obtener la altura de la barra de tareas de la siguiente manera:

Private Const ABM_GETTASKBARPOS = &H5
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type APPBARDATA
cbSize As Long
hwnd As Long
uCallbackMessage As Long
uEdge As Long
rc As RECT
lParam As Long
End Type
Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long
Function GetTaskBarSize()
Dim ABD As APPBARDATA
SHAppBarMessage ABM_GETTASKBARPOS, ABD
MsgBox "Width:" & ABD.rc.Right - ABD.rc.Left
MsgBox " Height:" & ABD.rc.Bottom - ABD.rc.Top
End Sub

y luego establecer la altura de su formulario a la altura de la pantalla menos la altura de la barra de tareas.

Answer 2

¿Menos solo la barra de tareas? Eso tal vez no sea realmente lo que quieres. Puede haber otras ventanas en los bordes de la pantalla que están destinadas a "tallar" regiones del escritorio. Además, tenga en cuenta que a veces la altura de la barra de tareas es irrelevante, como cuando está acoplada en el lado izquierdo o derecho de la pantalla.

Galwegian ha mostrado cómo obtener el alto de la barra de tareas, pero si realmente está buscando el área utilizable del escritorio, utilice la función SystemParametersInfo con el indicador spi_GetWorkArea . Le indicará el área del escritorio excluyendo todas las barras de herramientas del escritorio. MSDN informa que si está interesado en el espacio disponible en algo que no sea el monitor principal, debe llamar a GetMonitorInfo en GetMonitorInfo lugar; llena un registro, y uno de los campos es para el área de trabajo del monitor.

Voy a secundar la idea de que realmente podrías querer maximizar tu ventana. Si ya lo hizo y desea saber cuánto espacio ocupa, obtenga el tamaño actual de su ventana y luego restar las dimensiones del marco de la ventana (que se "esconde debajo de los bordes" de el escritorio cuando se maximiza una ventana). Puede usar GetSystemMetrics con los sm_CXFrame y sm_CYFrame para eso.

Answer 3

Voy a aceptar que probablemente quieras maximizar tu ventana.

Pero si realmente desea conocer el área del escritorio excluyendo todas las barras de herramientas del escritorio (barra de tareas, barra de herramientas de Microsoft Office, etc.), aquí hay algunas declaraciones VB6 para la llamada SystemParametersInfo y una función de muestra que centra formularios en la pantalla, permitiendo las barras de herramientas . Esto se toma prestado de 101 consejos tecnológicos (PDF) del antiguo Visual Basic Programmers Journal.

Private Const SPI_GETWORKAREA = 48
Private Declare Function SystemParametersInfo& Lib "User32" Alias "SystemParametersInfoA" ( _
ByVal uAction As Long, _
ByVal uParam As Long, lpvParam As Any, _
ByVal fuWinIni As Long)
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Function CenterForm32 (frm As Form)
Dim ScreenWidth&, ScreenHeight&, ScreenLeft&, ScreenTop&
Dim DesktopArea As RECT
Call SystemParametersInfo (SPI_GETWORKAREA, 0, DesktopArea, 0)
ScreenHeight = (DesktopArea.Bottom - DesktopArea.Top) * Screen.TwipsPerPixelY
ScreenWidth = (DesktopArea.Right - DesktopArea.Left) * Screen.TwipsPerPixelX
ScreenLeft = DesktopArea.Left * Screen.TwipsPerPixelX
ScreenTop = DesktopArea.Top * Screen.TwipsPerPixelY
frm.Move (ScreenWidth - frm.Width) / 2 + ScreenLeft, _
(ScreenHeight - frm.Height) / 2 + ScreenTop
End Function