by

Menyimpan Item Combobox di My.Settings VB.NET

Menyimpan data di database merupakan kegiatan yang lumrah di lakukan menggunakan bahasa pemrograman Visual Basic VB.NET, namun bagaimana bila data tersebut ternyata simple, mempunyai lebih dari satu list/daftar, akan tetapi tidak terlalu krusial dan membutuhkan database sebagai tempat penyimpanannya?

Jika kategori data Anda sama seperti yang telah saya sebutkan, maka Anda dapat mencoba menyimpannya di “My.Settings” aplikasi Anda, tanpa harus ribet mengelolanya pada database.

Berikut tutorial bagaimana cara memasukkan data di “My.Settings” dan menampilkannya di ComboBox.

1. Buatlah sebuah project di Visual Studio Anda.
2. Pilih template Visual Basic dan pilih model Windows Forms Application.
3. Buatlah 2 buah form, item seperti gambar dibawah ini. (Textbox, ComboBox, Button).

Menyimpan Item Combobox di My.Settings VB.NET - Gambar 1
Menyimpan Item Combobox di My.Settings VB.NET – Gambar 1
Menyimpan Item Combobox di My.Settings VB.NET - Gambar 2
Menyimpan Item Combobox di My.Settings VB.NET – Gambar 2

4. Masuk ke menu Project, pilih Setting nama aplikasi Anda, setelah itu pada tab Settings, tambahkan satu nama yaitu “YourItems”, sedangkan untuk tipenya pilih “System.Collection”. Pada kolom Value/Nilai, masukkan item-item atau string yang ingin Anda tampilkan atau simpan, misalnya (One,Two,Three), masukkan per-line, Anda dapat mengklik pada bagian tombol “…”. Lihat gambar berikut.

Menyimpan Item Combobox di My.Settings VB.NET - Gambar 3
Menyimpan Item Combobox di My.Settings VB.NET – Gambar 3

5. Anda dapat mengcopy codenya seperti berikut. Sesuaikan dengan nama Form dan nama Item-item Anda sendiri.

Form1:
[vb]

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
COMBOFORSAVED.Items.Add(TextBox1.Text)
MsgBox("Item added !")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
My.Settings.YourItems.Clear()
For Each item In COMBOFORSAVED.Items
My.Settings.YourItems.Add(item.ToString)
Next
My.Settings.Save()
MsgBox("Item has been saved :)")
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Form_Showing_Result.Show()
End Sub
End Class

[/vb]

Form2:
[vb]Public Class Form_Showing_Result
Private Sub Form_Showing_Result_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each item In My.Settings.YourItems
ComboBox1.Items.Add(item)
Next
End Sub
End Class[/vb]

6. Anda dapat mendownload Source Code projectnya melalui link dibawah. Tersedia juga tutorialnya dalam bentuk video yang dapat Anda tonton.
Begitulah cara sederhana menyimpan data beberapa item/string tanpa menggunakan database, dengan memanfaatkan “Sytem.Collection” di Visual Basic VB.NET.

[ Download Project No. 45 ]

Comment

Leave a Reply

Your email address will not be published. Required fields are marked *