[bidaya]

(13-09-18, 10:53 AM)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)

ممتاز اخي

الى هذه النقطة وصلنا الى الشطر الاهم في السؤال

وهو هل يمكن تعريف الزر بمتغير أو باي شيا اخر

مثال على الشكل التالي

كود :

Dim Buton As نوع المتغير

كود :

RunText(Buton)