作ったプログラムがうまくいきません、アドバイスお願いします。

三角形を塗りつぶししたいのですが、どうにもうまくいきません。

プログラムの説明としては、ＲＧＢを用いた塗りつぶしです。ＶＳｃｒｏｌｌの値を用いてＲＧＢを使い、
コマンドボタンを押すと、RGBで出た色で三角形が塗りつぶされるというものなのです。


Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long
Private Function Paint(X As Long, Y As Long)

     Dim T
    T = Screen.TwipsPerPixelX

    ExtFloodFill Me.hdc, X / T, Y / T, vbBlack, 0
    Me.Refresh

End Function

Private Sub Form_Load()
 
       Form1.AutoRedraw = True
    
    Form1.FillStyle = 0
    
    Line (4000, 1000)-(5000, 3000)
    Line -(3000, 3000)
    Line -(4000, 1000)

End Sub

Private Sub Command1_Click()

   Dim X As Integer
   Dim Y As Integer
   Dim Z As Integer
   
    X = VScroll1.Value
    Y = VScroll2.Value
    Z = VScroll3.Value

     Me.FillColor = RGB(X, Y, Z)
    
    
    
End Sub

回答よろしくお願いいたします。

こんにちは。

>三角形を塗りつぶししたいのですが、どうにもうまくいきません。

何がうまくいかないのでしょうか？

お返事ありがとうございます。

VBを勉強し始めて間が無いため、具体的な例は挙げれないのですが･･･

強いて言えば、三角形内の塗りつぶしがうまくいかないとしか。。。

最初のＡＰＩ関数はこのサイトに乗っていた別例のものをそのまま流用してるので、ＡＰＩが違うのでしょうか？それとも全く別の問題？

ちなみに別例というのは、オプションボタンを用いて塗りつぶすやつです。

> Declare Function ExtFloodFill 
塗りつぶしにこの API を使うという点は正しいですが、現状のコードでは
ボタンを押しても、この API を呼び出すには至っていませんよね。

たとえば、Command1_Click の最後に「Paint 0, 0」と記述すれば、三角形の外側が塗りつぶされますし、
三角形の内部点を指定すれば、三角形の内側が塗りつぶされることでしょう。

> Private Function Paint(X As Long, Y As Long)
戻り値を使わないのであれば、Function ではなく Sub を使いましょう。

> Dim T
> T = Screen.TwipsPerPixelX
T の型を明示しましょう。

> ExtFloodFill Me.hdc, X / T, Y / T, vbBlack, 0
本来は、縦座標には TwipsPerPixelX ではなく TwipsPerPixelY を使うべきです。
確かに TwipsPerPixelXとY は同値である事が多いですが、たとえば一部のプリンターでは
縦横の解像度が異なるケースもあります。(もっとも、今回は画面への出力なのですけれども)

ご指摘いただいた点は変更しました。

Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long
Private Sub Paint(X As Long, Y As Long)

     Dim T
    T = Screen.TwipsPerPixelY

    ExtFloodFill Me.hdc, X / T, Y / T, vbBlack, 0
    Me.Refresh

End Sub

ただ、型云々というのがいまいち分からないです。

このサイトを読み返してもわかりませんでした、他のサイトで調べたかったのですが、的確なキーワードがわからず断念しました。

>> Command1_Click の最後に「Paint 0, 0」と記述すれば、三角形の外側が塗りつぶされますし、
>> 三角形の内部点を指定すれば、三角形の内側が塗りつぶされることでしょう。
> ご指摘いただいた点は変更しました。
変更してみて、結果はどうなりましたか?


>> 縦座標には TwipsPerPixelX ではなく TwipsPerPixelY を使うべきです。
> T = Screen.TwipsPerPixelY
> ExtFloodFill Me.hdc, X / T, Y / T, vbBlack, 0
今度は、横座標に TwipsPerPixelY が使われてしまっていますよ。



> ただ、型云々というのがいまいち分からないです。
100 なら「整数型(Integer)」、100.0 なら「倍精度浮動小数点型(Double)」、
"100" なら「文字列型(String)」といった違いです。
VB では、変数宣言時の As 句などを通じて、それぞれのデータ型を明示できます。

で。

型の違いが処理結果に影響を与えてしまうケースもありますので、最終的には
型を意識したコードを記述できるようになっていた方が望ましいのですが、
今回程度の程度の違いであれば、VB 側が暗黙の型変換をおこなって対処してくれますので、
VB 自体に不慣れで、そこまで理解が追いつかないようであれば、型の理解は
ある程度後回しにしてしまってもよいと思います。

いろいろと試してたら、できました･･･

Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long
Private Function Paint(X As Long, Y As Long)

     Dim T
    T = Screen.TwipsPerPixelX

    ExtFloodFill Me.hdc, X / T, Y / T, vbBlack, 0
    Me.Refresh

End Function

Private Sub Form_Load()
 
       Form1.AutoRedraw = True
    
    Form1.FillStyle = 0
    
    Line (4000, 1000)-(5000, 3000)
    Line -(3000, 3000)
    Line -(4000, 1000)

End Sub

Private Sub Command1_Click()
 
  
     Me.FillColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
    Paint 4000, 1500
    
    
End Sub


上みたいな感じです。Xやらを使わずに、RGBの中に直接VScrooll.Valueを入れたらできました。

ポリゴン塗りつぶしごときに、APIを使うなんて方向性を間違えている。
桑原桑原。

VB.Netでは次の様にやるのが常道。
   Dim g As Graphics = Me.CreateGraphics
   nhokan = 0
   Dim arc(nhokan) As Point
   For lp = 0 To nhokan - 1
     arc(lp).X = .....
     arc(lp).Y = .....
   Next
   arc(nhokan).X = arc(0).X
   arc(nhokan).Y = arc(0).Y
' - 中塗り - 
   Dim myBrush As SolidBrush = New SolidBrush(Color.FromArgb(96, 224, 192, 240))
   g.FillPolygon(myBrush, arc)
   myBrush.Dispose()
' - 外周 - 
   Dim pen1 As New Pen(Color.FromArgb(190, 140, 210), 2)
   g.DrawPolygon(pen1, arc)
   pen1.Dispose()
   g.Dispose()

g を定義しないでやる場合は、Paintイベントを使うが、書き方はほぼ同じ。

> ポリゴン塗りつぶしごときに、APIを使うなんて方向性を間違えている。
いえ、今回の質問はどうみても VB.NET での質問ではありませんので、失礼ながら
Graphics クラスを使おうとする方が、回答の方向性がズレているかと思いますよ。

# というか…提示されたコードは某所のサンプルにそっくりですが、nhokan が 0 なので、
# たとえ VB.NET であったとしても、これでは目的を達成できないと思います。(汗

もし仮に、API 無しで塗りつぶしを実装させるべきだという意味であれば、
ソリッドスキャンコンバージョン法なり、スキャンラインシードフィル法なりの
アルゴリズムを組み込んで実装することができるでしょう。
(その回答を元質問者が望むかどうかは別として)