Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: czar9 en Julio 04, 2011, 02:57:53 pm
-
Hola a todos
tengo una aplicación que corre en modo maximizado sin boton de min/max Leandro me ayudo para mantenerla siempre al top pero a veces no funciona ya que se asoma la barra de tareas por eso quisiera saber si alguien sabe como desaparecer la barra por completo desde vb6?
de antemano muchas gracias y saludos
-
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Click()
Dim StartWindow As Long ' Lo primero que tenemos que hacer es localizar la barra de tareas con la instrucción ' de debajo y luego con el manejador pasarsela a la función que la oculta o la muestra
StartWindow = FindWindow("Shell_TrayWnd", vbNullString)
If MsgBox("¿Ocultar barra?", vbInformation + vbYesNo) = vbYes Then
ShowWindow StartWindow, 0& ' La ocultamos
Else
ShowWindow StartWindow, 1& ' La mostramos
End If
End Sub
-
Gracias =)