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