السلام عليكم
أنا مبتدئ في الفيجوال بيسك ولاحظت أن الدوال التي تستعمل دائما تكتب على هادا الشكل
كود :
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
أريد أن أكتب دالة وأستدعيها في كل مرة أحتاجها هل لازم كتابة
كود :
(sender As Object, e As EventArgs) Handles
أو ماهو الشكل العام لكتابة دالة لاترجع أي قيمة مثلا تعمل فقط توقيف لتايمر أو اخفاء label و دالة ترجع قيمة
جزاكم الله خيرا
لا ليس عليك ذلك تحتاج المتغيرات الخاصه بك فقط
كود :
Private Sub test(ByVal x As Integer, ByVal y As String, ByVal z As Boolean)
TextBox1.text = x
TextBox2.text = y
TextBox1.Enabled = z
End Sub
وتقوم باستدعائها كما ياتي
كود :
test(1, "hello", True)
طبعا المتغيرات حسب حاجتك لها
او يمكن تكون بدون شيئ
(30-10-18, 06:27 PM)Rabeea Qbaha كتب : [ -> ]لا ليس عليك ذلك تحتاج المتغيرات الخاصه بك فقط
كود :
Private Sub test(ByVal x As Integer, ByVal y As String, ByVal z As Boolean)
TextBox1.text = x
TextBox2.text = y
TextBox1.Enabled = z
End Sub
وتقوم باستدعائها كما ياتي
كود :
test(1, "hello", True)
طبعا المتغيرات حسب حاجتك لها
او يمكن تكون بدون شيئ
جزاك الله خيرا
بالنسبة لدالة بدون متغيرات ممكن أكتب فقط
كود :
Private Sub test()
timer1.stop()
timer2.stop()
End Sub
(30-10-18, 06:37 PM)Simo1991 كتب : [ -> ] (30-10-18, 06:27 PM)Rabeea Qbaha كتب : [ -> ]لا ليس عليك ذلك تحتاج المتغيرات الخاصه بك فقط
كود :
Private Sub test(ByVal x As Integer, ByVal y As String, ByVal z As Boolean)
TextBox1.text = x
TextBox2.text = y
TextBox1.Enabled = z
End Sub
وتقوم باستدعائها كما ياتي
كود :
test(1, "hello", True)
طبعا المتغيرات حسب حاجتك لها
او يمكن تكون بدون شيئ
جزاك الله خيرا
بالنسبة لدالة بدون متغيرات ممكن أكتب فقط
كود :
Private Sub test()
timer1.stop()
timer2.stop()
End Sub
تماما، اكن اذا اردت استخدام الدلالة من فورم اخر يجب ان تكوم puplic sub وليس private