'USER32
Private Declare Function ShowWindow Lib "USER32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindowA Lib "USER32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SW_HIDE As Long = 0
Private Const SW_NORMAL As Long = 1
Private Const CLASSNAME As String = "ThunderRT6Main"
Public Sub AppTaskVisible(ByVal bVisible As Boolean)
Dim lHwnd As Long
lHwnd = FindWindowA(CLASSNAME, App.Title)
If lHwnd Then
Call ShowWindow(lHwnd, IIf((bVisible = True), SW_NORMAL, SW_HIDE))
End If
End Sub
Bueno, la gente se queja de que App.TaskVisible es detectada... asi que aqui esta, el sustituto :P
Lo he probado en W$ XP SP3, a ver si alguien puede probarlo en otro W$ ;)
Olvidaba decir que hay que probarlo compilado!
Saludos ;)
Disculpa, ya me estoy llendo.
Pero en Windows 7 NO anda
jeje el d arriba tiene razon kuando apenas lo posteaste lo probe y pensek era xk tenia Win 7 64bits.... :-X pero kon tan solo postearlo y tener una idea d komo c hace es una buena ayuda y gracias x eso ;)
Pero en W7 funciona el App.TaskVisible de VB? :-\
Cita de: Karcrack en 12 Febrero 2010, 23:35 PM
Lo he probado en W$ XP SP3, a ver si alguien puede probarlo en otro W$ ;)
Noo pero kerias ver k tal iva en otro SO no?
Cuando consiga un W$ 7 lo intentare a ver que tengo que hacer para ocultarlo :P
W7 trabaja distinto ya que lista las ventanas por individual. para ese caso hay dos opciones, Me.caption = "" o en tiempo de diseño ShowinTaskBar =false (esto por cada formulario que este visible)
para XP tambien es valido App.Title = "" pero no se si los antivirus detectan a esto como una amenaza.
Saludos.