إخواني الكرام ، تحية طيبة وبعد ،
أنا قمت ببناء مصفوفة غير محددة كما يلي :
Dim strValues() As String
عند عرض عدد المصفوفة UBound(strValues) يعطي لي الخطأ التالي :
Run-Time error '9'.
Subscript out of range
كيف أتأكد من أن المصفوفة ليست خالية من العناصر ، ولماذا دوال التحقق لا تنفع
مثل IsNull,IsEmpry,IsArray .
أنا بصراحة كنت أعرف طريقة بس نسيتها ، فرجاء المساعدة ،
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
في عدة حلول
1- هذا الحل لكن قد تجد به مشكلة بحيث يتم اغلاق الفيجوال بيسك لكن اثناء عمل ملف التشغيل لا توجد مشكلة
Dim Arr() As String If (Not Arr) = True Then MsgBox "فارغة" ReDim Arr(10) If (Not Arr) = True Then MsgBox "فارغة "
2- في form_load اعمل
redim arr(0)
ولن يظهر الخطأ بعد ذلك الخطأ
3- اعمل دالة خاصة كما يلي
Private Function IsArrInit(x As Variant) As Boolean On Error GoTo hErr IsArrInit = (UBound(x) >= 0) Exit Function hErr: End Function
4- توجد طريقة باستخدام api والتي هي باستخدام CopyMemory لكن لا اعرفها الان
قد يفيدك هذا ArrPtr function for vb5 and vb6
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
علي فكرة ، هذه الطريق هي التي كنت أتحدث عنها ، بس هناك شيء غريب لم يحدث معي من قبل ،
عند إنشاء متغير ( Dim Arr() As String ) وإرسالة للغرض يعطي لي نتيجة ( صفر ) !!!
وعند إنشاء متغير كما يلي يعطي لي نفس الناتج :
Dim Arr() As String ReDim Arr(10) Me.Caption = ArrayPtr(Arr)
فما العمل إذاً
شكراً أخي الكريم
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
هذا الموضوع مغلق.
