PictureBoxの画像を塗りつぶすには？
解決お世話になります。Takeruと申します。
[VB.NET]でPictureBoxの画像をAPIのextfloodfillを使用して、塗りつぶし、その画像をBMPとして保存しようとしています。
しかし、下記のソースで実行したところ、
extfloodfill実行後は塗りつぶされているのですが（見た目だけ）、
再描画された際に塗りつぶされていない状態に戻ってしまいます。
ですので、保存されたBMPも塗りつぶされていない状態で保存されています。
-----------------------------------------------------------------------------------------------------------------
'API宣言
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Integer) As Integer
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Integer, ByVal hObject As Integer) As Integer
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Integer) As Integer
Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Integer) As Integer
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer
Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Integer, ByVal wFillType As Integer) As Integer
Private Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As System.IntPtr) As System.IntPtr
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Integer, ByVal hDC As Integer) As Integer
Private Const FLOODFILLSURFACE As Short = 1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'画像の取得
Dim bmp As Bitmap = New Bitmap("c:\test.bmp")
PictureBox1.Image = bmp
Dim hBlackBrush As Integer = CreateSolidBrush(RGB(0, 0, 0))
Dim g As Graphics
g = Graphics.FromImage(PictureBox1.Image)
Dim hdc As IntPtr = GetDC(PictureBox1.Handle)
Dim rc As IntPtr = SelectObject(hdc, hBlackBrush)
'塗りつぶし
Dim color As Integer
color = GetPixel(hdc, 60, 60)
call ExtFloodFill(hdc, 60, 60, color, FLOODFILLSURFACE)
PictureBox1.Image.Save("c:\test1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'PictureBoxを再描画する
PictureBox1.Refresh()
End Sub
-----------------------------------------------------------------------------------------------------------------
塗りつぶしたい領域は図形ではないので、
GraphicsオブジェクトのFillRectangleメソッドなどでは
塗りつぶすことができません。
アドバイスをいただきたいと思います。
宜しくお願いいたします。
下記のような感じにできればいいのでしょうか？
http://hanatyan.sakura.ne.jp/samplepic/vb8_194.htm
私も色々試したのですが、多分、それでは継続的な描画ができないかと思います。
塗りつぶした後、その画像をPictureBox にコピーしてやればできますが。
そんなかんじです。
私の力ではどうにもならないので、有料サンプルを買わせていただきます。
VBレスキュー(花ちゃん)さんへ。
有料サンプル、参考にさせていただきました。
が、「画面に表示されている画像しか保存できない」などの問題があり
私の実現しようとしている物には生かせませんでした。
アルゴリズムを使って手動で塗りつぶす方法で実現しようと思います。
ありがとうございました
| ツイート |  |