先看看效果图吧:有动态绘制效果哦。
想不想知道怎么绘制的啊,别急,下面就直接给源码!
1界面设计。一个Form窗体,一个Panel控件,一个Button按钮。就这么简单。
代码:
'*********************************************************************
'作者:章鱼哥,QQ:3107073263 群:309816713
'如有疑问或好的建议请联系我,大家一起进步
'*********************************************************************
Imports Microsoft.VisualBasic.PowerPacks
Public Class Form1
'定义一些全局变量
Dim A_1_R As Double
Dim A_1_L As Double
Dim x1R As Double
Dim x1L As Double
Dim y1R As Double
Dim y1L As Double
Dim x2R, x2L As Double
Dim y2R, y2L As Double
Dim ArrayS As New ArrayList
Dim ArrayE As New ArrayList
Dim ArrayL As New ArrayList
Dim ArrayR As New ArrayList
Dim ind As Integer
Dim Rin As Integer
Dim PD As Boolean = False
Dim indx As Integer
Dim Lin As Integer
Dim PDST As Boolean = False
Dim CirD As Double
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'生成圆形
SetCircle()
'初始化一些变量
ini()
End Sub
'生成圆
Private Sub SetCircle()
Dim Cir As New OvalShape
Dim contain As New ShapeContainer
contain.Parent = Me.Panel1
Cir.Parent = contain
Dim Wid As Integer
If Panel1.Width > Panel1.Height Then
Wid = Panel1.Height
Else
Wid = Panel1.Width
End If
CirD = Wid
With Cir
.Location = New Point(0, 0)