'========================================================
'函数名称:Drawing2()
'函数参数:
'函数功能:绘制一个不规则4边形
'=======================================================
Private Sub Drawing2()
Dim Graphics1 As Graphics = PictureBox1.CreateGraphics '在容器PictureBox1里面 创建画布
Dim Pen1 As New Pen(Color.Red) ' 创建画笔,并且制定红色
Dim p(3) As Point '定义四边形的四个顶点的坐标
p(0).X = 100
p(0).Y = 15
p(1).X = 80
p(1).Y = 90
p(2).X = 90
p(2).Y = 120
p(3).X = 130
p(3).Y = 150
Graphics1.DrawPolygon(Pen1, p)
Graphics1.Dispose() '释放内存
Pen1.Dispose() '释放内存
End Sub
VB.NET绘图2---绘制一个不规则4边形
猜你喜欢
转载自blog.csdn.net/weixin_43075782/article/details/82115373
今日推荐
周排行