Dim instance As ClientHwnd Dim pen As System.Drawing.Pen '線の色、幅、およびスタイルを決定する Dim path As System.Drawing.Drawing2D.GraphicsPath '描画するGraphicsPathオブジェクト instance.DrawPathClient(pen, path)
'ClientHwndクラス DrawPathClientメソッド 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.DodgerBlue 'GraphicsPathオブジェクトの作成 Dim path As New Drawing2D.GraphicsPath '新しい図形を開始する path.StartFigure() '直線を2本追加する path.AddLine(0, 0, 50, 50) path.AddLine(100, 0, 150, 50) '図形を閉じる path.CloseFigure() '新しい図形を開始する path.StartFigure() '直線を2本追加する path.AddLine(0, 60, 50, 110) path.AddLine(100, 60, 150, 110) '新しい図形を開始する path.StartFigure() '直線を追加する path.AddLine(100, 120, 150, 170) '新しい図形を開始する path.StartFigure() '直線を追加する path.AddLine(0, 120, 50, 170) '四角を2つ追加する path.AddRectangle(New Rectangle(160, 10, 60, 80)) path.AddRectangle(New Rectangle(160, 100, 60, 60)) chw.DrawPathClient(pen, path) End Sub End Class
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ