PDA

View Full Version : سوال: یک علامه 500 تا ایتم به listbox اضافه کنم چطوری ؟



farhad5487
شنبه 20 اسفند 1390, 13:15 عصر
سلام
من 500 تا ایتم دارم من با این روش میتونم لود کنم ولی تو form1 خیلی شلوغ شده و وقتی میخام با کد ها کار

listBox1.Items.Add("1")
listBox1.Items.Add("2")
listBox1.Items.Add("3")
.
.
.
کنم سر درد میگیرم سوالم این بود که میشه مثلا listbox1 ایتم های مورد نظر رو از جایه دیگه فراخوانی کنه مثلا
از ماژول یا کلاس یا غیره .. راهنمایی کنید لطفا
فقط اینظوری نمیخام که مثلا از یک فایل تکسک که در پوشه دایرکتوری هست لود کنه

tam2145
شنبه 20 اسفند 1390, 13:22 عصر
سلام
اگر لیست باکس اینه از این استفاده کن !!

for i=1 to 500
t=str(i)
listbox1.items.add(t)
next

farhad5487
شنبه 20 اسفند 1390, 13:27 عصر
ایتم ها رو کجا بزارم یعنی ؟

فرید نجفلو
شنبه 20 اسفند 1390, 13:31 عصر
چرا نمیشه
شما یه تابع بنویس که کارش پر کردنه لیسته و یک پارامتر از نوع لیست باکس می گیره و انو پر می کنه
حالا لیست بکس رو با حالت ByRef بفرست به تابع(یا متد)

Hybrid
شنبه 20 اسفند 1390, 13:35 عصر
سلام دوست عزیز ، ایمدوارم حالت خوب باشه ،

میخوای آیتم ها رو از فایل بخونی؟؟؟

farhad5487
شنبه 20 اسفند 1390, 13:45 عصر
vbBoss (http://barnamenevis.org/member.php?230007-vbBoss)
بله
به جز Txt فایل

Hybrid
شنبه 20 اسفند 1390, 14:23 عصر
سلام ، ببین این قطعه کد کمکت میکنه :


For Each i As String In My.Resources._1
If i.ToString().Trim.Length = 0 Then
ListBox1.Items.Remove(i.ToString())
Else
ListBox1.Items.Add(i.ToString())
End If

Nex

اگه هم مشکلی بود میتونین سوالتون رو بپرسین.

موفق باشید.و

farhad5487
شنبه 20 اسفند 1390, 14:40 عصر
For Each i As String In My.Resources._1 تو خط اخر خطا میده
وقتی به For Each i As String In My.Resources.TextFile1
تغییر میدم درست میشه ولی ایتم ها رو تو لیست باکس خیلی بد نشون میده مثلا
اگر ایتم ها در Textfile1 هستند
number 1
number 2 add
number 3 three
اینطوری میشه

http://myup.ir/images/61057050895672070364.jpg (http://myup.ir/)

Hossis
شنبه 20 اسفند 1390, 20:19 عصر
همه ایتم ها رو بریزید توی یک فایل تکست و بعد اون فایل رو کنار فایل اجرایی قرار بدید و بعدش این کد رو بنویسد

listbox1.items.addrange(IO.FILE.READALLlines("File.txt"))
موفق باشید

Hybrid
شنبه 20 اسفند 1390, 20:33 عصر
سلام ، اینجوری تغییرش بده ببین درست میشه :


For Each i As String In My.Resources.name.Split(vbCrLf)
If i.ToString().Trim.Length = 0 Then
ListBox1.Items.Remove(i.ToString())

Else
ListBox1.Items.Add(i.ToString())
End If
Next

البته name در my.resource.name اسمه فایل موجود در رفرنس های منه ، شما اسمش رو به فایل موجود در رفرنس برنامتون تغییر بدید.

موفق باشید./

farhad5487
یک شنبه 21 اسفند 1390, 11:28 صبح
ممنون مشکل حل شد
ولی میشه بگید من از کجا میتونم این چیزا رو بخونم تو یه کتاب مثلا همین .Split(vbCrLf)
تو کتابم اصلا نیست
تو چه کتابی میتونم مواردی مثل این رو بخونم و تشریح دادند ؟

فرید نجفلو
یک شنبه 21 اسفند 1390, 11:49 صبح
ببنید دات نت رو نمیشه تو یه کتاب دو کتاب به صورت کامل توضیح و آموزش داد
شما در کتاب ها نکات مبنا ، مهم و پر کاربرد رو یاد می گیرد و بعضی چیز ها رو حین برنامه نویسی و جا هایی مثل این سایت پیدا می کنید
و بعضی نکات هستند که ممکنه تو هیچ جایی به جز MSDN پیدا نکنید(هیشه MSDN رو نصب کنید)
پس ما نمی تونیم بگیم فلان کتاب رو بخونید همه چی رو یاد می گیرید

این به تلاش شما و زمان و نوع کد نویسی شما بستگی داره که چی رو و چطور یاد بگیرد
البته باید اینم بگم که بعضی کد ها رو حتی تو MSDN هم پیدا نمی کنید
در واقع منظورم الگورتیم هاست که کاملا وابسته به دانش و خلاقیت شماست(ممکنه من یه مسئله رو به یک روش حل کنم شما به روش دیگه و دیگری به یه روش دیگه و...)

Hybrid
یک شنبه 21 اسفند 1390, 11:51 صبح
ممنون مشکل حل شد
ولی میشه بگید من از کجا میتونم این چیزا رو بخونم تو یه کتاب مثلا همین .Split(vbCrLf)
تو کتابم اصلا نیست
تو چه کتابی میتونم مواردی مثل این رو بخونم و تشریح دادند ؟

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

موفق باشید./