دسترسی به محتویات آرایه

[ali-software]

سلام.من در فرم لود یک ارایه 3 در چهار نوشتم که توسط inputbox دریافت می شود.حالا چه طور می تونم در فرم یک دکمه بگذارم که هر وقت روش کلیک شد تمام آرایه نشان داده شود.ممنون

[xxxxx_xxxxx]

به تعداد ابعاد آرايه به حلقه احتياج داريد. آرايه شما دو بعدي هست پس دو حلقه تودرتو احتياج داريد:


Dim Aray(2, 3) As Integer
For i = 0 To 2
For j = 0 To 3
Print Aray(i, j)
Next j
Next i

[sohrab o]

میتونی به ListBox اضافه کنی!

[vbhamed]

به تعداد ابعاد آرايه به حلقه احتياج داريد. آرايه شما دو بعدي هست پس دو حلقه تودرتو احتياج داريد:


Dim Aray(2, 3) As Integer
For i = 0 To 2
For j = 0 To 3
Print Aray(i, j)
Next j
Next i



ضمن تشكر از xxxxx_xxxxx عزيز

فقط يادتون باشه بايد آرايه رو در قسمت عمومي فرم (بالاي همه كدها نه داخل روال ها) تعريف كنيد تا داخل روال اشياء ديگه هم دسترسي داشته باشيد

[sohrab o]

Dim Aray(2, 3) As Integer
For i = 0 To 2
For j = 0 To 3
List1.AddItem Aray(i, j)
Next j
Next i

[ali-software]

مثال :اگر خواسنتم در یک تکست باکس بریزم چطور و یا این که در کامند

[ali-software]

Dim i
Dim j
Dim Aray(1 To 2, 3 To 6) As Integer
For i = 0 To 2
For j = 0 To 3
Aray(i, j) = InputBox("bnh")
Next j
Next i
این کد چه اشکالی دارد.ارر می دهد.حالا وقتی این کد رو گرفتم چطور بریزم توی یک لیست باکس

[xxxxx_xxxxx]

شما خونه اول از بعد اول آرايه رو 1 تعريف كردي ولي داري تو خونه 0 اون مقدار ميدي كه وجود نداره.
و همينطور خونه اول از بعد دوم شماره 3 هست كه باز هم داريد به خونه 0 كه وجود نداره مقدار ميديد.
در اين صورت شمارنده حلقه اول بايد از 1 شروع بشه و حلقه دوم از 3

وقتي آرايه رو دو بعدي تعريف ميكنيد. مثل يك جدول دو بعدي فرض كنيد كه حاوي سطر و ستون هست.
حالا اين سطر و ستون ميتونند شماره هاي يكساني داشته باشند. مثلاً سطر اول و ستون اول.
نيازي نيست كه چون سطرهامون از 1 تا 2 هستند پس ستون ها از 3 شروع بشند.

[sohrab o]

مثال :اگر خواسنتم در یک تکست باکس بریزم چطور و یا این که در کامند

محتویات یک آرایه در یک تکست باکس بریزی؟در کامند؟یعنی چی؟!چطوری؟!سوالت نا مفهمومه
البته میشه در یک تکست باکس ریخت اما اصلا راه جالبی نیست.

text1.text=text1.text & " " & Aray(i, j)