PictureBox in 16 Farben

Computer: Software & Programmierung Visual Basic
#1

Nabend zusammen

ich hab ein hoffentlich kleines problem mit meiner picturebox.
und zwar möchte ich ein bild was in meiner picturebox liegt
in 16 farben umwandeln. oder 256. am besten aber 16 *g
ich hab schon seit paar tagen gegooglet aber irgendwie finde
ich immer nur 16-bit.
hoffe jemand von euch kann mir helfen.

ci@oi fressbrett

#2

Hallo,

ich hab ein hoffentlich kleines problem mit meiner picturebox.
und zwar möchte ich ein bild was in meiner picturebox liegt
in 16 farben umwandeln. oder 256. am besten aber 16 *g
ich hab schon seit paar tagen gegooglet aber irgendwie finde
ich immer nur 16-bit.

Willst Du nur die Farbauflösung reduzieren, oder willst Du das mit der 4-Bit Auflösung speichern? Die Farben reduzieren geht einfach mit runden. Das Bild mit 4-Bit oder 8-Bit (256 Farben) schreiben kann VB IMHO nicht. Bei 256 Farben ist auch zusätzlich noch eine Palette nötig, wie man damit umgeht weiß ich nicht. Wenn Du das Bild nur verändert speichern möchtest, würde ich dafür Irfanview nehmen und kein eigenes Programm schreiben wollen.

Gruß, Rainer

#3

Nachtrag Beispiel-Code
hallo,

wenn Du nur die Farben reduzieren willst, ein Beispielcode, wie es schnell geht.

Option Explicit

Private Type BITMAP
 bmType As Long
 bmWidth As Long
 bmHeight As Long
 bmWidthBytes As Long
 bmPlanes As Integer
 bmBitsPixel As Integer
 bmBits As Long
End Type
Private Declare Function GetObject Lib "gdi32" Alias \_
"GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, \_
lpObject As Any) As Long
Private Declare Function GetBitmapBits Lib "gdi32" \_
(ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function SetBitmapBits Lib "gdi32" \_
(ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Dim PicBits() As Byte, PicInfo As BITMAP
Dim Pos As Long, BPL As Long
Private Sub Command1\_Click()
 GetObject Picture1.Image, Len(PicInfo), PicInfo
 BPL = (PicInfo.bmWidth \* 3 + 3) And &HFFFFFFFC
 ReDim PicBits(1 To BPL \* PicInfo.bmHeight \* 3) As Byte
 GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
 For Pos = 1 To UBound(PicBits)
 PicBits(Pos) = Round(PicBits(Pos) / 255, 0) \* 255
 Next
 SetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
 Picture1.Refresh
End Sub

Gruß, Rainer

#4

Hi,

noch etwas gefunden.

Wenn Du das Bild in einer anderen Farbauflösung speichern willst, sieh Dir mal das hier an …

http://www.activevb.de/tipps/vb6tipps/tipp0493.html

Gruß, Rainer

#5

hey supi. das war genau der richtige tipp.
wie geht es denn dann auf 256 farben???

#6

hey supi. das war genau der richtige tipp.
wie geht es denn dann auf 256 farben???

Hallo,

bei 256 Farben müssen die Pixel Paletten zugeordnet werden das ist dann etwas komplizierter. Sieh Dir den Code eine Zeile höher an, da hat das ein Experte von AVB gemacht.

Gruß, Rainer

#7

ja supi hat alles geklappt.
hab es hier mit gemacht:
http://www.activevb.de/tipps/vb6tipps/tipp0493.html

danke nochmal.