1 2 3 4 5 | Dim instance As ClientHwnd Dim pen As System.Drawing.Pen '線の色、幅、およびスタイルを決定する Dim pts As System.Drawing.Point() 'スプラインを定義するPoint構造体の配列 instance.DrawClosedCurveClient(pen, pts) |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | 'ClientHwndクラス DrawClosedCurveClientメソッド Imports System.Windows.Forms Imports System.Drawing Public Class AddIn Public Sub AddIn_Start() Dim chw As ClientHwnd = New ClientHwnd() Dim pen As Pen = Pens.RoyalBlue Dim pts As point() = New Point() { _ New Point(50, 30) _ , New Point(90, 200) _ , New Point(250, 10) _ , New Point(300, 80) _ , New Point(400, 10) _ , New Point(450, 200) _ , New Point(120, 300) _ , New Point(300, 50) _ , New Point(60, 80) _ } chw.DrawClosedCurveClient(pen, pts) End Sub End Class |