Nos puede interesar en aplicaciones en Visual Basic 6.0 ocultar la barra de tareas de Windows 95, Windows NT, Windows XP
En un módulo copiar estas líneas:
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
En un formulario ponga dos botones y escriba el código correspondiente
a cada uno de ellos:
'Oculta la barra de tareas
Private Sub Command1_Click()
Ventana = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Oculta)
End Sub
'Muestra la barra de tareas
Private Sub Command2_Click()
Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Muestra)
End Sub
Comentarios sobre Ocultar la barra de tareas en Windows 95 y/o Windows NT
kejhme dice:
Hola amigos, soy nuevo en el foro, hace dos meses que estoy utilizando visual basic 2008, y me he encontrado con una dificultad, estoy seguro que podran ayudarme; bueno mi problema es el siguiente: estoy realizando un cyber cafe y lo que me falta es de que el formulario que contiene la imagen que bloquea a las maquinas clientes quede por encima de la barra de tareas, ya que por default todo formulario esta por detras, porfavor quisiera saber cual es el codigo en visual 2008 para que mi formulario quede por encima de la barra de tareas. de nate mano muchas gracias
Comentario publicado 18/11/2010 2:05:00
kejhme dice:
he probado el codigo para visual 6.0 pero obiamente me manda error, porfavor como lo hago en visual 2008
Comentario publicado 18/11/2010 18:17:00
Dejar un comentario
