Visual Basic - Programa para trabajar conjunto con el Explorer

Life is soft - evento anual de software empresarial
 
Vista:

Programa para trabajar conjunto con el Explorer

Publicado por Luis Jaspe (1 intervención) el 05/01/2001 00:00:00

Hola espero me puedan ayudar, necesita saber como puedo hacer para crear un programa que sea visible todo el tiempo en la pantalla mientras se navega con el browser, y que al cerrar dicho programa tambien se cierre el navegador, ademas de que el programa me aparezca en forma de barra de tareas, cosa que al maximizar cuanquier ventana se siga viendo dicho programa.


Muchas Gracias
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:Programa para trabajar conjunto con el Explorer

Publicado por Goku (77 intervenciones) el 05/01/2001 00:00:00
Tu programa deberia arrancar con Windows o bien podrias modificar la ruta del acceso directo del explorer redireccionando el acceso directo a tu programa y asi cada vez que quieran abrir el explorer o el netscape (modificar los dos accesos directos) primero se dispare tu programa y tu programa lo primero que haga sea activar el navegador y de ahi ya quedaria funcionando tu programa junto con el navegador
en cuanto a como tener el programa en la barra de tareas ya esta contestado eso en la seccion Preguntas y Respuestas de la web, si no lo encuentras enviame un mail y te mando un ejemplo
Suerte
Goku
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

RE:Programa para trabajar conjunto con el Explorer

Publicado por Christian A. Valeria Celedón (207 intervenciones) el 05/01/2001 00:00:00
Crea un proyecto nuevo y agrégale un formulario en blanco. Luego edita las siguientes propiedades:
Nombre : FRWeb
BorderStyle : 5
Caption : ""
ControlBox : False

Ahora agrega dos botones, editando las siguientes propiedades:
Nombre : CMMail
Caption : "&Enviar"

Nombre : CMSalir
Caption : "&Salir"

Agrega también un textbox:
Nombre : TXMail

Luego, agrega el siguiente código al formulario:

Private Sub CMMail_Click()
EnviarMail Me, TXMail
End Sub

Private Sub CMSalir_Click()
Unload Me
End
End Sub

Private Sub Form_Load()
SetVista Me, True
AbrirWeb Me, "http://www.lawebdelprogramador.com"
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then MoverForm Me
End Sub

Private Sub TXMail_Change()
If Len(TXMail) Then
CMMail.Enabled = True
Else
CMMail.Enabled = False
End If
End Sub


Por último, añade un módulo en blanco al proyecto y pega en él lo siguiente:

´Constantes
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40
Public Const SW_SHOWNORMAL = 1

2
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