دستور مقايسه چند تكست باكس!!!

[meysams]

با سلام اگه كسي ميتونه راهنمايي كنه.
من توي يه برنامه به يه دستور نياز دارم تا اعداد چند تكست باكس رو با هم مقايسه كنه و اعدادي رو كه كمتر از بقيه هستن رو به تكست باكس هاي بالاتر انتقال بده. ميخوام عدد كمتر در اولين تكست باكس و عدد بزرگتر در پايينترين تكست باكس قرار بگيره . مثل عمل سورت كردن اعداد در ليست باكس.:ناراحت:

[vbhamed]

سلام

خب بازم بايد سورت كني، اگر تكست باكس ها به صورت آرايه اي و به نام txt باشن مي توني از كد زير استفاده كني

Dim i%, j%, temp#

For i = 0 To txt.Count - 1
For j = i To txt.Count - 1
If Val(txt(i)) > Val(txt(j)) Then
temp = Val(txt(i))
txt(i) = txt(j)
txt(j) = temp
End If
Next
Next

[meysams]

ممنون دوست عزيز اما تكست باكس ها به صورت ارايه نيستن .فرض كنيد 4 تكست باكس هست كه از كاربر 4 عدد ميگيره و زماني كه كاربر روي يه دكمه كليك كرد بايد عدد هاي داخل تكست باكس از كوچكتر به بزرگتر به تكست باكس هاي بالاتر انتقال پيدا كنه.اين مرتب سازي عددها هم براي اين منظوره كه توي برنامه من بايدعددي كه كوچكتر هست اول اجرا بشه براي همين بايد عددها اول به ترتيب بشن بعد كوچكترين عدد اجرا بشه.
اگه ميشه بازم راهنمايي كنيد...

[Mr'Jamshidy]

خوب به صورت آرایه تعریف کن چون در غیر این صورت باید کد زیادی بنویسی

[vbhamed]

سلام

يا همونطور كه دوستمون گفتن به صورت آرايه تعريف كن يا مقاديرش رو توي يك آرايه عددي بريز بعد آرايه رو مرتب كن و بعد بقيه كار نرم افزار...