Menggunakan List menampung String Array dengan VB 6

Bahasa pemrogramman yang bersifat Object Oriented Programming (OOP) salah satunya menggunakan bahasa perkembangan dari Basic dengan penambahan vitur GUI(Grafic User Interface) yang lebih dikenal dengan Visual Basic. Kali ini menggunakan versi 6 (VB 6.0).
Tutorial ini menggunakan ListBox, ComboBox, TextBox, dan Command Button yang di tampung dalan satu Form dengan tampilan seperti berikut ini :
Tampilan Design Menggunakan VB 6.0

Sebagai contohnya perhatikan code berikut ini :

'DEKLARASI VARIABLE
Dim str As String
Dim ItemStr() As String
Dim res As String

Private Sub Command1_Click()
Hapuslist
If Text1.Text = "" Then
MsgBox "Masukkan Jenis barang" & vbNewLine & "yang akan di masukkan dalam List Array."
Text1.Text = ""
Combo1.Clear
Text1.SetFocus
Else
'SET NILAI VARIABLE str
str = Text1.Text
MsgBox "String " & str & " akan di Listing."

'SET NILAI ItemStr BERDASARKAN str
ItemStr = Split(str, ",")

'PERULANGAN BERDASARKAN ItemStr
For i = 0 To UBound(ItemStr)
If ItemStr(i) "" Then
List1.List(i) = Trim(ItemStr(i))
Combo1.List(i) = Trim(ItemStr(i))
Combo1.Text = Combo1.List(0)
If i = 0 Then Text2.Text = "List Array yang anda masukkan di pisahkan berdasarkan (koma , )"
If i Mod 10 = 0 Then
Text2.Text = Text2.Text + vbNewLine
Text2.Text = Text2.Text + Trim(ItemStr(i)) + ", "
Else
Text2.Text = Text2.Text + Trim(ItemStr(i)) + ", "
End If
End If
Next
End If
End Sub

Private Sub Form_Load()
Text1.Text = "Apel, Mangga, Jeruk"
Text2.Text = ""
Command1.Caption = "Insert to List"
Hapuslist
End Sub

'FUNGSI UNTUK MENGOSONGKAN SEMUA TAMPILAN'
Public Sub Hapuslist()
If Text1.Text "" Then
If List1.ListCount 0 Then
For i = List1.ListCount To 1 Step -1
List1.RemoveItem (i - 1)
Combo1.RemoveItem (i - 1)
Text2.Text = ""
Next
End If
List1.Clear
Combo1.Clear
List1.Refresh
Combo1.Refresh
End If
End Sub

Setelah itu selesai Coba Tekan “F5” untuk menjalankan program sederhana yang telah di buat.

Hasilnya adalah sebagai berikut :
Tampilan Setelah F5 dan tekan tombol

Setelah menekan tombol OK akan tampil berikut ini:
Tampilan List Array

Semoga bermanfaat … Silahkan tinggalkan kesan anda setelah mencoba applikasi sederhana ini, oh yah untuk VB 6.0 Dapat di download yang Portable berkisar 5-6MB kok. 🙂 🙂 🙂

~ by sn1ff3r on January 24, 2012.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

 
%d bloggers like this: