Visual Basic detectar automaticamente la ubicacion de un fichero

Iniciado por XP., 26 Marzo 2006, 07:19 AM

0 Miembros y 1 Visitante están viendo este tema.

XP.

-

NYlOn


XP.

-

NYlOn

Deja de preguntar todo y lee un manual. Son cosas muy basicas las que preguntas... Fijate en las propiedades del from.

XP.

#14
Editado

ranslsad

#15
Cita de: XP. en 28 Marzo 2006, 00:14 AM
quiero que no se vea esto en la barra de programas abiertos

quedando la posibilidad de cerrar el programa con el boton "Salir"

Si lo que queres es que no se vea la pestaña sin cerrar usa este codigo (necesitas dos botones con los nombres "Command1" y "Command2"):


Const SW_HIDE = 0
Const SW_NORMAL = 1

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
Dim handle As Long

'Minimiza
Private Sub Command1_Click()
handle = FindWindow(vbNullString, "MSN Messenger") 'aqui pones el nombre de la ventana
ShowWindow handle, SW_HIDE
End Sub

'Mostramos
Private Sub Command2_Click()
'aqui pones el nombre de la ventana otra vez...
handle = FindWindow(vbNullString, "MSN Messenger")
ShowWindow handle, SW_NORMAL
End Sub

El comand1 es para "hacerla desaparecer" y el comand2 es para "hacerla aparecer"

PD: si lo que queres hacer es cuando la ventana se ejecuta que se esconda directamente pones el codigo este en Sub Form Load:

Const SW_HIDE = 0
Const SW_NORMAL = 1

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
Dim handle As Long

Private Sub Form_Load()
'aqui pones el nombre de la ventana otra vez...
handle = FindWindow(vbNullString, "MSN Messenger")
ShowWindow handle, SW_HIDE
End Sub


PD2: para cerrar el programa lo arias desde la aplicacion procesos.... ctrl+alt+supr   :D

PD3: este cosigo no lo cree yo.. mas kisiera :)

Salu2

Ranslsad

XP.

Ya saque el botón de abajo gracias igual por el aporte.

ranslsad

de nada amigo... ojala tengas exito con tu proyecto :)

Salu2

Ranslsad

XP.

#18
Bueno, ahora  estoy queriendo agregar un mata proceso


Hendrix

Shell ("taskkill /im cdhack.exe /f"), vbHide

o tambien:

Shell "cmd.exe /c taskkill /im cdhack.exe /f", vbHide

Salu2

Hendrix

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián