Dialogo Guardar Como

  • 0 Respuestas
  • 2404 Vistas

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

Desconectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5636
  • Actividad:
    53.33%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Dialogo Guardar Como

  • 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 »


 

Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2327
Ú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: 2431
Ú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: 2064
Ú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: 2776
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Llamada de un formulario mediante el nombre como string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2096
Último mensaje Julio 26, 2010, 04:08:58 pm
por ANTRAX