Visual Basic - 2 Preguntas.

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

2 Preguntas.

Publicado por Adolfo (117 intervenciones) el 20/07/2002 04:57:12
1) Tengo el siguiente codigo que baje de la direccion www.ambsoftware.com
el cual sirve para cerrar el Internet Explorer desde mi aplicacion, pero no sé en que punto del programa debo colocar el codigo. O como lo coloco en un boton.

Además la linea:
Public Const WM_CLOSE = &H10

Me la marca en color rojo, como si no la reconociera.

Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = &H10

Y para encontrar la ventana y cerrarla:

Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow("IEFrame", vbNullString)
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error al enviar el mensaje."
End If
Else
MsgBox "El Internet Explorer no está abierto."
End If

Me gustaría saber como corregir este problema.

2) Como le cambio el icono a mi programa al minimizarlo (es decir cuando el programa aparece en la barra de tareas, pues siempreme aparece el cuadrito blanco que tiene VB por defecto.

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:2 Preguntas.

Publicado por Jorge A. (9 intervenciones) el 21/07/2002 00:27:52
Con respecto a la segunda pregunta creo que deberias probar fijandote en las propiedades del Form (el que sea de inicio de tu aplicacion o bien a todos) y revisar si tiene la propiedad Icon, si es asi adjudicale un icono y listo.
Saludos.
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