vb.net多边形填充 vb求多边形面积

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

VB中怎么实现多边形区域填充

Const ALTERNATE = 1

Const WINDING = 2

Private Type POINTAPI

X As Long

Y As Long

End Type

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function PtInRegion Lib "gdi32" (ByVal hRgn As Long, ByVal X As Long, ByVal Y 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 Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

Dim hRegion As Long

Dim hBrush As Long

Dim pic1 As New StdPicture

Private Sub Command1_Click()

Call FillRgn(Me.hdc, hRegion, hBrush)

End Sub

Private Sub Form_Load()

Dim p(8) As POINTAPI

Me.ScaleMode = 3

p(0).X = 100: p(0).Y = 100

p(1).X = 150: p(1).Y = 70

p(2).X = 110: p(2).Y = 70

p(3).X = 110: p(3).Y = 30

p(4).X = 50: p(4).Y = 30

p(5).X = 50: p(5).Y = 70

p(6).X = 30: p(6).Y = 70

p(7).X = 30: p(7).Y = 85

p(8).X = 85: p(8).Y = 85

hRegion = CreatePolygonRgn(p(0), 9, ALTERNATE)

hBrush = CreateSolidBrush(RGB(255, 0, 0))

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If PtInRegion(hRegion, X, Y) Then

Debug.Print "In 在多边形区域"

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

DeleteObject hRegion

DeleteObject hBrush

End Sub

我要用VB 对已经在picture里画好的由两个大小不一样的矩形组成的多边形进行填充。

可以用line填充，像这样：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Click()

sp = Me.DrawWidth * 15

For i = 0 To 1000 Step sp

Line (i, 0)-(i, 1000), vbRed

DoEvents

Sleep 20

End Sub

调整drawwidth可以设置填充快慢，比如大半径为r1,小半径r2,那么r2的填充线宽度为drawwidth*r2/r1

vb.net中有没有哪个控件可以自定义形状（如圆形，多边形）和颜色，如果有，希望你您给出代码

记得VB6当中有Shape控件，但是VB.net里这个控件不存在vb.net多边形填充了。

提个思路vb.net多边形填充：使用Picture控件或Label控件，通过代码在控件里绘图想要vb.net多边形填充的图形，可以试试。

在VB NET中，在Form_Load中创建graphics类，并绘制直线，为什么执行程序后发现直线绘制不出来？

1. 创建一个Graphics对象实例。

绘制图形必须创建Graphics对象。如果是在窗体上绘图vb.net多边形填充，要使用下列代码创建Graphics对象；

Dim MyGraphics As Graphics = Me.CreateGraphics

如果是在PictrueBox里绘图vb.net多边形填充，要使用下列代码创建Graphics对象；

Dim MyGraphics As Graphics = PictureBox1.CreateGraphics

2. 定义一个Brush对象，用来填充图形(如果vb.net多边形填充你需要填充vb.net多边形填充的话)。

如果填充封闭曲线或者多边形，必须创建Brush对象（或者Brush类的继承类对象），用来确定填充的颜色。例如下面的代码，创建vb.net多边形填充了一个填充红色的画刷对象。在最后的括号里，用Color结构指定的枚举值，确定画刷的颜色。限于篇幅有关Color结构这里不展开，可能在后续博文里介绍。

Dim RedBrush As New SolidBrush(Color.Red)