fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

LoadTexture (BMP)

Uploader:	AndT
Datum/Zeit:	12.11.2007 15:25:53

function loadtexture (File as string) as any ptr

Dim bild As Any Ptr

Dim As Integer breit, hoch, ff = freefile

Dim As String dateiname = File



Open dateiname For Binary As #ff

Get #ff, 19, breit 'Breite aus der BMP-Datei holen

Get #ff, 23, hoch  'Höhe aus der BMP-Datei holen

Close #ff



bild = ImageCreate(breit,hoch)

'BMP in das Image laden

function = bild

end function

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.