چگونگی تعریف و فراخوانی تابع

[sajjad etemadfar]

سلام من می خوام این چند خط کد رو تو برنامم به صورت یه تابع در بیارم که در طول برنامه وقتی نیاز بهشون پیدا می کنم
دیگه این همه خط کد رو ننویسم
کد هام هم اینا هستن
Dim con As New SqlConnection
Dim ds As New DataSet
Dim da As SqlDataAdapter
Dim cmd As New SqlCommand
Dim str As String
Dim dr As SqlDataReader

فقط یه اسم رو فراخوانی کنم البته می خوام تو همه ی فرم های برنامه بتونم فراخوانیشون کنم
چه طوری؟
ممنون میشم از کسی که پاسخ میده
در ضمن این تابع ورودی هم نداره فقط می خوام واسم فراخونی کنه این چندکد رو

[ali_najari]

دوست عزیز از کلاس استفاده کن
یعنی کدهات رو توی کلاس تعریف کن و بعد هرکجا که خواستی کلاس رو فراخوانی کن

[sajjad etemadfar]

دوست عزیز از کلاس استفاده کن
یعنی کدهات رو توی کلاس تعریف کن و بعد هرکجا که خواستی کلاس رو فراخوانی کن


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

[lahij.ir]

سلام من می خوام این چند خط کد رو تو برنامم به صورت یه تابع در بیارم که در طول برنامه وقتی نیاز بهشون پیدا می کنم
دیگه این همه خط کد رو ننویسم
کد هام هم اینا هستن
Dim con As New SqlConnection
Dim ds As New DataSet
Dim da As SqlDataAdapter
Dim cmd As New SqlCommand
Dim str As String
Dim dr As SqlDataReader

فقط یه اسم رو فراخوانی کنم البته می خوام تو همه ی فرم های برنامه بتونم فراخوانیشون کنم
چه طوری؟
ممنون میشم از کسی که پاسخ میده
در ضمن این تابع ورودی هم نداره فقط می خوام واسم فراخونی کنه این چندکد رو

اگه منظورتو درست فهمیده باشم باید اینجوری عمل کنی
اول یه Module به فرمت اضافه کن ( از منوی Project ) ، بعد داخل module یه تابع عمومی تعریف کن مثلا برای دادن یک پیغام خاص این تابع و مینویسیم داخل module :

Public Sub tabe()
MsgBox("do somthing :D")
End Sub

tabe اسم تابع ما هست که میتونیم بجاش هر چیز دیگه ای بنویسیم

اگه میخوای کد های خودت هر دفعه اجرا بشه به جای msgbox که من نوشتم کدای خودتو بنویس
حالا از هر جای برناممون میتونیم این تابع و فرخوانی کنیم تا اون پیغام خاص و بده مثلا داخل یه button میایم مینویسیم :

tabe()

همین :لبخند: حالا هر جای دیگم خواستی اگه بنویسی tabe() اون پیغام خاص یه هر چیز دیگه ای که تو تابع نوشتی انجام میشه ، نمونه ی همین چیزی که گفتم هم برات پیوست میکنم این پایین میتونی ببینی ، با vs 2010 نوشته شده