Dim instance As ClientHwnd Dim pen As System.Drawing.Pen '線の色、幅、およびスタイルを決定する Dim pts As System.Drawing.Point() 'スプラインを定義するPoint構造体の配列 instance.DrawClosedCurveClient(pen, pts)
'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
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ