[elgokr]

(12-09-18, 11:05 PM)bidaya كتب :

اجل اخي الكريم هو كود جميل

لكن لماذا نكتب في المكان المراد تنفيذ الSub

RunText(Button1, "Thank you")

لمذا لم يتم ادخال كلمة  

"Thank you"

داخل ال  Sub

هذا افظل

اي بهذا الشكل

كود :

Sub RunText(ByRef Bt As Button)
       Bt.Enabled = False
       Bt.Text = "Thank you"
   End Sub

كود :

RunText(Button1)

لانك يمكنك استخدام الكود على اى زر وليس واحد فقط

لنقو ان لديك 10 Button فهل ستقوم بتكرار الكود لكل زر وحيث ان كل زر له نص مختلف عن الاخر

والامر عائد الك يمكنك ويمكنك ان تتحكم فى كود الـ Sub يمكنك ان تجعله بهذا الشكل

كود :

  Sub RunText()
      Button1.Enabled = False
      Button1.Text = "Thank you"
  End Sub

وطريقة الاستخدام

كود :

RunText()

أو بهذا الشكل

كود :

  Sub RunText(ByVal Text As String)
      Button1.Enabled = False
      Button1.Text = Text
  End Sub

وطريقة الاستخدام

كود :

RunText("Thank you")

انت لديك الفكرة وهو ما الا مثال

وطريقة الاستخدام النهائي تعتمد عليك

طبقاً لما تريد عمله فعلياً

تحياتى لك

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