un gran favor
necesito el codigo
para hacer desaparecer la barra de tareas
durante la ejecucion de una aplicacion creada en vb6
si me lo pueden entregar se los agradecere..
para hacer desaparecer la barra de tareas
durante la ejecucion de una aplicacion creada en vb6
si me lo pueden entregar se los agradecere..
« Usa esta API, esto lo pones en un Module »
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName_ As String, ByVal lpWindowName As
String) As Long
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
Global Ventana As Long
Global Const Muestra = &H40
Global Const Oculta = &H80
« Y esto en los eventos que quieras »
'Oculta la barra de tareas
Ventana = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Oculta)
'Muestra la barra de tareas
Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Muestra)
__________
un saludo
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName_ As String, ByVal lpWindowName As
String) As Long
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
Global Ventana As Long
Global Const Muestra = &H40
Global Const Oculta = &H80
« Y esto en los eventos que quieras »
'Oculta la barra de tareas
Ventana = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Oculta)
'Muestra la barra de tareas
Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Muestra)
__________
un saludo
