امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
مولتي نمي شه ؟
نویسنده پیام
erfanonline آفلاین
كاربر دو ستاره
**

ارسال‌ها: 67
موضوع‌ها: 6
تاریخ عضویت: تير ۱۳۸۵

تشکرها : 0
( 0 تشکر در 0 ارسال )
ارسال: #1
مولتي نمي شه ؟
دوستان من يه سوال دارم
من تو يه ليست باكس چند تا اسم دارم كه مي خوام يه عملياتي روي همه او نا اما به صورت جدا انجام بشه
مثلا من يه بوتر دارم مي سازم و مي خوام همه ايتم هاي داخل ليست باكس رو بوت كنم
مثلا اول نفر اول بعد دوم و ...
۲۶-مرداد-۱۳۸۵, ۱۹:۰۵:۳۳
وب سایت ارسال‌ها
پاسخ
erfanonline آفلاین
كاربر دو ستاره
**

ارسال‌ها: 67
موضوع‌ها: 6
تاریخ عضویت: تير ۱۳۸۵

تشکرها : 0
( 0 تشکر در 0 ارسال )
ارسال: #2
RE: مولتي نمي شه ؟
جواب بدين
۲۶-مرداد-۱۳۸۵, ۲۳:۰۶:۰۴
وب سایت ارسال‌ها
پاسخ
pswin آفلاین
كاربر دو ستاره
**

ارسال‌ها: 151
موضوع‌ها: 11
تاریخ عضویت: مرداد ۱۳۸۵

تشکرها : 0
( 19 تشکر در 11 ارسال )
ارسال: #3
RE: مولتي نمي شه ؟
منظورتو بیشتر توضیح میدی؟
میخوای بین آیتم ها حرکت کنی؟

۲۶-مرداد-۱۳۸۵, ۲۳:۵۷:۵۳
وب سایت ارسال‌ها
پاسخ
electro-learning آفلاین
كاربر دو ستاره
**

ارسال‌ها: 83
موضوع‌ها: 21
تاریخ عضویت: فروردین ۱۳۸۴

تشکرها : 0
( 8 تشکر در 5 ارسال )
ارسال: #4
RE: مولتي نمي شه ؟
بايد توي تكست باكس يك چيزي باشه كه اسامي رو از هم جدا كنه مثلا فاصله يا خط و...
شما ميتوني با استفاده از همون فاصله ها هر كدومو جدا جدا پردازش كني

البته اگه منظورت همين باشه

۲۷-مرداد-۱۳۸۵, ۱۱:۵۳:۱۸
ارسال‌ها
پاسخ
pswin آفلاین
كاربر دو ستاره
**

ارسال‌ها: 151
موضوع‌ها: 11
تاریخ عضویت: مرداد ۱۳۸۵

تشکرها : 0
( 19 تشکر در 11 ارسال )
ارسال: #5
RE: مولتي نمي شه ؟
سلام
منظورتو متوجه شدم, شما باید از دستور Split استفاده کنید. با استفاده از این دستور تمام ایتم ها با یه مشخصه خاص در یه متن از هم جدا میشن و داخل یه آرایه ریخته میشن این مثال رو ببین
Dim a As String
Dim b() As String
a = "a - b - c - d "
b = Split(a, "-")
For i = LBound(b) To UBound(b)
MsgBox b(i)
Next i

۲۷-مرداد-۱۳۸۵, ۱۲:۵۲:۳۰
وب سایت ارسال‌ها
پاسخ
erfanonline آفلاین
كاربر دو ستاره
**

ارسال‌ها: 67
موضوع‌ها: 6
تاریخ عضویت: تير ۱۳۸۵

تشکرها : 0
( 0 تشکر در 0 ارسال )
ارسال: #6
RE: مولتي نمي شه ؟
اقاي pswin مثل ps خودت كه ايميل مي فرسته
۲۷-مرداد-۱۳۸۵, ۱۸:۴۶:۰۹
وب سایت ارسال‌ها
پاسخ
pswin آفلاین
كاربر دو ستاره
**

ارسال‌ها: 151
موضوع‌ها: 11
تاریخ عضویت: مرداد ۱۳۸۵

تشکرها : 0
( 19 تشکر در 11 ارسال )
ارسال: #7
RE: مولتي نمي شه ؟
منظورت اینه که آیتم های یه لیست باکس رو بگیره و اونها رو به شکل یه رشته در بیاره؟
خوب برای این کار میتونی از دستور join استفاده کنی این دستور آیتمهای یک آرایه رو به هم و با یک جدا کننده به هم می چسبونه و یک رشته بیرون میده

اما اگر میخوای بدونی چه آیتم هایی داخل لیست باکس هستن میتونی از کد زیر استفاده کنی؟

For i = 0 To List1.ListCount -1
MsgBox List1.List(i)
Next i

با دستور List1.AddItem میتونی یک آیتم جدید به لیست باکس اضافه کنی

۲۸-مرداد-۱۳۸۵, ۰۱:۴۹:۴۹
وب سایت ارسال‌ها
پاسخ
erfanonline آفلاین
كاربر دو ستاره
**

ارسال‌ها: 67
موضوع‌ها: 6
تاریخ عضویت: تير ۱۳۸۵

تشکرها : 0
( 0 تشکر در 0 ارسال )
ارسال: #8
RE: مولتي نمي شه ؟
چرا كسي منظورم را نمي فهمه :((
۲۸-مرداد-۱۳۸۵, ۱۰:۳۹:۴۶
وب سایت ارسال‌ها
پاسخ
erfanonline آفلاین
كاربر دو ستاره
**

ارسال‌ها: 67
موضوع‌ها: 6
تاریخ عضویت: تير ۱۳۸۵

تشکرها : 0
( 0 تشکر در 0 ارسال )
ارسال: #9
RE: مولتي نمي شه ؟
ببين من يه ليست باكس دارم كه مثلا تو اون 35 تا اي دي هست
مي خوام بوت پكت هام به اينا ارسال بشه
براي تكست باكس اين را مي زنن text1.text ولي براي ليست اين رو مي زنم list1.list
تا وقتي كه يه اي دي توش بوت مي شه ولي اگه 2 تا بشه دي گه نمي تونه ار سال كنه
۲۸-مرداد-۱۳۸۵, ۱۰:۴۲:۵۵
وب سایت ارسال‌ها
پاسخ
ba_maram_shiraz آفلاین
كاربر دو ستاره
**

ارسال‌ها: 83
موضوع‌ها: 14
تاریخ عضویت: مرداد ۱۳۸۴

تشکرها : 2
( 15 تشکر در 5 ارسال )
ارسال: #10
RE: مولتي نمي شه ؟
بابا جون از لیست استفاده کنی بهتر نیست ؟

از نظر من لیست خیلی بهتره برای کاره شما

حامد . هایده

چشمی به هم زدیم و دنیا گذشت

دنبال هم امروز و فردا گذشت

دل میگه باز فردا رو از نو بساز

ای دل غافل دیگه از ما گذشت

به یاد بانو هایده
۲۸-مرداد-۱۳۸۵, ۱۱:۲۳:۰۳
ارسال‌ها
پاسخ
Pedram_HookEx آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 459
موضوع‌ها: 23
تاریخ عضویت: خرداد ۱۳۸۴

تشکرها : 1
( 109 تشکر در 65 ارسال )
ارسال: #11
RE: مولتي نمي شه ؟
منظورت اینه که میخوای تمام ID هایی که در لیست هست رو یجا Boot کنی
خوب یجا که شدنی نیست اما همونجوری که دوستان هم گفتن
کد:
For i = 0 To List1.ListCount -1
MsgBox List1.List(i)
Next i

شما در خط دوم این رو دارید
کد:
List1.List(i)
که این همون ID های شما هستند و شما باید مثلا این کار رو بکنی

توی اون حلقه باید یک Delay یک ثانیه ای بزاری تا مشکلی پیش نیاد
بعد هم مثلا از تابعت اینجوری استفاده کن
کد:
ُSendBoot (list1.list(i))

_______________________________________________________________________________
  • کشف الکتریسیته توسط پارتها برای اولین بار کلیک کنید
  • 135 نکته و آموزش از سطح پایین تا پیشرفته در غالب مثال های کوچک و قابل فهم (حجم 97KB)لینک دانلود
  • 101 آموزش پیشرفته ویژوال بیسیک. حتما دانلود کنید(حجم 314KB)لینک دانلود
  • اینم یه کتابچه ویژوال بیسیک برا اونایی که میخوان برنامه نویسی رو شروع کنن(حجم 916KB)لینک دانلود
  • تمام نکات و ترفند های مهم در ویندوز XP حتما دانلود کنید(حجم 86KB)لینک دانلود[تصویر:  new4.gif]
  • بروزرسانی ویژوال بیسک 6 به آخرین نسخه یعنی سرویس پک 6 (حجم 61MB)لینک دانلود[تصویر:  new4.gif]

۲۸-مرداد-۱۳۸۵, ۱۲:۴۴:۳۰
ارسال‌ها
پاسخ


پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS