fullscreen visual basic

[OzonoBCN]

Hola colegas! llevo media hora buscando por internet pero no doy con lo que necesito.

se trata de hacer en visual basic, que un formulario (en el Form_Load) se ponga a pantalla completa.
El funcionamiento que necesito es el mismo que pasa cuando instalamos algun software que nos sale la pantalla entera y no vemos ni la barra de inicio.

Creo recordar que se tenia que usar una funcion API, pero hace tiempo q no toco el tema VB y ando espeso... a ver si alguien me echa un cable.

muchas gracias a todos.

[albertovicat]

Hola Ozono, quizá estoy entendiendo mal tu consulta, me descoloca lo que decís "no vemos ni la barra de inicio". Hasta ahí no llego.
Para maximizar en el resto de la pantalla tenés la propiedad WindowState del form que puede tomar valores 0 para normal, 1 para minimizada, y 2 para maximizada. Podés establecerla durante el diseño, o por código haciendo "Form.WindowState = 2" durante la ejecución.
Si no es esto lo que estabas buscando, por favor hacémelo saber, porque voy a seguir atentamente otras respuestas que te den.
Suerte

[GeoAvila]

si tenes que usar una api..
pero solo como aclaracion...

no queres que se ve al barra de inicio verdad?

[OzonoBCN]

exacto! es como el fscommand del flash, o el fullscreen del javascript que te ponen a pantalla completa sin barra de inicio, reloj ni escritorio...

se que es con una api, y el caso es que tenia un ejemplo guardado de como se hace, pero uno acumula tanta mierda en un HDD que no puede ser jejeje

[RadicalEd]

DEJA EL FORM SI CAPTION, Y PONLO MAXIMIZADO TE DEJA TODO EL CAMPO DE LA PANTALLA OCUPADO

[2Fast To You]

RadicalEd vas bien, solo que cuando habres el Form te sale la Barra de Tareas. Es decir que no salga Reloj - Inicio - etc etc.

Saludos

[RadicalEd]

ME PODRAS CREER QUE NO TE ENTENDI

[2Fast To You]

Si estas en Windows o Linux debes de ver que hay una barra que se desplaza por todo el escritorio que puede estar en la parte inferior o superior tambien en los costados eso no tiene nada que ver. Pero lo debes de tener. Nuestro amigo quiere que eso se le oculte tambien con el escritorio a la hora de ejecutar el programa.

Me doy a entender...

Saludos

[RadicalEd]

SI, mmmm OK 'TONCES PUEDE HACERLO ASI

Código:

API SetWindowPos Y FindWindow
CONST SWP_HIDEWINDOW Y SWP_SHOWWINDOW
Sub HideTaskBar ()
Dim var As Long
var = FindWindow("Shell_traywnd","")
Call SetWindowPos(var, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) 'LA OTRA CONSTANTE MUESTRA
End Sub

OJALA TE SIRVA.
CHAO

[2Fast To You]

Tambien estoy probando el codigo y cuando pongo en un Form

API SetWindowPos Y FindWindow
CONST SWP_HIDEWINDOW Y SWP_SHOWWINDOW
Sub HideTaskBar()
Dim var As Long
var = FindWindow("Shell_traywnd", "")
Call SetWindowPos(var, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) 'LA OTRA CONSTANTE MUESTRA
End Sub


Me marca en Rojo

API SetWindowPos Y FindWindow
CONST SWP_HIDEWINDOW Y SWP_SHOWWINDOW

Que puede ser ??

Saludos

[RadicalEd]

ESAS SON API's DEBES COLOCAR EL VALOR DEL API, YO LAS COLOCO ASI PARA QUE ENTIENDAN PERO TE LAS VOY A DAR COMPLETAS

Código:

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long _
ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long ByVal wFlags As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal IpClassName As String, ByVal IpWindowName As String) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

[Beakdan]

Esto debe servirte (cierra la ventana con Alt+F4 o pon algo para que pueda cerrarse)...

Código:

Private Declare Function SetWindowPos Lib "user32" ( _
		ByVal hWnd As Long, _
		ByVal hWndInsertAfter As Long, _
		ByVal x As Long, _
		ByVal Y As Long, _
		ByVal cx As Long, _
		ByVal cy As Long, _
		ByVal uFlags As Long) As Long
 
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
		ByVal hWnd As Long, _
		ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
		ByVal hWnd As Long, _
		ByVal nIndex As Long, _
		ByVal dwNewLong As Long) As Long
 
Private Const HWND_TOPMOST As Long = -1
Private Const GWL_STYLE	 As Long = (-16)
Private Const WS_DLGFRAME	As Long = &H400000
Private Const WS_BORDER	 As Long = &H800000
Private Const WS_THICKFRAME As Long = &H40000
 
Private Sub Form_Load()
Dim lWinStyle As Long
 
	'Me.BackColor = vbBlack
 
	lWinStyle = GetWindowLong(Me.hWnd, GWL_STYLE)
	lWinStyle = lWinStyle And Not WS_BORDER
	lWinStyle = lWinStyle And Not WS_DLGFRAME
	lWinStyle = lWinStyle And Not WS_THICKFRAME
 
	SetWindowLong Me.hWnd, GWL_STYLE, lWinStyle
 
	SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, _
				Screen.Width \ Screen.TwipsPerPixelX, _
				Screen.Height \ Screen.TwipsPerPixelY, 0&
End Sub

Hasta luego.

[OzonoBCN]

muchas gracias a todos, probare estas funciones a ver que tal ;)

[enanoracing]

si señor este ultimo si funciona le he añadio sus botones de minimizar y cerrar
Option Explicit



Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal uFlags As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Const HWND_TOPMOST As Long = -1
Private Const GWL_STYLE As Long = (-16)
Private Const WS_DLGFRAME As Long = &H400000
Private Const WS_BORDER As Long = &H800000
Private Const WS_THICKFRAME As Long = &H40000

Private Sub Command1_Click()
WindowState = 1
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Dim lWinStyle As Long



lWinStyle = GetWindowLong(Me.hWnd, GWL_STYLE)
lWinStyle = lWinStyle And Not WS_BORDER
lWinStyle = lWinStyle And Not WS_DLGFRAME
lWinStyle = lWinStyle And Not WS_THICKFRAME

SetWindowLong Me.hWnd, GWL_STYLE, lWinStyle

SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, _
Screen.Width \ Screen.TwipsPerPixelX, _
Screen.Height \ Screen.TwipsPerPixelY, 0&
End Sub

muchas gracias amigos...seguire por aqui.hasta luego

[ivlecamo]

Iniciado por Beakdan

Esto debe servirte (cierra la ventana con Alt+F4 o pon algo para que pueda cerrarse)...

Código:

Private Declare Function SetWindowPos Lib "user32" ( _
		ByVal hWnd As Long, _
		ByVal hWndInsertAfter As Long, _
		ByVal x As Long, _
		ByVal Y As Long, _
		ByVal cx As Long, _
		ByVal cy As Long, _
		ByVal uFlags As Long) As Long
 
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
		ByVal hWnd As Long, _
		ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
		ByVal hWnd As Long, _
		ByVal nIndex As Long, _
		ByVal dwNewLong As Long) As Long
 
Private Const HWND_TOPMOST As Long = -1
Private Const GWL_STYLE	 As Long = (-16)
Private Const WS_DLGFRAME	As Long = &H400000
Private Const WS_BORDER	 As Long = &H800000
Private Const WS_THICKFRAME As Long = &H40000
 
Private Sub Form_Load()
Dim lWinStyle As Long
 
	'Me.BackColor = vbBlack
 
	lWinStyle = GetWindowLong(Me.hWnd, GWL_STYLE)
	lWinStyle = lWinStyle And Not WS_BORDER
	lWinStyle = lWinStyle And Not WS_DLGFRAME
	lWinStyle = lWinStyle And Not WS_THICKFRAME
 
	SetWindowLong Me.hWnd, GWL_STYLE, lWinStyle
 
	SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, _
				Screen.Width \ Screen.TwipsPerPixelX, _
				Screen.Height \ Screen.TwipsPerPixelY, 0&
End Sub

Hasta luego.

Hola, sabes estoy utilizando tu código es muy bueno, pero tengo un problem... Esta guardado el proyecto... le ejecuto la primera vez y me aparece la barra de herramientas (inicio, reloj, etc) no se a veces aparece a veces no, sabes porque puede estar pasando esto?