لود کردن یه تکست داخل لیست باکس

[Salivan]

سلام دوستان
یه سوال دارم
من می خوام به کمک CommonDialog یه فایل تکست رو باز کنم تا داخل یک لیست باکس که روی فروم هست نشون داده بشه!
مثل کاری که برنامه های بوتر می کنند!
مثلا اینارو لود کنه:
آیدی1:پسورد
آیدی2:پسورد
آیدی3:پسورد
....

حالا اگه بخوایم کنار هر کدوم از این آیدی هایی که باز می شه یه آیکون بذاریم چی!
کد اون هم ممنون می شم بذارید.
خیلی ممنون

[ajlajlajl]

تو خود ویبی فکر نکنم یه همچی چیزی باشه. یاخودت باید بسازی یا بگردی تو اینترنت کنترلشو پیدا کنی ( یا یکی از دوستان بدن )

[Salivan]

خوب اگه تو تکست باکس هم نشود مشکلی نیست!
فقط یه جا بشه نشون داده بشه!
حالا تکست! تکست باکس! یا هر چیزه دیگه!
فقط اگه کسی داره ممنون می شم سریع تر بده چون خیلی خیلی واجبه!!

[yeketaz]

این یه تابع هست که آدرس فایل رو به FileAddress و اسم لیست باکس رو به ListBoxName می دی بعد خوده تابع لیست باکس رو برات پر می کنه

یعنی خط به خط فایل رو می خونه می ذاره توی لیست باکس

کد:

Private Sub FileRead(FileAddress As String, ListBoxName As ListBox)
Dim FF As Integer
Dim GetText As String
FF = FreeFile
Open FileAddress For Input As FF
Do Until EOF(FF) = True
Line Input #FF, GetText
ListBoxName.AddItem GetText
Loop
Close #FF
End Sub

[CRazYFULL]

سلام
اون که شما مد نظرت هست ListBox نيست listview هست که قابليت گذاشتن آيکون رو داره
از منو Project بعد Components از ليست Microsoft Windows Common Controrls 6.0 انتخاب کن
از نوار ابزاره ToolBox يه ListView و يه ImageList به پروژه اضافه کن
از Properties ليست ويو:
سربرگ General، View رو به 3 تغيير بده LabelEdit رو به 1 تغيير بده
سربرگ Image List قسمت Small ايميج ليستی که به پروژه اضافه کردی رو انتخاب کن
سربرگ Column Headers تو اين قسمت به اندازه که لازم داری ستون اضافه کن.

حالا به Properties ايميج ليست برو از سربرگ Images به اندازه دلخاه آيکن يا عکس اضافه کن.

برای باز کردن فايل و مشاهده توسط ListView:

کد:

Function OpenTxFile(ByVal LView As ListView)
Dim IDha As String

CommonDialog1.fliter = "Files Text|*.txt"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen

If Not CommonDialog1.FileName = "" Then

LView.ListItems.Clear
Open CommonDialog1.FileName For Input As #1
While Not EOF(1)
Input #1, IDha
    'shomare 1 shomare Iconi hast ke ghablan be  ImageList ezafe kardi
    LView.ListItems.Add , , IDha, , 1

' baraye joda sazi v taghsim dar sotoonhaaye mokhtalef
'If InStr(IDha, ":") > 0 Then
'    With LView.ListItems.Add(, , , , 2)
'    .SubItems(1) = Split(IDha, ":")(0)
'    .SubItems(2) = Split(IDha, ":")(1)
'    End With
'End If
Wend
Close #1
End If

End Function

[yeketaz]

البته توی لیست باکس هم می شه کنار نوشته ها آیکون گذاشت

البته من تا حالا فایل Bitmap ش رو دیدم که کنار نوشته ها می ذارن مثل این :

   

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

[Salivan]

خیلی ممنون از توضیحی که دادی!
ولی نتونستم!
نمیدونم چرا!
اینای که گفتی همه درسته دقیقا همین رو می خوام!
می خوام وقتی روی یک Command1 کلیک می کنی پیج Open باز شه و با انتخاب تکست و باز کردن اون داخل لیست ویو نشون داده بشه!

ممنونت می شم کاملش کنی!

[CRazYFULL]

ضمينه شد

[Salivan]

crazyfull جان
واقعا ممنونم
خیلی خیلی کمکم کردی
دست همه ی دوستان درد نکنه

[Salivan]

دوباره سلام!

برنامه ای که نوشتم بعضی مواقع این ارور رو میده!

دلیلش چیه؟

[CRazYFULL]

قبل کامپايل، پروژه رو اجرا کن اگه خطا يی باشه مشخص ميشه