¿Cómo importar páginas web en VB Box y mostrarlas?

El primer método: si conoce la URL de la imagen, puede mostrarla directamente en la Imagen 1:

Función de declaración privada OleLoadPicturePath Lib "oleaut32. dll" (ByVal szulropath es Long, ByVal punkCaller es Long, ByVal dwReserved es Long, ByVal clrReserved es OLE_COLOR, ByRef riid es TGUID, ByRef ppvRet es IPicture) es Long

Tipo privado TGUID

La misma longitud que Data1

Forma entera de datos 2

Datos en forma entera 3

Datos en bytes 4 (0 a 7)

Tipo final

Público función LoadPicture (ByVal strFileName como cadena) como imagen

Dim·IID actúa como guía turística

Con datos IID

1 = & H7BF80980

. Datos2 = & ampHBF32

. Datos3 = & ampH101A

. 1)= & Hidroxibencilbencimidazol

datos 4(2)=&hipótesis nula

datos 4(3)=&Armas pesadas de defensa aérea

. >.data 4(4)= &hipótesis nula

.data 4(5)= &H30

.data 4(6 )= & HC

. data 4(7)= & Hokuriku Asahi Broadcasting

Termina con...

Ir a LocalErr

OleLoadPicturePath StrPtr(strFileName), 0 & amp, 0 & amp, 0 & amp, IID, cargar imagen

Función de salida

LocalErr:

Establecer LoadPicture = VB. Cargar imagen(strFileName)

Uh. clear

Finalizar función

Subcomando privado 1_Click()

Imagen 1. imagen = cargar imagen("/img/BD logo . gif ")

Conector final

Segundo método: si conoce la URL de la imagen, puede descargarla al local primero y luego se muestra en Imagen 1:

Función de declaración privada URLDownloadToFile Lib "urlmon" alias "URLDownloadToFileA" (ByVal p caller es Long, ByVal szURL es String, ByVal szFileName es String, ByVal dwReserved es Long, ByVal. lpfnCB es largo) es largo

Subcomando privado 1_Click()

URLDownloadToFile 0 & amp, "/img/bdlogo.gif", App. Caminos y caminos. " \bdlogo.gif ", 0 & amp, 0 & amp

Imagen 1. Imagen = LoadPicture(App.path.path.

" \bdlogo.gif ")

Conector final

Tercer método: si no conoce la URL de la imagen, pero conoce la URL de la página web, puede use el control WebBrowser para mostrar la página web y luego búsquela. La imagen requerida se muestra en Imagen 1:

Subcomando privado 1_Click()

Dim CtrlRange como objeto, img como objeto

Establezca CtrlRange = WebBrowser1. documento. cuerpo. createcontrolrange

Para cada img en WebBrowser1. Document.Image

Si InStr(img.src, "bdlogo") Entonces

CtrlRange. Agregue img

rango Ctrl .exec comando "Copiar"

Imagen 1. Imagen = Portapapeles. Obtener datos

Salir para...

Finalizar si...

Entonces

Finalizar ajuste

Subform_Load privado()

WebBrowser1. Explorar ""

Conector final

Los métodos anteriores pueden mostrar la imagen del logotipo en la página de inicio de Baidu. En comparación, el primer método es el mejor. Aunque tiene la mayor cantidad de código, se implementa completamente mediante código y no requiere la ayuda de otros controles o archivos intermedios. Funciona igual que las imágenes en Internet son las imágenes de su disco duro. El segundo método tiene el código más simple, pero generará un archivo en el disco duro, pero si necesita descargar el archivo (es decir, no solo para mostrar, sino también para usar esta imagen para otras operaciones), entonces este método es la mejor opción; el tercer método. Este método es el más complejo y requiere control web y conversión del portapapeles. Sin embargo, si su software inicialmente requiere controles de página web o desea obtener varias imágenes de la misma página web, esta es la mejor opción.