Limpiar el contenido adicional del control de WebBrowser para poder reutilizarlo en un formulario de usuario.
He creado un formulario de usuario y he añadido un control webbrowser. Estoy cargando un PDF en el control webbrowser del formulario de usuario. Funciona bien, pero cuando inicializo el formulario de usuario nuevamente desde otro formulario de usuario, contiene el contenido antiguo escrito. ¿Cómo limpiar el contenido?
Este es el código que he utilizado:
Private Sub UploadImage_Click()
Dim xDialog As FileDialog
Dim xDocumen As String
Set xDialog = Application.FileDialog(msoFileDialogFilePicker)
xDialog.Title = "Seleccionar documento"
xDialog.AllowMultiSelect = False
If xDialog.Show = 0 Then Exit Sub
xDocumen = xDialog.SelectedItems(1)
Me.ImagePath.Caption = xDocumen
usfAdd.WebBrowser.Navigate2 "about:blank"
usfAdd.WebBrowser.Document.write "<html><body><embed src='' &="" xdocumen="" &="" "''="" width='100%' height='100%'></body></html>"
End Sub
davy.ai
Para limpiar el contenido del controlador del navegador web al inicializar el formulario de usuario nuevamente, puede agregar el siguiente código al evento UserForm_Initialize:
Esto borrará el contenido del controlador del navegador web y lo actualizará, para que esté listo para cargar un nuevo PDF.