کمک در مورد کمتر نوشتن کد در یک برنامه

[oliya24]

سلام دوستان من در حال نوشتن یه برنامه هستم که چند فرم داره و در این هر کدام از این فرمها یه دکمه با عنوان چاپ وجود داره حالا من میخوام این کد رو یکبار بنویسم و برای فرم های دیگه ان را فراخوانی کنم
دقت کنید فراخوانی یعنی کدی رو که باید 6 بار تکرار کنم 1 بار بنویسم
ایا راهی هست ؟؟؟؟؟
که من 1 بار این کد رو برای 6 فرم مجزا که به هم هم ارتباطی ندارن بنویسم؟؟
ممنون میشم کمکم کنید :لبخند:

[M.KH-SH]

دوست عزیز میتونی کد ها رو در یک function در یک ماژول و یا یک کلاس بنویسی و با فراخوانی function کارتو پیش ببری

[oliya24]

دوست من -من زیاد با ماژول کار نکردم ولی ببین من این کار رو برای یک فرم انجام دادم مشکل اینه
من میخوام تو یه تکس باکسی که مخصوص نامست عملیات چاپ رو انجام بدم
باید این کنترلها رو روی فرم بزارم print document و دکمه
حالا من این کد رو نوشتم اما به خیلی چیزا ایراد گرفت

[M.KH-SH]

خوب دستوره کلی چاپ رو در یک ماژول بنویس و ادامه رو در کنترول مورد نظر البته قبل از اون باید تابع ساخته شده رو فراخوانی کنی.

اگه منظورت غیر از این بود لطفا واضح بیان کن

[oliya24]

ببین دوست من مشکل اینه که مازول از کنترلها ایراد میگیره مثلا تکس باکس یا پرینت داکیومنت به اینا خطا میگیره
دوست من -میشه یه لطفی بکنی و زحمتی بکشی من کد رو برات ایمیل میکنم و شما انرو تصحیح کن لطفا ایمیلت رو بده ممنونم
که کمک میکنی

[arash020]

شاید چون توی یه فرم , کنترل های فرم دیگه رو بدون آوردن نام فرم مادرشون صدا میزنی این خطا هایی که میگی رو میده؟!

[oliya24]

میشه یه مثال بزنید

[M.KH-SH]

برنامه رو برام بفرست تا من ببینم مشکلش چیه

[mohsencom]

شما داخل یه ماژول باید واسه هر فرم یه sub بنویسی...و وقتی میخوای کنترولی رو فراخوانی کنی اول اسم فرم رو بیاری مثلا form1.textbox1.text....
یا form1.printdocument1 .... بعد sub مربوط به هر فرم رو داخل کد همون فرم فراخوانی کنی...چیز خاصی نداره...همین

[oliya24]

خوب دوست من دستت درد نکنه من رو تو خیلی از مسائب راه انداختی ولی شما فرمودید که تو یه ماژول برای هر فرم یه sub بنویسم من هم 6 فرم دارم و میخوام این کد رو یکبار بنویسم و برای همه فرم ها فراخوانی کنم کاری که شما فرمودید همون 6 بار نوشتنه که من نمیخوام این کار رو بکنم

[M.KH-SH]

دوست عزیز از class استفاده کن و بجای sub از function استفاده کن و با استفاده از متغییر های فرم
public function tst(byval m as form) as string

end function

[sh2007]

با ساب روتین توی مازول راحت می تونی کارتو راه بندازی