خواندن و نوشتن بر روی ListBox با VB.Net

در این قسمت به شما نحوه نوشتن یا خواندن از روی کنترل ListBox در ویژوال بیسیک آموزش می دهیم. به این صورت که در این پروژه از کنترل های OpenFileDialog برای Load یا خواندن و SaveFileDialog برای Write یا نوشتن استفاده شده است که کاربران بتوانند با استفاده از یک آموزش دو برابر آموزش ببینند.

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

Public Class SaveLoad_Form
    Inherits System.Windows.Forms.Form
    Dim Writer As IO.StreamWriter
    Dim Loader As IO.StreamReader
    Private Sub Save_Button_Click(sender As Object, e As EventArgs) Handles Save_Button.Click
        Dim i As Integer
        Dim Save As New SaveFileDialog
        Save.Filter = "Text Document|*.txt|All Files|*.*"
        Save.FileName = ("Text")
        Save.ShowDialog()
        Writer = New IO.StreamWriter(Save.FileName)
        For i = 0 To SaveLoad_ListBox.Items.Count - 1
            Writer.WriteLine(SaveLoad_ListBox.Items.Item(i))
        Next
        Writer.Close()
    End Sub

    Private Sub Load_Button_Click(sender As Object, e As EventArgs) Handles Load_Button.Click
        Dim Load As New OpenFileDialog
        Load.Filter = "Text Document|*.txt|All Files|*.*"
        Load.ShowDialog()
        Loader = New IO.StreamReader(Load.FileName)
        While (Loader.Peek() > -1)
            SaveLoad_ListBox.Items.Add(Loader.ReadLine)
        End While
        Loader.Close()
    End Sub
End Class

Public Class SaveLoad_Form

Inherits System.Windows.Forms.Form

Dim Writer As IO.StreamWriter

Dim Loader As IO.StreamReader

Private Sub Save_Button_Click(sender As Object, e As EventArgs) Handles Save_Button.Click

Dim i As Integer

Dim Save As New SaveFileDialog

Save.Filter = "Text Document|*.txt|All Files|*.*"

Save.FileName = ("Text")

Save.ShowDialog()

Writer = New IO.StreamWriter(Save.FileName)

For i = 0 To SaveLoad_ListBox.Items.Count - 1

Writer.WriteLine(SaveLoad_ListBox.Items.Item(i))

Writer.Close()

End Sub

Private Sub Load_Button_Click(sender As Object, e As EventArgs) Handles Load_Button.Click

Dim Load As New OpenFileDialog

Load.Filter = "Text Document|*.txt|All Files|*.*"

Load.ShowDialog()

Loader = New IO.StreamReader(Load.FileName)

While (Loader.Peek() > -1)

SaveLoad_ListBox.Items.Add(Loader.ReadLine)

End While

Loader.Close()

End Sub

End Class

[divide style=”dashs” icon=”circle” color=”#7100e2″]

بخش دانلود

[box type=”error” align=”aligncenter” class=”” width=””]کپی برداری ممنوع می باشد![/box]

Controls in VB.Net How How to How to load listbox items from a file How to save and load items How to save and load lists How to save listbox items to a file How to save\load listbox items Items ListBox Listbox Items Load Read Save Tricks VB VB.Net VB6 Write آموزش از روی باکس بر روی خواندن دات نت دانلود سیو کنترل لود لیست

اشتراک در

ملاحظات:

1. تمامی نظرات ارسال شده به صورت دستی تایید و در وب‌سایت قرار خواهد گرفت. لذا از ارسال مجدد دیدگاه خودداری فرمایید.

2. نظرات پس از ارسال، دارای قابلیت ویرایش تا بازه زمانی 15 دقیقه می‌باشد.

3. نشانی پست الکترونیکی شما منتشر نخواهد شد.

4. پاسخ‌گویی به پرسش‌ها، ظرف مدت یک الی 24 ساعت انجام می‌گیرد.

نام*

نام یا نام مستعار شما جهت نمایش در بالای دیدگاه شما مورد استفاده قرار می گیرد.

پست الکترونیک*

پست الکترونیکی شما یک راه ارتباطی ما با شماست. (جهت پاسخ به دیدگاه ها، پرسش ها و ارائه اعلانیه ها مورد استفاده قرار خواهد گرفت.)

وبسایت/وبلاگ شما

چنانچه مالک وبسایت یا وبلاگ هستید، می توانید آدرس اینترنتی آن را در این بخش قرار دهید.

امتیاز

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

0 دیدگاه

بازخورد (Feedback) های اینلاین

مشاهده همه دیدگاه ها