VB.NET質問ｽﾚ (Part8) - 暇つぶし2ch

VB.NET質問ｽﾚ (Part8) at TECH

443:435
05/01/08 04:20:49
>>441さん他に教えていただいたことをもとに以下の様なソースを書いてみたのですが動きません…orz

Private bmp As Bitmap = New Bitmap(256, 256)
Private Graph As Graphics = Graphics.FromImage(bmp)

Public Function Fill(ByVal FillColor As Color, ByVal x As Integer, ByVal y As Integer) As Integer
　Dim hdc As IntPtr = Graph.GetHdc()
　Dim brs As Integer = CreateSolidBrush(ColorTranslator.ToWin32(FillColor))
　Dim old As Integer = SelectObject(hdc, brs)
　Dim CrColor As Integer
　Dim ret As Integer

　'Me.GetPixel()：ﾏｳｽﾀﾞｳﾝされた座標点の色
　CrColor = ColorTranslator.ToWin32(Me.GetPixel(x, y))
　ret = ExtFloodFill(hdc, x, y, CrColor, 1)

　SelectObject(hdc, old)
　DeleteObject(brs)
　Graph.ReleaseHdc(hdc)
End Function

どこかご指摘点ありますでしょうか(´；ω；`)

次ページ

続きを表示

1を表示