Show BMP

[madrofiel]

hey,

ik zat een beetje te kijken naar wat files en ik zag iets met BMP format enzo, ik d8 ik ga doelloos een bmp loader maken >< maar dat gaat dus nie zoals het moet

dit krijg ik al resultaat XD

en dit zou het moeten zijn:

Paint code:

    [COLOR="Blue"]Private Sub[/COLOR] PaintImage([COLOR="blue"]ByVal[/COLOR] BMP [COLOR="blue"]As[/COLOR] BMPFile)
        [COLOR="blue"]Dim[/COLOR] Px [COLOR="blue"]As Integer[/COLOR] = 0 [COLOR="Green"]'Mod BMP.biWidth[/COLOR]
        [COLOR="blue"]Dim[/COLOR] Py [COLOR="blue"]As Integer[/COLOR] = 0 [COLOR="green"]'Mod BMP.biHeight[/COLOR]

        [COLOR="blue"]Dim[/COLOR] g [COLOR="blue"]As[/COLOR] Graphics = PictureBox1.CreateGraphics

        [COLOR="blue"]For Each[/COLOR] c [COLOR="blue"]As[/COLOR] Color [COLOR="blue"]In[/COLOR] BMP.rbgPixels
            g.FillRectangle([COLOR="blue"]New[/COLOR] SolidBrush(c), [COLOR="blue"]New[/COLOR] Rectangle(Px, Py, 1, 1))
            [COLOR="blue"]If[/COLOR] Px = BMP.biWidth [COLOR="blue"]Then[/COLOR]
                Py += 1
                Px = 0
            [COLOR="blue"]Else[/COLOR]
                Px += 1
            [COLOR="blue"]End If
        Next
    End Sub[/COLOR]

zouden jullie misschien weten wat ik fout doe?

 

[Jabber]

1. Hij staat op de kop.
2. Tekent over elkaar heen.

Tip:
- Probeer de image eens op stretched te zetten.
- Probeer eerst in een vaste grootte.