Fillcolor or equivalent for a triangle 1

[dileas]

Any oldies like me out there who can help with VB3. I am trying to draw solid coloured triangles and am stumped. Can anyone advise, please.

TIA

 

[strongm]

How are yo drawing the triangle? Using set of Line statements?

You might want to consider using the API, and the follwoing two functions: SetPolyFillMode and Polygon

 

[strongm]

In fact, here's a quick example. You'll need a form with a picturebox and a command button.
[tt]
Option Explicit
Private Declare Function SetPolyFillMode Lib "gdi32" (ByVal hdc As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Const ALTERNATE = 1
Private Const WINDING = 2


Private Sub Command1_Click()
Dim pts() As POINTAPI

ReDim pts(3)

pts(0).x = 20
pts(0).y = 20
pts(1).x = 100
pts(1).y = 100
pts(2).x = 20
pts(2).y = 100

Picture1.FillStyle = 0 ' solid fill

Call SetPolyFillMode(Picture1.hdc, WINDING)
Call Polygon(Picture1.hdc, pts(0), 3)
End Sub