File2Pic

[Zen_]

Jeg driver med et lite prosjekt bare for morro. Jeg skal lage et programm som leser infoen fra en fil og lager et bilde av det. Så lagrer den bildet. Prosessen kan selvfølgelig reverseres.

 

Jeg tror det skal være mulig å lagre 3 bytes pr. pixel. morro å se hva som skjer med tanke på filstørrelse også.

 

 

Private Sub StartButton_Click()

b = 0

Do

b = b + 8

Do

a = a + 8

Picture1.PSet (a, B), 100000

Loop Until a >= 1000

a = 0

Loop Until b >= 1000

End Sub

 

Private Sub SaveButton_Click()

SavePicture Picture1.Image, "C:test.bmp"

End Sub

 

 

Med koden over fylles en Picturebox opp med en farge når jeg trykker på StartButton og Picturebox´en lagres i test.bmp. Problemet er at det programmet legger til ikke blir lagret. Bare fargen på Picturebox´en eller evt. bildet jeg setter på Picture-propertien.

 

Noen som vet en bedre måte å lagre Picturebox´er til bildefiler?

[Razul]

Har du huska å sette AutoRedraw = True på picturebox'en?

[PlastBox]

Takker :smile: