pass form and button to procedure

مغلق

بدأه medo1976 في 18 سبتمبر 2003 · 2 رد · 616 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#118 سبتمبر 2003 في 15:46 صاحب الموضوع

Private Sub Form_Load()

setcap Command1

setcaption Me

End Sub

Public Sub setcap(button As Control)

button.Caption = "mohamed"

End Sub

Public Sub setcaption(frm As Form)

frm.Caption = "mohamed 76"

thanks

#218 سبتمبر 2003 في 17:45

السلام عليكم,

إدا كنت فقط تريد تغيير الكابشن ل 2 من الأدوات لمادا استعملت السابروتينات فيمكنك أن تضيفهم في الأول . فإنك بهده الطريقة قد تضيع وقت تشغيل البرنامج.

#318 سبتمبر 2003 في 18:12

salam alekom

thanks for u response i juz want to explain the idea

هذا الموضوع مغلق.