VB.NET質問スレ (Part16)
■ このスレッドは過去ログ倉庫に格納されています
0653651
2006/07/17(月) 23:38:05Palettesクラスというものがあることを知りませんでした・・・
というわけで
Dim oColorPalettes As System.Drawing.Imaging.ColorPalette
Dim oTargetImage As System.Drawing.Bitmap
oTargetImage = My.Resources.sample
oColorPalettes = oTargetImage.Palette
For i = 0 To oColorPalettes.Entries.Length - 1
If oColorPalettes.Entries(i) = Color.FromArgb(255, 0, 255) Then
oColorPalettes.Entries(i) = Color.FromArgb(0, 0, 0)
End If
Next
oTargetImage.Palette = oColorPalettes
Me.PictureBox.BackgroundImage = oTargetImage
としてみたのですが、パレットが変わりません・・・。
試しに、
For i = 0 To oColorPalettes.Entries.Length - 1
oColorPalettes.Entries(i) = Color.FromArgb(0, 0, 0)
Next
としてみたのですが、やはり変わりません。画像表示部分に問題があるのでしょうか。
■ このスレッドは過去ログ倉庫に格納されています