Visual Basic - Aplicación en la barra de tareas

Life is soft - evento anual de software empresarial
 
Vista:

Aplicación en la barra de tareas

Publicado por Francisco O. (21 intervenciones) el 04/02/2004 15:24:07
Hola a todos.
A ver si alguien me pude ayudar.
Realize una aplicación en visual basic, pero deseo que esta aplicación al iniciar windows se ejecute automaticamente y me quede minimizada con un icono en la barra de tareas como lo realiza el antivirus.
Luego cuando desee ejecutar la aplicación hago doble clic en el icono ubicado en la barra de tarea y se ejectue, posterorimente al cerrar esta aplicación vuela a su esta minimizado con un icono en la barra de tarea.
Si alguien a realizado este trabajo antes y me puede ayudar se lo agradecere bastante.
Chao.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Aplicación en la barra de tareas

Publicado por Victor Pizzella (28 intervenciones) el 04/02/2004 16:59:32
Hola.
- Para que tu aplicacion arranque con windows colocala en el folder starup de Microsoft Window.
- Para que este minimizado pon en la ventana principal windowstate = 1.
-Para que salga el icono coloca:
en (General):
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Declare Function Shell_NotifyIcon Lib \"shell32\" Alias \"Shell_NotifyIconA\" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim Accion As NOTIFYICONDATA

y en elformulario:
Private Sub Form_Load()
If App.PrevInstance = False Then
Accion.cbSize = Len(Accion)
Accion.hwnd = Form1.hwnd
Accion.uId = vbNull
Accion.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
Accion.uCallBackMessage = WM_MOUSEMOVE
Accion.hIcon = Form1.Icon
Accion.szTip = \"Test icon & vbNullChar
Shell_NotifyIcon NIM_ADD, Accion
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar