نحوه استفاده از آرايه در توابع

[user2535]

سلام
يکي از متغيرهاي يک تابع را به صورت آرايه تعريف نموده ام حالا وقتي مي خواهم در زمان صدا زدن تابع به آن مقدار بدهم يا از آن استفاده کنم خطا مي دهد
من مي خواهم تعدادي متغير مشابه رشته اي را گرفته و توسط يک تابع و با استفاده از حلقه for ودرصورتيکه مقدار داشته باشد در محل ديگري نشان دهم
ممنون

[Saman_12]

سلام.
خوب وقتی به صورت ارایه تعریف کردی با ید به صورت آرایه بهش بدی به کد زیر دقت کن :


Private Function Saman_12(ByVal Saman() As Integer) As Integer
For Each i As Integer In Saman
Saman_12 += i
Next
End Function

Private Sub Saman_12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim I() As Integer = {10, 20, 30, 40, 50}
MsgBox(Saman_12(I))
End Sub

حالا اگه منظورت اینه که پارمتر رو آرایه در نظر گرفتی میشه این جوری :


Private Function Saman_12(ByVal ParamArray Saman() As Integer) As Integer
For Each i As Integer In Saman
Saman_12 += i
Next
End Function

Private Sub Saman_12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox(Saman_12(10, 20, 30, 40, 50))
End Sub

اگه مشکل حل شد که هیچی اگه نشد یکم بیشتر توضیح بده!