おやじプログラマー日記

VB.NETでUserControlを使用してLEDランプの様な表示を行うコントロールを作成しました。

このコントロールには以下のメソッド・プロパティが備わっています。

プロパティ・メソッド	概要
OnLEDColor	ON状態のLEDの色
OffLEDColor	OFF状態のLEDの色
LEDBorderColor	LEDの外枠の色
LEDBorderWidth	LEDの外枠の幅
SetOnLED	LEDをONの状態にする
SetOffLED	LEDをOFFの状態にする
ButtonClick	LEDラベル・クリックイベント

このLEDコントロールのソースは以下の様になっています。
丸いLEDを描画するために、ラベルのResizeイベントでGraphicパスに楕円の領域を指定し、クリッピング処理をさせています。
また、ラベルのPaintイベント時に外枠をペンで強制的に描画しています。

''' <summary> ''' LEDの様な表示を行うUserControl ''' </summary> Public Class UserCtrlLED '//このUserControlのClickイベントをラベルClick時にイベント発生させるようにする Public Event ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) ''' <summary>LEDがONの時のColorのプロパティ</summary> Private _OnLEDColor As System.Drawing.Color = Color.Red Public Property OnLEDColor() Get Return _OnLEDColor End Get Set(ByVal value) _OnLEDColor = value End Set End Property ''' <summary>LEDがOFFの時のColorのプロパティ</summary> Private _OffLEDColor As System.Drawing.Color = Color.LightGray Public Property OffLEDColor() Get Return _OffLEDColor End Get Set(ByVal value) _OffLEDColor = value End Set End Property ''' <summary>LEDの外枠のColorのプロパティ</summary> Private _LEDBorderColor As System.Drawing.Color = Color.Black Public Property LEDBorderColor() Get Return _LEDBorderColor End Get Set(ByVal value) _LEDBorderColor = value End Set End Property ''' <summary>LEDの外枠の幅のプロパティ</summary> Private _LEDBorderWidth As Integer = 2 Public Property LEDBorderWidth() Get Return _LEDBorderWidth End Get Set(ByVal value) _LEDBorderWidth = value End Set End Property ''' <summary>LEDの状態プロパティ</summary> Public Enum LEDStatus '//状態enum OFF = 0 [ON] End Enum Private _Status As LEDStatus Public ReadOnly Property Status() As LEDStatus Get Return _Status End Get End Property ''' <summary>LEDをONにするメソッド</summary> Public Sub SetOnLED() Me.labelLED.BackColor = _OnLEDColor _Status = LEDStatus.ON End Sub ''' <summary>LEDをOFFにするメソッド</summary> Public Sub SetOffLED() Me.labelLED.BackColor = _OffLEDColor _Status = LEDStatus.OFF End Sub ''' <summary>LEDのラベル表面を円形にクリップする</summary> ''' <param name="g">Graphicsオブジェクト</param> Private Sub DisplayLED(ByVal g As Graphics) Me.labelLED.SetBounds(Me.labelLED.Left, Me.labelLED.Top, Me.labelLED.Width, Me.labelLED.Height) '//Graphicパス変数の宣言 Dim path As New System.Drawing.Drawing2D.GraphicsPath '//(高品質で低速なレンダリング)を指定する g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality '//GraphicPathに楕円の領域を指定追加 path.AddEllipse(g.VisibleClipBounds) '//クリッピング領域の設定 Me.labelLED.Region = New System.Drawing.Region(path) End Sub ''' <summary>ラベルのResizeイベント</summary> Private Sub labelLED_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles labelLED.Resize Me.labelLED.Height = Me.Height Me.labelLED.Width = Me.Width '//実際のLED画像の表示 Dim g As Graphics = Me.labelLED.CreateGraphics() DisplayLED(g) End Sub ''' <summary>ラベルのPaintイベント処理</summary> Private Sub labelLED_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles labelLED.Paint Dim g As Graphics = e.Graphics '//(高品質で低速なレンダリング)を指定する g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality '//Penの生成 Dim hPen As New System.Drawing.Pen(_LEDBorderColor, _LEDBorderWidth) hPen.DashStyle = System.Drawing.Drawing2D.DashStyle.Solid '//丸枠を描く g.DrawEllipse(hPen, Me.labelLED.Left, Me.labelLED.Top, Me.labelLED.Width, Me.labelLED.Height) '//Penの廃棄 hPen.Dispose() hPen = Nothing End Sub ''' <summary>ラベルのClickイベント処理</summary> Private Sub labelLED_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles labelLED.Click RaiseEvent ButtonClick(sender, e) End Sub End Class

このコントロールを使った例を以下に示します。

Private Sub ButtonLED1ON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLED1ON.Click UserCtrlLED1.SetOnLED() End Sub Private Sub ButtonLED1OFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLED1OFF.Click UserCtrlLED1.SetOffLED() End Sub Private Sub ButtonLED2ON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLED2ON.Click UserCtrlLED2.SetOnLED() End Sub Private Sub ButtonLED2OFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLED2OFF.Click UserCtrlLED2.SetOffLED() End Sub Private Sub UserCtrlLED1_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserCtrlLED1.ButtonClick MsgBox("UserCtrlLED1 Click") End Sub

実際のフォームの表示は以下の様になります。