100分求利用API函数BeginPath等方法画一个由两点直线和圆弧组成的多边形

[SimpleGIS]

要求如下：目前有一个多边形，假如它是由一个两点直线、一段圆弧和两点直线封闭而成的多边形，现在需要用API函数BeginPath，EndPath等方法来把这个多边形画出来，请大家不要用GDI+来实现，必须要用GDI来实现.

再补充一下我目前遇到的问题：我也使用了
W32API.BeginPath(m_lhDC);
W32API.Polyline(m_lhDC, ref ptArray[0], 2);
W32API.Arc(m_lhDC, leftTopPt.x, leftTopPt.y, rightBottomPt.x, rightBottomPt.y, toPt.x, toPt.y, fromPt.x, fromPt.y);
W32API.EndPath(m_lhDC);
W32API.StrokeAndFillPath(m_lhDC);
这些方法来画这个多边形，但发现画出来的多边形不完整，多边形中并没有直线段组成的部分，不知道为什么？请高手希望写一个简单的例子，谢谢

[SimpleGIS]

先谢谢楼上,

[TechnoFantasy]

ptArray你是怎么定义和赋值的？

[TechnoFantasy]

下面的代码你运行一下看看：

Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function Polyline Lib "gdi32.dll" (ByVal hdc As _
Long, ByRef lpPoint As Integer, ByVal nCount As Long) As Long
Private Declare Function Arc Lib "gdi32.dll" (ByVal hdc As Long, ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, _
ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function StrokeAndFillPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Type pointapi
X As Integer
Y As Integer

End Type

Private Sub Command1_Click()
Dim m_lhDC As Long
Dim ptArray(2) As pointapi

m_lhDC = GetDC(Form1.hwnd)
BeginPath m_lhDC
ptArray(0).X = 20
ptArray(0).Y = 20
ptArray(1).X = 100
ptArray(1).Y = 100



Call Polyline(m_lhDC, ptArray(0).X, 2)
Call EndPath(m_lhDC)
Call StrokeAndFillPath(m_lhDC)
End Sub

[SimpleGIS]

这个多边形没有加入弧线,谢谢,我一会测试一下

[SimpleGIS]

ptArray是一个POINTAPI结构的数组，
W32API.Polyline(m_lhDC, ref ptArray[0], 2); 在C#中指画一个由两点组成的直线，ptArray[0],2指从数组索引0开始，取两个点组成的直线

[贝隆]

没有实验过，我有一本关于VB绘图的书，你看看有没有对你有帮助的：
http://download.csdn.net/source/1817028

[ZFF20088]

谢谢一楼的Veron_04 提供的下载地址，《VB计算机绘图教程》我下载了

很好，再一次谢谢！！

[SimpleGIS]

发现画出的轮廓不对,对于圆弧部分,它把圆弧起点和终点连接成直线也放入路径中了,显然这条线不是我想要的,继续征集答案

[SimpleGIS]

在我的代码中,如果把最后一行的W32API.StrokeAndFillPath(m_lhDC); 修改成W32API.StrokePath(m_lhDC),可以画出多边形轮廓,但现在要的是不光画出轮廓,还要填充,哪位做过的,帮忙一下

[SimpleGIS]

顶一下

[SimpleGIS]

顶一下

[tzwsoho]

蹭分 - =！
最好LZ能贴图出来。。。方便理解。。。。

[SimpleGIS]

再顶一下