已知三角形三个顶点坐标，怎么将这个三角形填充颜色啊，求代码

Question

已知三角形三个顶点坐标，怎么将这个三角形填充颜色啊，求代码

Answer 1

怎么跟你联系呢
我也遇到同样的问题 了HttpTool configHttp url====http://wap.cmgame.com/portalone/WML/portalone.portal?p_l_id=7109
CMCC_PROXY + tmpUrl====http://10.0.0.172:80/portalone/WML/portalone.portal?p_l_id=7109
responseCode===200
length====1348
fdsfsdfsd1348
java.lang.RuntimeException: IOException reading reader invalid first byte 10001011

Answer 2

Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
'创建区域
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
'创建纯色的刷子
Private Declare Function FillRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long) As Long
'用指定刷子填充区域的函数
Private Type POINTAPI
x As Long
y As Long
End Type
'点结构
Private Const WINDING = 2
'根据绘图方向填充图形Private Sub Form_Paint() '无论是什么容器，都必须在Paint事件里写着一段代码
Dim POI(2) As POINTAPI
POI(0).x = 0 '第一个点的横坐标（使用容器的坐标系）
POI(0).y = 0 '第一个点的纵坐标（使用容器的坐标系）POI(1).x = 200 '第二个点的横坐标
POI(1).y = 200 '第二个点的纵坐标POI(2).x = 150
POI(2).y = 250Shapes = CreatePolygonRgn(POI(0), 3, WINDING)
'创建三角形区域，POI(0)是第一个点，3是点数
Brush = CreateSolidBrush(RGB(0, 0, 0))
'创建一个黑色的刷子（RGB（0，0，0）代表黑色）
FillRgn Me.hdc, Shapes, Brush
'填充三角形,Me.hdc是窗体的图形设备句柄，shapes是区域句柄，Brush是刷子句柄
End Sub代码已经过调试，绝对可行