۳۱-اردیبهشت-۱۳۸۷, ۰۷:۱۳:۱۳
۳۱-اردیبهشت-۱۳۸۷, ۲۳:۴۵:۵۶
سلام
این هم یه نمونه خیلی ساده برای ارسال ارایه به تایع
موفق باشی
این هم یه نمونه خیلی ساده برای ارسال ارایه به تایع
کد:
Public Function test(a() As Integer)
MsgBox a(1) + a(2)
End Function
Private Sub Form_Load()
Dim RJ(2) As Integer
RJ(1) = 68
RJ(2) = 20
Call test(RJ)
End Subموفق باشی
۰۱-خرداد-۱۳۸۷, ۱۴:۵۶:۳۱
در تکمیل این تاپیک و همین طور مثال جناب arashrj کد زیر رو هم اضافه کنم:
چه کار کنیم خروجی تابعمون به شکل یک آرایه باشه
چه کار کنیم خروجی تابعمون به شکل یک آرایه باشه
کد:
Public Function test(a As Integer, b As Integer, c As Integer) As String()
Dim RJ(2) As String
RJ(0) = a * 2
RJ(1) = b * 2
RJ(2) = c * 2
test = RJ
End Function
Private Sub Form_Load()
MsgBox test(1, 2, 3)(2) '=6
End Sub