Public Class UserControl1
'' تعريف حدث للزر
Event ShowPassword(sender As Object, e As EventArgs)
'' تعريف متغيير يحمل نووع الخط
Private FontXT As Font = New Font("Arial", 8.25, FontStyle.Regular)
'' تعريف خاصية الخط للادوات الموجودة الليبل و التكست بوكس
Public Overrides Property Font() As Font
Get
'' يعيد قيمة المتغيير
Return FontXT
End Get
Set(ByVal value As Font)
'' يسند قيمة جديدة للأدوات من تغيير خاصية الأداة
FontXT = value
'' يسند خط من خصائص الأداة UserControl لأداة التكست و أداة الليبل
TextBox1.Font = value
Label1.Font = value
End Set
End Property
'' تعريف متغير نص
Private Lbl_LabelTextXT As String
'' تعريف خاصية التكست الخاصة بالليبل
Public Property Lbl_LabelText() As String
Get
'' يعيد قيمة المتغيير للأداة
Return Lbl_LabelTextXT
End Get
Set(ByVal value As String)
'' يسند قيمة جديدة للمتغيير من الخصائص
Lbl_LabelTextXT = value
'' يسند القيمة الجديدة لليبل من الخصائص
Label1.Text = value
End Set
End Property
'' تعريف متغيير نصي
Private Txt_PasswordXT As String
'' تعريف خاصية جديدة للأداة العامة
Public Property Txt_Password() As String
Get
'' العودة بقيمة المتغيير
Return Txt_PasswordXT
End Get
Set(ByVal value As String)
'' اسناد قيمة جديدة للمتغيير من الخصائص
Txt_PasswordXT = value
'' اسناد قيمة نصية للتكست بوكس من الخصائص
TextBox1.Text = value
End Set
End Property
'' تعريف متغيير من نوع بولين
Private UseSystemPasswordCharXT As Boolean = False
Public Overloads Property UseSystemPasswordChar() As Boolean
Get
'' العودة بقيمة المتغيير للأداة
Return UseSystemPasswordCharXT
End Get
Set(ByVal value As Boolean)
'' إسناد قيمة المتغيير من الخصائص
UseSystemPasswordCharXT = value
'' إسناد قيمة جديدة لعرض النص داخل التكست ككلمة مرور
TextBox1.UseSystemPasswordChar = value
End Set
End Property
'' تعريف متغير لمحاذاة النص في التكست
Private Txt_TextAlignXT As HorizontalAlignment = HorizontalAlignment.Right
'' تعريف خاصية جديدة للأداة و هي محاذاة النص في التكست
Public Overloads Property Txt_TextAlign() As HorizontalAlignment
Get
'' العودة بقيمة المتغير للأداة
Return Txt_TextAlignXT
End Get
Set(ByVal value As HorizontalAlignment)
'' إسناد قيمة للمتغير من الخصائص
Txt_TextAlignXT = value
'' إسناد قيمة لمحااة النص في التكست من الخصائص
TextBox1.TextAlign = value
End Set
End Property
'' تعريف متغير محاذاة النص لليبل و هو مختلف عن المتغير الخاص بالتكست
Private Lbl_TextAlignXT As ContentAlignment = ContentAlignment.TopLeft
Public Overloads Property Label_TextAlign() As ContentAlignment
Get
'' العود بالمتغير للخاصية الموضوعة للاداة
Return Lbl_TextAlignXT
End Get
Set(ByVal value As ContentAlignment)
'' إسناد خاصية جديدة للمتغير من الخصائص
Lbl_TextAlignXT = value
'' اسناد خاصية جديدة لمحاذاة الليبل باليوزر كنترول
Label1.TextAlign = value
End Set
End Property
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'' إظهار الحدث الجديد في الخصائص الخاصة في الاحداث لاضافة كود جديد حسب رغبة المبرمج
RaiseEvent ShowPassword(sender, e)
End Sub
End Class