+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : [مقال] كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟ (/showthread.php?tid=189)
الصفحات:
1
2
كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟ - mohammed moh - 20-09-13
السلام عليكم و رحمة الله
كما هو مبين في العنوان "كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟"
هذه الجملة تقوم بتنفيذ مجموعة أو سلسلة من العبارات التي تشير إلى كائن معين يعني أعضاء خاصة به
ولكي تتوضح الصورة نأخذ هذا المثال البسيط
مثلا نقوم بإضافة تاكست بوكس إلى الفورم عن طريق الكود كما يلي:
طبعا الكود في حدث اللاود للفورم
كما هو مبين في العنوان "كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟"
هذه الجملة تقوم بتنفيذ مجموعة أو سلسلة من العبارات التي تشير إلى كائن معين يعني أعضاء خاصة به
ولكي تتوضح الصورة نأخذ هذا المثال البسيط
مثلا نقوم بإضافة تاكست بوكس إلى الفورم عن طريق الكود كما يلي:
طبعا الكود في حدث اللاود للفورم
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim textbox1 As New TextBox
Controls.Add(textbox1)
End Sub
الآن نقوم بإدخال بعض الأمور على الكائن تاكست بوكس مثل التكست و الحجم و حجم الخط و نوعه إلخ..
PHP كود :
Dim textbox1 As New TextBox
textbox1.Location = New Point(20, 20)
textbox1.BackColor = Color.Black
textbox1.ForeColor = Color.AliceBlue
textbox1.TextAlign = HorizontalAlignment.Center
textbox1.Multiline = True
textbox1.Size = New Size(300, 200)
textbox1.Font = New Font(textbox1.Font, FontStyle.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 Object, e As EventArgs) Handles MyBase.Load
Dim textbox1 As New TextBox
With textbox1
.Location = New Point(20, 20)
.BackColor = Color.Black
.ForeColor = Color.AliceBlue
.TextAlign = HorizontalAlignment.Center
.Multiline = True
.Size = New Size(300, 200)
.Font = New Font(textbox1.Font, FontStyle.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
و أتمنى أن تكون الفكرة قد وصلت
مع تحيات أخوكم محمد بالتوفيق
RE: كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟ - hoob computer - 22-09-13
مشكوووور و طرح جميل أخي الكريم ...
تحياتي
RE: كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟ - sooriaty03 - 23-09-13
السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا أخي الكريم
وجعله في ميزان حسناتك
RE: كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟ - Sajad - 25-09-13
السلام عليكم
بارك الله فيك
جميل جدا ومفيد جزاك الله خيرا
RE: كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟ - الشاكي لله - 25-09-13
شرح مبسط وجميل
اتمنى اني اقدر اشرح مثلك
اتمنى اني اقدر اشرح مثلك
RE: كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟ - العزابي - 25-09-13
جميل جدا واستفدت انا شخصيا من شرحك لافض فوك وبارك الله فيك
RE: كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟ - دمعة المقهور - 26-09-13
ألف شكر على هذا الموضوع الرائع
RE: كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟ - @@أبورائد@@ - 27-09-13
السلام عليكم ورحمة الله وبركاته
ما شاء الله، استمر، فالموضوع مفيد.
السلام عليكم ورحمة الله وبركاته
RE: كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟ - kafi2030 - 28-09-13
اسلوب مميز بالشرح
بارك الله فيك
RE: كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟ - مبرمج أوتار - 28-09-13
السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا أخي الكريم
شرح رائع اتمنى تستمر في دروس
وجعله في ميزان حسناتك