comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Dialogo Guardar Como

  • 0 Respuestas
  • 1662 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5336
  • Actividad:
    23.33%
  • Reputación 30
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 27, 2010, 04:35:00 pm »
Ejemplo del método ExecWb para abrir el cuadro de diálogo " Guardar página web "

Ejemplo del método ExecWb del control webBrowser del visual basic para poder abrir el cuadro de diálogo Guardar como para guardar la página web cargada en el control.

Vista del cuadro de diálogo para guardar la pagina web

Aparte de este cuadro de diálogo, hay muchas otras opciones que se pueden realizar con este método, como por ejemplo la de copiar un texto y pegarlo, imprimir la página web cargada, seleccionar texto, copiar , cortar , ver el cuadro propiedades de página web, y muchas otras, solo hay que hecharle un ojo a las constantes que se le pasan al primer parámetro del método ExecWb.

Para probar el ejemplo que permite Abrir el Cuadro de Diálogo Guardar Página web como ... , colocar en un formulario un Command1 y también un control WebBrowser llamado WebBrowser 1.

Nota: el control WebBrowser se encuentra bajo el nombre de Microsoft Internet Controls desde el menú Proyecto - Componentes de vb.

Código: Visual Basic
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4. 'Abrimos el cuadro de diálogo abrir Como para el WebBrowser
  5. WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, 0, 0
  6. End Sub
  7.  
  8. Private Sub Form_Load()
  9.  
  10. Command1.Caption = " Guardar "
  11.  
  12. 'Navegamos a una página de ejemplo mediante el método Navigate
  13. MsgBox "Ejemplo que muestra como abrir el cuadro dialogo" & _
  14. "guardar como para un control WEbBrowser", vbInformation
  15.  
  16. 'Navegamos al cargar el formulario a la página de Google.
  17. WebBrowser1.Navigate "www.google.com"
  18.  
  19. End Sub
  20.  
  21. Private Sub Form_Resize()
  22.  
  23. ' esto es solo para redimensionar el control web
  24. WebBrowser1.Move 0, 0, ScaleWidth, ScaleHeight - Command1.Height
  25.  
  26. 'Posiciona el commandButton en el formulario
  27. Command1.Top = WebBrowser1.Height
  28. Command1.Left = ScaleWidth - Command1.Width
  29.  
  30. End Sub
« Última modificación: Mayo 12, 2014, 03:26:51 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1353
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Cómo ajustar la cadena introducida a formato de hora "00:00:00"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1442
Último mensaje Julio 26, 2010, 12:36:23 pm
por ANTRAX
Cómo ajustar la cadena introducida a formato numérico: "#,##"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1130
Último mensaje Julio 26, 2010, 12:38:04 pm
por ANTRAX
Manual de como bloquear CTRL+ALT+SUP, ALT+TAB, Y OTROS con Visual Basic en WinXP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1778
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como ingresar solo numeros en un campo de texto

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1332
Último mensaje Julio 26, 2010, 10:24:49 am
por ANTRAX