منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

ممكن مساعده في الفيجول واكون ممنونه منكم..

اذا عندي مصفوفه مثلا تتكون من [e1,e3,e4,e5,e6,e8,e1,e2,e4,e5,e6,e8]

كيف استطيع ان الغي العناصر المتكرره فيها وارتبها بالتسلل اي تصبح

[e1,e2,e3,e4,e5,e6,e8]

؟؟؟؟؟؟؟

والسؤال الثاني اذا لم اعرف طول مصفوفه واريد افتح for بحجم المصفوفه فكيف هو الكود لذلك
؟؟؟؟؟؟

ارجووو المساعده وشكرررا

ج1:
تضيفها الى لست

و بعدين

كود :

xx=list1.listcount-1

 for i=0 to xx

 text1.text=list1.list(0)

for  for ii=0 to xx

if text1.text = list1.list(ii) then

list1.removeitem(ii)

endif

next ii

x=list1.listcount-1

list1.additem(x)

list1.list(x)=text1.text

next i

للترتيب من خصائص اللست توجد خاصية stored اجعلها true

ج2: تضع المصفوفة في لست ثم

text2.text =list1.listcount

شكرا asto بس انا عندي كود كبير وبداخله وصلت الى مصفوفه مثلا [upper(12)=[e1,e3,e4,e5,e6,e8,e1,e2,e4,e5,e6,e8 واريد احذف العناصر المتكرره فيها اي تصبح
[e1,e2,e3,e4,e5,e6,e8] .........فكيف اضعها في لست Huh

ممكن طريقه اخرى واكدر اضيفه بنفس الكود الي عندي ؟؟؟؟؟؟؟؟؟؟؟؟؟

بسيطة

كود :

for i=0 to 11

list1.additem(i)

list1.list(i)=upper(i)

next i

لكن بعد تعريف المصفوفة على شكل

redim upper(12(

و ادخال العناصر اليها

بالشكل 

upper(0)="e1"

او  ادخالها في تكست واحد و بينها فواصل و استعمال الامر Split ثم

upper(0)=Split(text3.text,",")(0(

حتى آخر عنصر

شكررراااا جزيلا عاشت الايادي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الوفا

asto

الوفا

asto

الوفا