منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كتابة دالة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كتابة دالة (/showthread.php?tid=27199)

كتابة دالة - Simo1991 - 30-10-18

السلام عليكم

أنا مبتدئ في الفيجوال بيسك ولاحظت أن الدوال التي تستعمل دائما تكتب على هادا الشكل

كود :
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

   End Sub


أريد أن أكتب دالة وأستدعيها في كل مرة أحتاجها هل لازم كتابة


كود :
(sender As Object, e As EventArgs) Handles
أو ماهو الشكل العام لكتابة دالة لاترجع أي قيمة مثلا تعمل فقط توقيف لتايمر أو اخفاء label و دالة ترجع قيمة

جزاكم الله خيرا

RE: كتابة دالة - Rabeea Qbaha - 30-10-18

لا ليس عليك ذلك تحتاج المتغيرات الخاصه بك فقط

كود :
   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)


طبعا المتغيرات حسب حاجتك لها 
او يمكن تكون بدون شيئ

RE: كتابة دالة - Simo1991 - 30-10-18

(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

كود :
test()


RE: كتابة دالة - Rabeea Qbaha - 30-10-18

(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

كود :
test()

تماما، اكن اذا اردت استخدام الدلالة من فورم اخر يجب ان تكوم puplic sub وليس private

RE: كتابة دالة - elgokr - 30-10-18

(30-10-18, 07:07 PM)Rabeea Qbaha كتب : تماما، اكن اذا اردت استخدام الدلالة من فورم اخر يجب ان تكوم puplic sub وليس private

نعم ويمكنك ايضاً من خلال
كود :
Public Shared

تحياتى لك
وتمنياتى لك التوفيق