
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.
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


0