تقييم الموضوع :
  • 2 أصوات - بمعدل 3
  • 1
  • 2
  • 3
  • 4
  • 5
[مقال] كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟
#1
Star 
السلام عليكم و رحمة الله
كما هو مبين في العنوان "كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟"
هذه الجملة تقوم بتنفيذ مجموعة أو سلسلة من العبارات التي تشير إلى كائن معين يعني أعضاء خاصة به
ولكي تتوضح الصورة نأخذ هذا المثال البسيط
مثلا نقوم بإضافة تاكست بوكس إلى الفورم عن طريق الكود كما يلي:
طبعا الكود في حدث اللاود للفورم
PHP كود :
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load

        Dim textbox1 
As New TextBox
        Controls
.Add(textbox1)
    
End Sub 
و هذه صورة توضيحية بعد تشغيل المثال


الآن نقوم بإدخال بعض الأمور على الكائن تاكست بوكس مثل التكست و الحجم و حجم الخط و نوعه إلخ..
PHP كود :
Dim textbox1 As New TextBox

        textbox1
.Location = New Point(2020)
        
textbox1.BackColor Color.Black
        textbox1
.ForeColor Color.AliceBlue
        textbox1
.TextAlign HorizontalAlignment.Center
        textbox1
.Multiline True
        textbox1
.Size = New Size(300200)
        
textbox1.Font = New Font(textbox1.FontFontStyle.Bold)
        
textbox1.Font = New Font("Times New Roman"30)
        
textbox1.Text "mohammed moh"

        
Controls.Add(textbox1)
    
End Sub 
و هذه صورة توضيحية لما سينتج بعد تشغيل المثال

كما تلاحظون في الصورة أعلاه قمنا بإضافة بعض الأمور للكائن تاكست بوكس
الآن جاء الدور على جملتنا و أهم شيء في الموضوع ألا و هي (With...End With)
و يكون الكود كما يلي:
PHP كود :
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load

        Dim textbox1 
As New TextBox

        With textbox1
            
.Location = New Point(2020)
            .
BackColor Color.Black
            
.ForeColor Color.AliceBlue
            
.TextAlign HorizontalAlignment.Center
            
.Multiline True
            
.Size = New Size(300200)
            .
Font = New Font(textbox1.FontFontStyle.Bold)
            .
Font = New Font("Times New Roman"30)
            .
Text "mohammed moh"
        
End With
        
        Controls
.Add(textbox1)
    
End Sub 
و هذه الصورة توضح الناتج بعد عملية تشغيل المثال

الشيء الملاخظ هو أن الصورة 2 تشبه الصورة رقم 3 يعني جملتنا (With...End With) و ظيفتها إختصار كتابة الكائن كل مرة نريد فيها إضافة خاصية أو عنصر خاص به
يعني عوض أن نكتب
كائن1.عنصر1 = كذا
كائن1.عنصر2 = كذا
.
.
كائن1.عنصر(ن) = كذا
نكتب ما يلي:
PHP كود :
With الكائن
            
.عنصر1 كذا
            
.عنص21 كذا
            
.
            .
            .
            .
عنصر(ن) = كذا
        End With 
إلى هنا أكتفي بهذا القدر
و أتمنى أن تكون الفكرة قد وصلت
مع تحيات أخوكم محمد بالتوفيق
الرد }}}}
#2
مشكوووور و طرح جميل أخي الكريم ...

تحياتي
الرد }}}}
تم الشكر بواسطة: mohammed moh
#3
السلام عليكم ورحمة الله وبركاته


جزاك الله خيرا أخي الكريم
وجعله في ميزان حسناتك
الرد }}}}
تم الشكر بواسطة: mohammed moh
#4
السلام عليكم


بارك الله فيك



جميل جدا ومفيد جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة: mohammed moh
#5
شرح مبسط وجميل

اتمنى اني اقدر اشرح مثلك
الرد }}}}
تم الشكر بواسطة: mohammed moh
#6
جميل جدا واستفدت انا شخصيا من شرحك لافض فوك وبارك الله فيك
الرد }}}}
تم الشكر بواسطة: mohammed moh
#7
ألف شكر على هذا الموضوع الرائع
الرد }}}}
تم الشكر بواسطة: mohammed moh
#8
السلام عليكم ورحمة الله وبركاته




ما شاء الله، استمر، فالموضوع مفيد.




السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة: mohammed moh
#9
اسلوب مميز بالشرح

بارك الله فيك
الرد }}}}
تم الشكر بواسطة: mohammed moh
#10
السلام عليكم ورحمة الله وبركاته


جزاك الله خيرا أخي الكريم
شرح رائع اتمنى تستمر في دروس 

وجعله في ميزان حسناتك 
الرد }}}}
تم الشكر بواسطة: mohammed moh


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [مقال] كفية التعامل مه الجملة الشرطية IF alims 8 3,524 19-11-16, 01:06 AM
آخر رد: LoveVb

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


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