■28230 / ) |
Re[4]: メッセージボックスから戻った後、Graphicsについて |
□投稿者/ らぐんす (8回)-(2008/11/21(Fri) 17:34:43)
|
皆様ありがとうございます。 重鎮の方々まで...恐れ多いのですが、ソースの抜粋です。
''' <summary> ''' 下線付きラベルです。 ''' </summary> Partial Public Class UnderLineLabel Inherits System.Windows.Forms.Label
''' <summary> ''' 線幅のメンバ ''' </summary> Private _large As Single = 1.0F
''' <summary> ''' 描画する線幅を指定する ''' </summary> <DefaultValue(1.0F)> _ Public Property LineLarge() As Single Get Return Me._large End Get Set(ByVal value As Single) If value < 1 Then Me._large = 1.0F Else Me._large = value End If End Set End Property
''' <summary> ''' 描画処理 ''' </summary> ''' <param name="e"></param> Protected Overloads Overrides Sub OnPaint(ByVal e As PaintEventArgs) MyBase.OnPaint(e)
'線パターンにあわせて描画する。 Using sb As New SolidBrush(Me.ForeColor) 'xy等を調べる Dim x As Single = e.Graphics.VisibleClipBounds.X 'Dim y As Single = e.Graphics.VisibleClipBounds.Y Dim width As Single = e.Graphics.VisibleClipBounds.Width Dim height As Single = e.Graphics.VisibleClipBounds.Height '線を描画する '上辺 e.Graphics.FillRectangle(sb, 0, height - _large, width, height) End Using
End Sub
End Class
|
|