PDA

View Full Version : سوال: اضافه کردن آیتم به کمبو باکس



kingdaniyal
پنج شنبه 23 آذر 1391, 13:50 عصر
سلام دوستان
من یه مشکلی دارم اونم اینه که من تو فرمم یه کمبو باکس گذاشتم و یک سری آیتم بهش دادم
و یکسری دکمه هم زیرش گذاشتم که با کلیک بر روی هر کدوم از دکمه ها یک آیتم از کمبو باکس حذف میشه.
حالا میخوام وقتی روی یه دکمه که روش نوشته از نو سازی کلیک کردم تمام اون آیتم ها به کمبو باکس برگرده.
راستی من با بانک های اطلاعاتی بلد نیستم کار کنم:لبخند:
ورژن ویژوال بیسیکمم 2010 است

SHD.NET
پنج شنبه 23 آذر 1391, 14:16 عصر
میتونی یه کمبو باکس دیگه به غیر از کمبوباکس فعلی بزاری روی فرم و همون آیتم ها رو بهش اضافی کنی. بعدش دکمه از نو رو که زدی کل آیتم های این کمبو رو با یه حلقه بریزه روی کمبوباکس فعلی .
البته راه زیاده . این یکی از ساده ترین راه ها بود.

:چشمک:\\\موفق باشید///:چشمک:

kingdaniyal
پنج شنبه 23 آذر 1391, 14:25 عصر
مرسی اما من میخوام از یک فایل متنی نت پد بریزه و اگه میشه لطفا کدش رو برام بزارید ممنونن

SHD.NET
پنج شنبه 23 آذر 1391, 15:04 عصر
یعنی میخواید توی فایل اطلاعات رو بنویسید و بخونید ؟؟

SHD.NET
پنج شنبه 23 آذر 1391, 15:11 عصر
برای اینکه اطلاعات موجود در کمبوباکس رو توی یه فایل ذخیره کنید به این صورت عمل کنید :
Dim wrt As New System.IO.StreamWriter("نام و محل ذخیره فایل", True, System.Text.Encoding.UTF8)
For i = 0 To ComboBox1.Items.Count - 1
ComboBox1.SelectedIndex = i
wrt.WriteLine(ComboBox1.Text)
Next
wrt.Close()


برای لود کردن هم به این صورت:
ComboBox1.Items.Clear()
Dim rdr As New System.IO.StreamReader("نام و محل فایل", System.Text.Encoding.UTF8)
While Not rdr.EndOfStream
ComboBox1.Items.Add(rdr.ReadLine)
End While
rdr.Close()


:چشمک:\\\موفق باشید///:چشمک:

kingdaniyal
پنج شنبه 23 آذر 1391, 21:43 عصر
آقا دستت درد نکنه

SHD.NET
پنج شنبه 23 آذر 1391, 21:55 عصر
خواهش می کنم

rezaprogrammer
جمعه 24 آذر 1391, 00:07 صبح
For i = 0 To ComboBox1.Items.Count - 1
ComboBox1.SelectedIndex = i
wrt.WriteLine(ComboBox1.Text)
Next
wrt.Close()

[/VB]

:چشمک:\\\موفق باشید///:چشمک:

البته به جای حلقه می تونید اینطوری هم بنویسید:
For Each Str As String In CboBalanceType.Items
StrWriter.WriteLine(Str)
Next

kingdaniyal
جمعه 24 آذر 1391, 11:07 صبح
خیلی ممنون

rezaprogrammer
جمعه 24 آذر 1391, 12:33 عصر
زنده باشید

shahryari
جمعه 24 آذر 1391, 12:42 عصر
براي لود كردن خط هاي يك فايل Txt از آرايه هم ميتونيد استفاده كنيد

Dim arry() As String = IO.File.ReadAllLines("C:\test.txt")
For Each items In arry
ComboBox1.Items.Add(items)
Next

kingdaniyal
جمعه 24 آذر 1391, 13:48 عصر
دست همتون درد نکنه مشکلم رفع شد ازتون ممنونم