R_a_i_n_e_r_8
Technical User
Hello everyone,
after switching from 32 to 64-bit access version, i get the error message:
Compile error: Types of intolerance
Unfortunately i can't switch back, can someone help me please?
How the new string should look like?
Old string:
[highlight #FCE94F]Function LoadPictureGDIP(sFileName As String) As StdPicture[/highlight]
Dim hBmp As Long
Dim hPic As Long
If lGDIP = 0 Then InitGDIP: If lGDIP = 0 Then Exit Function
If GdipCreateBitmapFromFile(StrPtr(sFileName), hPic) = 0 Then
GdipCreateHBITMAPFromBitmap hPic, hBmp, 0&
If hBmp <> 0 Then
Set LoadPictureGDIP = BitmapToPicture(hBmp)
GdipDisposeImage hPic
End If
End If
End Function
Kind regards,
Rainer
after switching from 32 to 64-bit access version, i get the error message:
Compile error: Types of intolerance
Unfortunately i can't switch back, can someone help me please?
How the new string should look like?
Old string:
[highlight #FCE94F]Function LoadPictureGDIP(sFileName As String) As StdPicture[/highlight]
Dim hBmp As Long
Dim hPic As Long
If lGDIP = 0 Then InitGDIP: If lGDIP = 0 Then Exit Function
If GdipCreateBitmapFromFile(StrPtr(sFileName), hPic) = 0 Then
GdipCreateHBITMAPFromBitmap hPic, hBmp, 0&
If hBmp <> 0 Then
Set LoadPictureGDIP = BitmapToPicture(hBmp)
GdipDisposeImage hPic
End If
End If
End Function
Kind regards,
Rainer