Wie kann ich ein Bild aus einer Ressourcedatei in ein Image-Feld laden?

Gruss MSuter

Einfachster Weg: Bild in einer Datei zwischenspeichern...


dim PicData() as byte
dim hDatei as integer
hDatei = freefile
PicData = LoadResData(101,"CUSTOM")
open "bla.tmp" for binary as #hDatei
put #hDatei,1,PicData
close #hDatei

Picture1.Picture = LoadPicture("bla.tmp")


Den Tmp-Ordner von Windows bekommst du über GetTempPath() API, mit GetTempFileName() kannste dir nen Dateinamen erstellen lassen...

Vielen Dank, es funktioniert******