مشکل با ارایه های عمومی

[saed2006]

با سلام
در ماژول برنامه ارایه ای عمومی وجود دارد که اندازهش توسط یکی از توابع برنامه تعیین و مقدار دهی میشود
در حالی که برای تعریف ارایه باید اندازه اون رو قبل از فراخوانی تابع اعلام کنم
(چون در متغییر های عمومی تعریف شده)
چه پیشنهادی دارین که بتونم این کارو انجام بدم
همچنین هنگام مقدار دهی به ارایه(ar1=ar2 )خطای cant assign to array رو میگیره
ar1 ارایه عمومی
ar2 ارایه ای تو خود تابع

[ali_habibi1384]

سورستون رو اینجا آپلود کنید.

[saed2006]

این سورسش است روال اصلی start prosse است و ارایه ها به توابع xsort ysort فرستاده میشند و باید در ارایه های عمومی ذخیره بشوند
که خطا میگیره

[saed2006]

خواهشا هر کدوم میدونید جواب بدین

[ASKaffash]

با سلام
چرا از آرایه های پویا استفاده نکرده اید مثل

Private A() As Variant
Private Sub Command1_Click()
Static S As Byte
S = S + 1
ReDim Preserve A(S)
A(S) = S
End Sub

[saed2006]

ارایه پویا میتونه public هم باشه

[vbhamed]

سلام

آرايه رو تو قسمت عمومي به شكل زير تعريف كنيد

Public Ar() as Variant

و قبل از فراخواني يك بار اندازه 0 بهش بدين

Redim Ar(0) As Variant

بعد تو تابع هم كه اندازه جديد بهش داده ميشه

 ReDim Preserve Ar(10) As Variant

[ASKaffash]

با سلام
فقط در سطح ماژول که مسئله شما هم همینه !