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