Dim instance As ClientHwnd Dim br As System.Drawing.Brush '塗りつぶしの特性を決定するSystem.Drawing.Brush Dim rect As System.Drawing.Rectangle '楕円を定義する外接する四角形を表すRectangle構造体 Dim startangle As Integer 'X軸から扇形の最初の辺まで、時計回りに測定した角度(度単位) Dim sweepangle As Integer 'startangleパラメータから扇形の2番目の辺まで、時計回りに測定した角度(度) 'Overloads instance.FillPieClient(br, rect, startangle, sweepangle)
Dim instance As ClientHwnd Dim br As System.Drawing.Brush '塗りつぶしの特性を決定するSystem.Drawing.Brush Dim x As Integer '扇形の形状の元となる楕円を定義する外接する四角形の左上隅のX座標 Dim y As Integer '扇形の形状の元となる楕円を定義する外接する四角形の左上隅のY座標 Dim width As Integer '扇形の形状の元となる楕円を定義する外接する四角形の幅 Dim height As Integer '扇形の形状の元となる楕円を定義する外接する四角形の高さ Dim startangle As Integer 'X軸から扇形の最初の辺まで、時計回りに測定した角度(度単位) Dim sweepangle As Integer 'startangleパラメータから扇形の2番目の辺まで時計回りに測定した角度(度) 'Overloads instance.FillPieClient(br, x, y, width, height, startangle, sweepangle)
'ClientHwndクラス FillPieClientメソッド Imports System.Windows.Forms Imports System.Drawing Public Class AddIn Public Sub AddIn_Start() Dim chw As ClientHwnd = New ClientHwnd() Dim rect As Rectangle = New Rectangle(100,10,400,150) chw.FillPieClient(Brushes.GoldenRod, rect, 0, 180) chw.FillPieClient(Brushes.SlateBlue, 50, 100, 300, 400, 90, 135) End Sub End Class
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ