[RaggiTech]

كيف تستخدم كل من EnumListBox/EnumComboBox كونترول

في المشاركة السابقة أوضحت كبف تبني كونترول يقبل Enum فقط وبعد عمل Build ستجد نسخة من هذه الكونترول في صندوق الأدوات والكود التالي يوضح كيفية إستخدام أحدهما أو كليهما كالأتي

كود :

Public Class Form1

Private align As ContentAlignment = ContentAlignment.TopLeft
Private clr As Color = Color.Empty

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim knownColorType As Type = GetType(KnownColor)
Me.EnumListBox1.EnumType = knownColorType

Dim contentAlignmentType As Type = GetType(ContentAlignment)
Me.EnumComboBox1.EnumType = contentAlignmentType

End Sub

Private Function StringToEnum(Of T)(ByVal value As String, ByVal ignoreCase As Boolean) As T
If [Enum].IsDefined(GetType(T), value) Then
Return CType([Enum].Parse(GetType(T), value, ignoreCase), T)
End If
Throw New ArgumentException("value is not Enum")
End Function

Private Sub EnumListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnumListBox1.SelectedIndexChanged
clr = Color.FromKnownColor(StringToEnum(Of KnownColor)(Me.EnumListBox1.SelectedItem.ToString, True))
Invalidate()
End Sub

Private Sub EnumComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnumComboBox1.SelectedIndexChanged
align = StringToEnum(Of ContentAlignment)(Me.EnumComboBox1.SelectedItem.ToString, False)
Invalidate()
End Sub

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)

Dim TestRectangle As New Rectangle(10, 10, 200, 200)
Dim frameRect As Rectangle = TestRectangle
frameRect.X -= 4
frameRect.Y -= 4
frameRect.Width += 8
frameRect.Height += 8

Using obrush As New Drawing2D.LinearGradientBrush(frameRect, ControlPaint.Light(clr), ControlPaint.Dark(clr), Drawing2D.LinearGradientMode.Vertical)
e.Graphics.FillRectangle(obrush, frameRect)
Using framePen As New Pen(Brushes.Black)
e.Graphics.DrawRectangle(framePen, frameRect)
End Using
End Using

If Me.Text IsNot Nothing Then
Dim format As New StringFormat()
format.LineAlignment = StringAlignment.Center
format.Trimming = StringTrimming.EllipsisCharacter

Select Case align

Case ContentAlignment.BottomCenter
format.Alignment = StringAlignment.Center
format.LineAlignment = StringAlignment.Far
Exit Select
Case ContentAlignment.BottomLeft
format.Alignment = StringAlignment.Near
format.LineAlignment = StringAlignment.Far
Exit Select
Case ContentAlignment.BottomRight
format.Alignment = StringAlignment.Far
format.LineAlignment = StringAlignment.Far
Exit Select
Case ContentAlignment.MiddleCenter
format.Alignment = StringAlignment.Center
format.LineAlignment = StringAlignment.Center
Exit Select
Case ContentAlignment.MiddleLeft
format.Alignment = StringAlignment.Near
format.LineAlignment = StringAlignment.Center
Exit Select
Case ContentAlignment.MiddleRight
format.Alignment = StringAlignment.Far
format.LineAlignment = StringAlignment.Center
Exit Select
Case ContentAlignment.TopCenter
format.Alignment = StringAlignment.Center
format.LineAlignment = StringAlignment.Near
Exit Select
Case ContentAlignment.TopLeft
format.Alignment = StringAlignment.Near
format.LineAlignment = StringAlignment.Near
Exit Select
Case ContentAlignment.TopRight
format.Alignment = StringAlignment.Far
format.LineAlignment = StringAlignment.Near
Exit Select

End Select

Dim fnt As New Font("Times New Roman", 20.0F, FontStyle.Bold)
Using sb As New SolidBrush(Color.White)
e.Graphics.DrawString(Me.Text, fnt, sb, TestRectangle, format)
End Using

End If


End Sub

End Class

وستلاحظون أننا نقوم بتعريف Type من أي Enum ثم نمرره الي Property EnumType والكود التالي يوضح كيفية تمرير القيم الي Property EnumType

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim knownColorType As Type = GetType(KnownColor)
Me.EnumListBox1.EnumType = knownColorType

Dim contentAlignmentType As Type = GetType(ContentAlignment)
Me.EnumComboBox1.EnumType = contentAlignmentType

End Sub

بالمرفقات ستجدون نسخة من الكونترول وكيفية استخدامهم والكود بنسخة الفيجوال 2010

ولمستخدمي النسخ السابقة لنسخة 2010 يمكنهم نسخ الكود واستخدامه.............

ملحوظة أخيرة:
بالرغم أنني استخدمت جميع Enum لرسم أشياء علي الفورم لكن الأمر لايقتصر علي ذلك فقط فالفكرة بالنهاية واحدة ويمكن الإستفادة منها مع اي Enum ..............الأمر متروك لإبداعكم.....

تقبلوا تحياتي ولاتنسونا في دعاؤكم.............

أخوكم عمر