ClientHwndクラス DrawEllipseClientメソッド
オブジェクトウインドウ座標で、外接する楕円を描画します。
使用法
1
2
3
4
5
6
Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen       '線の色、幅、およびスタイルを決定する
Dim rect As System.Drawing.Rectangle    '楕円の境界を定義するRectangle構造体
 
'Overloads
instance.DrawEllipseClient(pen, rect)
1
2
3
4
5
6
7
8
9
Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen       '線の色、幅、およびスタイルを決定する
Dim x As Integer        '楕円を定義する外接する四角形の左上隅のX座標
Dim y As Integer        '楕円を定義する外接する四角形の左上隅のY座標
Dim width As Integer    '楕円を定義する外接する四角形の幅
Dim height As Integer   '楕円を定義する外接する四角形の高さ
 
'Overloads
instance.DrawEllipseClient(pen, x, y, width, height)
使用例
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'ClientHwndクラス DrawEllipseClientメソッド
 
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.DarkGoldenrod
        Dim rect As Rectangle = New Rectangle(20, 70, 500, 200)
        chw.DrawEllipseClient(pen, rect)
 
        pen = Pens.ForestGreen
        chw.DrawEllipseClient(pen, 200, 100, 300, 70)
    End Sub
 
End Class