C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 51 を表示中)
■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
返信 編集キー/


管理者用

- Child Tree -