02-10-12, 08:07 AM
6. الاتصال بتابع أو إجراء معين:
هذه العملية تستخدم كتسهيل للتعامل مع الكود والتعديل عليه تخيل معي النموذج التالي:
سوف نستخدم كود مشابه للتالي:
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "5055050" Then
MsgBox("صح")
Else
MsgBox("خطأ")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox2.Text = "العراق" Then
MsgBox("صح")
Else
MsgBox("خطأ")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox3.Text = "الاخضر" Then
MsgBox("صح")
Else
MsgBox("خطأ")
End If
End Subعلي البحث عن كل صح وخطأ وتعديلها فالافضل إنشاء اختصار واتصال مع هذه الجمل كالتالي
كود :
Private Sub yyy()
MsgBox("صح")
End Sub
Private Sub xxx()
MsgBox("خطأ")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "5055050" Then
yyy()
Else
xxx()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox2.Text = "العراق" Then
yyy()
Else
xxx()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox3.Text = "الاخضر" Then
yyy()
Else
xxx()
End If
End Subفالنقطة السابقة هي لتوضيح أن التعامل مع التوابع و الإجراءات يساعدنا في كتابة برامجنا وتقسيمها وتسهيل التعامل مع هذه الأقسام.