24/08/2025 - oregon ha scritto:
Ti avevo chiesto come avevi messo il nome e il percorso del file in Picfile...lo mostri il codice?
scusa, avevo capito più....semplice.
descrizione = comimm
Picture1.Picture = LoadPictureGDIPlus(descrizione, , , vbWhite)
e sub (parte iniziale, tanto va subito in erore (A MENO CHE NON ABBIA FATTO UNA PRINT, anche in ALTRA ROUTINE)
ricordando dichiarazione (usata che interessa il problema)
Private Declare Function GdipLoadImageFromFile Lib "gdiplus.dll" (ByVal FileName As Long, GpImage As Long) As Long
Altrimenti, nel modulo ho altre dichiarazioni... devo postarle?
Public Function LoadPictureGDIPlus(PicFile As String, Optional Width As Long = -1, Optional Height As Long = -1, Optional ByVal BackColor As Long = vbWhite, Optional RetainRatio As Boolean = False) As IPicture
Dim hDC As Long
Dim hBitmap As Long
Dim Img As Long
' Load the image
On Error GoTo 1
If GdipLoadImageFromFile(StrPtr(Trim(PicFile)), Img) <> 0 Then
Err.Raise 999, "GDI+ Module", "Error loading picture " & PicFile
Exit Function
End If
.
.
.
end function
Spero di aver dato la giusta risposta, questa volta.
Se preferisci, posso inivarti il modulo, magari in privato per non caricare troppo la chat...