ورود

View Full Version : سوال: load کردن فایل در لیست باکس


saeedhord
دوشنبه 25 شهریور 1392, 19:57 عصر
با سلام

چطوری میتونم یه فایل تکس رو داخل لیست باکس داخل برنامم لود کنم
niksalehi
سه شنبه 26 شهریور 1392, 11:06 صبح
سلام!
داخل ماژول:

Public Sub Txt2Lst(ListBox As ListBox, CommonDialog As Object)
CommonDialog.Filter = "Text File|*.txt"
CommonDialog.ShowOpen
If CommonDialog.FileName > "" Then
With ListBox
Dim sCL$
.Clear
Open CommonDialog.FileName For Input As #1
Do Until EOF(1)
Line Input #1, sCL$
.AddItem sCL$
Loop
Close #1
End With
End If
End Sub

کامپوننت microsoft common dialog رو اضافه کنید و بعد:


txt2lst CommonDialog1, list1

موفق باشید
saeedhord
سه شنبه 26 شهریور 1392, 13:58 عصر
txt2lst CommonDialog1, list1

موفق باشید


تشکر !
این خط اخرو باید رو دکمم بنویسم ؟
niksalehi
سه شنبه 26 شهریور 1392, 23:42 عصر
بله! CommonDialog1 نام شی CommonDialog و list1 نام لیست باکس مورد نظر!
saeedhord
یک شنبه 31 شهریور 1392, 13:59 عصر
بله! CommonDialog1 نام شی CommonDialog و list1 نام لیست باکس مورد نظر!

دادش این خطا میگیره :) این خطو

txt2lst CommonDialog1, list1
SlowCode
یک شنبه 31 شهریور 1392, 17:39 عصر
سلام
اگه دقت کنین پارامتر اول تابع لیست باکس هست و commondialog دومی هست. شما برعکس نوشتی، پس به این صورت اصلاح کن:
txt2lst list1,CommonDialog1
saeedhord
دوشنبه 01 مهر 1392, 11:50 صبح
سلام
اگه دقت کنین پارامتر اول تابع لیست باکس هست و commondialog دومی هست. شما برعکس نوشتی، پس به این صورت اصلاح کن:
txt2lst list1,CommonDialog1

با تشکر

داداش چطوری میتونم بفهمم لیست باکسم چند تا ایتم داره ‌؟‌‌‌
JOJOMarco
دوشنبه 01 مهر 1392, 17:54 عصر
list1.count تعداد item ها رو بر میگردونه
مثلا

x = list1.count
x مساوی میشه با تعداد ایتمها
saeedhord
دوشنبه 01 مهر 1392, 23:01 عصر
list1.count تعداد item ها رو بر میگردونه
مثلا

x = list1.count
x مساوی میشه با تعداد ایتمها

با تشکر

دادا این چیزی به این اسم نداره count تعریف نشده :)
JOJOMarco
سه شنبه 02 مهر 1392, 11:30 صبح
ببخشید منظورم این بود


List1.ListCount
SlowCode
سه شنبه 02 مهر 1392, 17:31 عصر
با تشکر

دادا این چیزی به این اسم نداره count تعریف نشده :)

پیشنهاد من به شما اینه که هر وقت با یه کامپوننت جدید میخوای کار کنی یه نگاه کلی به لیست متدها و پراپرتی ها بنداز، بعد سعی کن نحوه کار کردن باهاشون رو یاد بگیری. سعی کن خودت حدس بزنی که کارش چیه و چطوری ازش میشه استفاده کرد.
بعد اگه نتونستی تو گوگل بگرد.
بعد اگه به نتیجه ای نرسیدی درخدمتیم:لبخند:
من به شخصه همیشه این کار رو میکنم.
saeedhord
سه شنبه 02 مهر 1392, 21:37 عصر
پیشنهاد من به شما اینه که هر وقت با یه کامپوننت جدید میخوای کار کنی یه نگاه کلی به لیست متدها و پراپرتی ها بنداز، بعد سعی کن نحوه کار کردن باهاشون رو یاد بگیری. سعی کن خودت حدس بزنی که کارش چیه و چطوری ازش میشه استفاده کرد.
بعد اگه نتونستی تو گوگل بگرد.
بعد اگه به نتیجه ای نرسیدی درخدمتیم:لبخند:
من به شخصه همیشه این کار رو میکنم.

محسن جان

انجمن واسه چیه پس ؟

خب هر سوالی که ندونی باس بپرسی
اگه شما میخوایید چشم ما دیگه سوال نمیکنیم :دی