تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال label
#1
سلام عليكم
عندي user control  فيه label1 
عند وضع user control على اي form كاداة منفصلة
بياخد  الخط والحجم وغير ذلك من form اي بياخد صفات form
كل الى عاوزه هو اظهار user control كما هو بدون ان ياخذ اي صفات من اي form ينحط عليه
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة: asemshahen5
#2
لتفعيل ما تريد يجب عليك إضافة خصائص جديدة للأداة مثل خاصية الخط و خاصية المحاذاة تتصل بالأدوات الموجودة عل اليوزر كونترول و هذه بعض الأكواد المشروحة :


PHP كود :
Public Class UserControl1
    
'' تعريف حدث للزر
    Event ShowPassword
(sender As ObjectAs EventArgs)
 
   '' تعريف متغيير يحمل نووع الخط
    Private FontXT 
As Font = New Font("Arial"8.25FontStyle.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.ObjectAs System.EventArgsHandles Button1.Click
        
'' إظهار الحدث الجديد في الخصائص الخاصة في الاحداث لاضافة كود جديد حسب رغبة المبرمج
        RaiseEvent ShowPassword
(sendere)
 
   End Sub
End 
Class 

يوجد مثال بالمرفقات عن طريقة العمل و الله الموفق .


الملفات المرفقة
.zip   AddUserControlsPropertis1.zip (الحجم : 140.4 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة: سعود , محمود صالح , ابراهيم ايبو
#3
بارك الله فيك استاذي ونفع بعلمك
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة: asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم