Red de conocimiento informático - Problemas con los teléfonos móviles - Problemas al mostrar imágenes de red en Image o PictureBox en VB

Problemas al mostrar imágenes de red en Image o PictureBox en VB

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

Tipo privado TGUID

Datos1 Siempre

Datos2 Como Entero

Datos3 Como Entero

Datos4(0 a 7) ComoByte

Tipo final

'Función de carga

Función pública LoadPicture(ByVal strFileName As String) Como imagen

Atenuar IID como TGUID

Con IID

.Data1 = &H7BF80980

.Data2 = &HBF32

.Data3 = &H101A

.Data4(0) = &H8B

.Data4(1) = &HBB

.Data4(2) = &H0

.Data4(3) = &HAA

.Data4(4) = &H0

.Data4(5) = &H30

.Data4(6) = &HC

.Data4(7) = &HAB

DoEvents

terminan con

en caso de error, GoTo LocalErr

OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, 0&, IID, LoadPicture

Salir de la función

LocalErr:

Establecer LoadPicture = VB.NETLoadPicture(strFileName), 0&, 0&, 0&, 0&, IID, LoadPicture