[bidaya]

(12-09-18, 09:39 PM)elgokr كتب :

اهلاً بك اخى bidaya

لاتمام هذا كل ما عليك فعله التالى

قم باستخدام هذا الـ Sub

كود :

   Sub RunText(ByRef Bt As Button, ByVal Text As String)
       Bt.Enabled = False
       Bt.Text = Text
   End Sub

وتعال فى المكان المراد تنفيذ الـ Sub وطبق الكود التالى

كود :

RunText(Button1, "Thank you")

اتمنى ان يكون الكود بسيط لك

وانك قادر على التعامل معه

تحياتى لك

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

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

لكن لمذا نكتب في المكان المراد تنفيذ ال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)