Form que ocupe TODA la pantalla

[xXnewbieXx]

Eso ya lo tengo solucionado, aparte, de esa forma, se agranda para abajo y hacia la derecha, pero no queda perfectamente cubierto del todo.

sí, se rueda a la drcha debido a la posicion dl frm. En las propiedades si cambias StartUpPosition a "2 - CenterScreen" se keda perfectamente alineado.
weno hace tiempo k hice esto para un proyecto, pero m parece q era así...

[xXnewbieXx]

x cierto si kiers q tp c vea la barra d herramientas kixas sea 1 chapuza,pero yo kito el caption dl frm y tbn el controlbox y ya ocupa todo.
y la verdad para q c mantenga el tamaño = a la pantalla dps d cambiar la resolución lo uniko k c m ocurre es una cosa asi...

Código [Seleccionar] Expandir


'el frm centrado "CenterScreen" y al cargar q esté

en el load:
'creo k habria q ponerlo en el load aparte de en el timer pq sino, aunq esté centrado al empezar el timer, c agrandaria a la drcha y hacia abajo.

Form1.Width = Screen.Width
Form1.Height = Screen.Height

en un timer:
Form1.Width = Screen.Width
Form1.Height = Screen.Height


pero m da k tbn es una chapuza, cuestión d probarlo...( es k aki no tengo el vb)

saludos!

[MazarD]

Pues lo que te decia, si haces que el form que ocupa toda la pantalla sea mdi todos los que contenga se minimizarán dentro de ella, no en la barra de inicio.

Si lo anterior no te vale por lo que sea también podrías crear los forms sin borde y al hacer el .windowstate=vbminimized tampoco se irian a la barra de menú inicio luego con setwindowpos blablabla lo meterías donde quisieras.
Pero claro, al estar sin bordes no podrías mover el formulario cuando estubiera en su estado normal, para solucionar esto i además poderte crear una barra de título bien bonita xD podrías usar el siguiente código que implementé hace tiempo para algo similar.

En un módulo:

Código [Seleccionar] Expandir

'Módul Simulador barra de títol
'MazarD@gmail.com

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type

Private varbooleana As Boolean
Private xanterior As Single
Private yanterior As Single

Public Sub MovBarra(ByRef FormularI As Form, ByVal Boto As Integer, ByVal x As Single, ByVal y As Single)
Dim PosPunt As POINTAPI
If Boto = 1 Then
    If varbooleana = True Then
        xanterior = x
        yanterior = y
        varbooleana = False
    End If
    GetCursorPos PosPunt
    FormularI.Left = (PosPunt.x * Screen.TwipsPerPixelX) - xanterior
    FormularI.Top = PosPunt.y * Screen.TwipsPerPixelY - yanterior
 
Else
    varbooleana = True
End If
End Sub

Para utilizarlo creas un label que hará el papel de barra de título y:
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MovBarra Form1, Button, x, y
End Sub


Suerte

[morpheusoliver]

no te vale con:

Me.BorderStyle = 0
Me.WindowState = 2

???

___________________

sorry man, no verifike antes de posetear, por lo que veo la fincion borderstyle no hace caso por codigo xD, haslo manualmente, en modo grafico, seleccionas el form, y en las propiedades buscas borderstyle, y le pones 0-none

saludos¡¡

[BenRu]

No se, ahora pruebo lo de MazarD y morpheusoliver y os cuento