چطوری دستور dynamic در برنامه ایجاد کنیم

[میلاد علوی]

ببینید ما مثلا دستور زیر رو داریم
Public Sub lister( f As Form, t As TextBox
f.t.text= "میلاد"
end sub
چطوری وقتی این دستور رو تو هرجای برنامه و هر فرمی که توش textbox دارم فراخوانی میکنم بتونم مثلا تو textbox فرمم متن "سلام رو بنویسم"
یعنی فرض کنید من تو form1 برنامم textbox1 دارم حالا میخوام با استفاده از دستور بالا تو textbox فرمم "میلاد" رو بنویسم

form1_formload()
lister form1,textbox1
end sub
{به قسمت زرد رنگ دستور اولی توجه کنید "لطفا"}:افسرده::ناراحت::اشتباه::متع جب::گریه:

[Mbt925]

سلام.

نیازی به فرستادن فرم برای تابع نیست.





Public Sub Lister(objTextBox As TextBox, ByVal strText As String)
objTextBox.Text = strText
End Sub




به این صورت استفاده کنید:



Call Lister(Text1, "Sample text")

[میلاد علوی]

ممنون از پاسختون
اما تو این دستور فرمی در نظر گرفته نشده من میخوام این کار رو بکنم که
Public Sub Lister(forms as form,objTextBox As TextBox, ByVal strText As String)
forms.objTextBox.Text = strText
End Sub
منظورم اینه که وقتی دستور lister رو call می کنم فرمی رو هم در نظر بگیره
Call Lister(form1,Text1, "Sample text")
اگه این دستور اجرا بشه حالا می تونم تو form1 ,2,... هرچنتا فرمی که textbox دارم متنم رو نشون بدم

[Mbt925]

کدی که براتون قرار دادم کاملا درسته.

همون طور که گفتم، نیازی نیست که فرم رو برای تابع ارسال کنید، چون شیء جعبه متن خودش ارجاع درستی از فرم مربوطه در خودش داره.

پیشنهاد می کنم اول کد رو تست کنید و بعد قضاوت کنید.