ClientHwndクラス DrawBezierClientメソッド
オブジェクトウインドウ座標で、ベジエ・スプラインを描画します。
使用法
Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen	'線の色、幅、およびスタイルを決定する
Dim pt1 As System.Drawing.Point	'曲線の開始点を表すPoint構造体
Dim pt2 As System.Drawing.Point	'曲線の最初の制御点を表すPoint構造体
Dim pt3 As System.Drawing.Point	'曲線の2番目の制御点を表すPoint構造体
Dim pt4 As System.Drawing.Point	'曲線の終了点を表すPoint構造体

'Overloads
instance.DrawBezierClient(pen, pt1, pt2, pt3, pt4)
Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen	'線の色、幅、およびスタイルを決定する
Dim x1 As Integer	'曲線の開始点のX座標
Dim y1 As Integer	'曲線の開始点のY座標
Dim x2 As Integer	'曲線の最初の制御点のX座標
Dim y2 As Integer	'曲線の最初の制御点のY座標
Dim x3 As Integer	'曲線の2番目の制御点のX座標
Dim y3 As Integer	'曲線の2番目の制御点のY座標
Dim x4 As Integer	'曲線の終了点のX座標
Dim y4 As Integer	'曲線の終了点のY座標

'Overloads
instance.DrawBezierClient(pen, x1, y1, x2, y2, x3, y3, x4, y4)
使用例
'ClientHwndクラス DrawBezierClientメソッド

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 pt1 As Point = New Point(20, 30)
        Dim pt2 As Point = New Point(50, 200)
        Dim pt3 As Point = New Point(250, 10)
        Dim pt4 As Point = New Point(300, 80)
        chw.DrawBezierClient(pen, pt1, pt2, pt3, pt4)

        pen = New Pen(Color.Brown, 5)
        Dim x1 As Integer = 150
        Dim y1 As Integer = 140
        Dim x2 As Integer = 350
        Dim y2 As Integer = 220
        Dim x3 As Integer = 180
        Dim y3 As Integer = 130
        Dim x4 As Integer = 600
        Dim y4 As Integer = 40
        chw.DrawBezierClient(pen, x1, y1, x2, y2, x3, y3, x4, y4)
        pen.Dispose()
    End Sub

End Class
 
 
 
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
便




top of page