Belajar Visual Basic Bahasa Indonesia

Januari 03, 2014

Belajar Visual Basic Bahasa Indonesia

Input Tebox ke Listview dengan Visual Basic 6.0

Posted: 02 Jan 2014 12:08 PM PST

Visua basic masih merupakan bahasa pemrograman yang masih berjalan daridulu sampai sekarang, bahasa pemrograman ini di antaranya Basic, Visual basic 6.0, dan VB.net. namun seri pemrograman pada visual basic ini banyak yang menggunakan Visual basic 6.0 dan Vb.Net

Visual Basic 6.0 sangat di gemari bagi para programmer indonesia, untuk alasanya mungkin akan berbeda beda. terutama untuk Vb.net sendiri. Untuk para pemula menurut pendapat saya harus dari Vb 6 dulu, supaya ada tahapan tersendiri.

Untuk Materi belajar Visual Basic 6.0 sekarang, yaitu tentang cara memindahkan data yang di input pada teks berpindah ke komponen tabel Listview. Listview sendiri dari segi tampilan lebih enak di pandang untuk sebuah sistem Informasi dengan visual basic 6.0.

Berikut Cara memindahkan data pada teksbox ke listview pada visual basic 6.0. Hal yang pertama adalah

1. Buatlah desain form pada vb 6.0 sebagai berikut, gunakan 1 buah teksbox, 1 commandbutton, dan 1 buah listview.

2. Setelah semua di buat, pengaturan properti seperti teksbox, commandbutton dan listview biarkan default

3. masukan kode program di bawah ini ke vb 6.0 kedalam tombol Commandbutton

Private Sub Command1_Click()
On Error Resume Next
Dim LV As ListItem

arr = Split(Text1.Text, Chr(13))
For i = 0 To UBound(arr)
b = Split(arr(i), "&")
For j = 0 To UBound(b)
buf = InStr(1, b(j), "=")
temp = Len(b(j)) - buf
Var = Right(b(j), temp)
If j Mod 2 = 0 Then
Set LV = ListView1.ListItems.Add(, , Var)
Else
LV.SubItems(1) = Var
End If

Next j
Next i
End Sub

Cari Blog Ini

Wong Songong