fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

BMP Einladen

Uploader:	Eternal_Pain
Datum/Zeit:	12.09.2007 15:09:53

Sub getBMPsize (byval file as string, byref breit as integer, byref hoch as integer)

    Dim ff as integer=freefile



    Open file 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

End Sub







screenres 400,400,32



Dim as integer BMPX,BMPY

getBMPsize "test.BMP",BMPX,BMPY



Dim Grafik as Any ptr

Grafik=ImageCreate(BMPX,BMPY)



Put (100,100),Grafik,pset



sleep

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.