مشاهده نسخه کامل
: کمک لازم دارم
moshaveran
31-05-2009, 13:40
سلام دوستان، فرض کنید 3تا textbox داریم که اسماشون رو گذاشتیم txt1 , txt2 , txt3 حالا من می خوام توی یه حلقه، text همه اونا رو مثلاً "0" بذارم.
for i=1 to 3
txt ... .text = "0"d
next i
ولی می خوام که شماره txtها رو با i مشخص کنم که نمی شه آخه اگه به جای ... تو برنامه i بذارم دنبال txti میگرده که نداریم.
امیدوارم تونسته باشم منظورم رو برسونم. اگه کسی راهی سراغ داره راهنماییم کنه.
shalineh
31-05-2009, 14:02
بهترین راه اینه که این تکست باکسها رو آرایه کنی.
باید بکنیشون تو یه آرایه، بعد اون تو پیمایش کنی و تغییرشون بدی
برای تعریف آرایه ابتدا باید نام تکست باکسها رو مثل هم کنی مثلا TXT_M بعد یه پیغام YES و No و Cancel میده .Yes رو بزن.شماره تکسباکس داخل خاصیت Index در پنجره Properties ذخیره میشه.
حالا داخل کد بنویس:
for i=1 to 3
TXT_M(i).text = "0"d
next i
moshaveran
31-05-2009, 16:29
مرسی از راهنمایی هاتون. ولی من مجبورم با VBA) vb6 ) کار کنم که نه اجازه هم نام بودن چندتا object رو میده و نه خاصیت index داره. راه دیگه ای برای بردنشود به آرایه نیست؟
shalineh
31-05-2009, 18:54
ببین شما یه تکست باکس دراگ کن روی فرم. حالا این تکس باکس رو کپی کن. و سپس پیست کن. یه سوال از شما می پرسه. جواب Yes بده. تمام شد. حالا شما آرایه ای از دو تکست باکس داری . برای بقیه اعضا هم همین کار رو بکن.
moshaveran
02-06-2009, 11:06
shalinehجان ممنون از لطفت ولی VB6 ورژن1020 به هیچ عنوان اجازه هم نام بودن رو نمی ده و من از این راه نمی تونم ببرمشون تو آرایه.
vBulletin , Copyright ©2000-2025, Jelsoft Enterprises Ltd.