Treeview On Visual Basic 6.00

Buat Project baru, tambahkan sebuah Form, tambahkan component berikut : Microsoft Windows Common Control 6.0, Tambahkan sebuah TreeView dan sebuah ImageList.



Klik kanan pada ImageList dan pilih properties kemudian tambahkan beberapa gambar (-berformat : *.bmp,*.dib,*.ico,*.cur,*.gif,*.jpg -)



Copy-Paste Code dibawah ini ke dalam jendela coding Anda :

Private Sub Form_Load()
Dim Node As Node
With TreeView1
.ImageList = ImageList1
.Nodes.Clear

Set Node = .Nodes.Add(, , "Data", "Data", 3)
Node.Tag = "IA"
Node.Expanded = True

'add tabel

Set Node = .Nodes.Add("Data", tvwChild, "Table", "Tables", 1)
Node.Tag = "TBA"
Node.Expanded = True

'add tables anak

Set Node = .Nodes.Add("Table", tvwChild, "Table1", "Tabel1", 4)
Node.Tag = "TBA1"
Set Node = .Nodes.Add("Table", tvwChild, "Table2", "Tabel2", 4)
Node.Tag = "TBA1"

'add views

Set Node = .Nodes.Add("Data", tvwChild, "View", "Query", 2)
Node.Tag = "VWA"

'add views anak

Set Node = .Nodes.Add("View", tvwChild, "view1", "Query1", 4)
Node.Tag = "VWA1"
Set Node = .Nodes.Add("View", tvwChild, "view2", "Query2", 4)
Node.Tag = "VWA1"

End With

End Sub

Run (F5) program sehingga akan muncul tampilan :

Basic penulisan coding Node.Add Treeview :
Dim Node As Node
TreeView1.ImageList = ImageList1

Menghubungkan Treeview dengan Image List, dapat dilakukan juga dengan set pada properties Treeview-nya.

TreeView1.Nodes.Clear

Membersihkan Treeview sebelum di-load ulang.

Penggunaan Fungsi Node.Add
Function Add([Relative], [Relationship], [Key], [Text], [Image], [SelectedImage]) As Node

Add Node Parent
Set Node = TreeView.Nodes.Add( , , [Key], [Text], [Image])
Contoh : Set Node = TreeView1 . Nodes.Add( , , "Data", "Data", 3)


Add Node Child
Set Node = TreeView.Nodes.Add ( [Relative], [Relationship], [Key], [Text], [Image])
Contoh : Set Node = TreeView1 .Nodes.Add("Data", tvwChild, "Table", "Tables", 1)

Hubungan percabangan TreeView

1. [Relative] : merupakan nilai dari [Key] dari parent (cabang diatasnya)
2. [Key] : Harus berbeda untuk setiap item (unique)
3. ext] : boleh sama untuk item yang satu dengan item yang lain, hanya merupakan text yang akan ditampilkan saat program di Run
4. [Image] : bisa berupa key dari item-item gambar pada Imagelist atau index-nya

Contoh :

Demikian cara menampilkan listview dalam Vb 6.0, untuk event-event dari TreeView itu sendiri akan dibahas pada artikel-artikel selanjutnya. Insya Alloh. Selamat Mencoba !

Read More...

HScroll dan VScroll untuk menggeser Object saat runtime0

HScroll dan VScroll, inilah 2 komponen vb6 yang digunakan untuk menggulung/menggeser object ke posisi tertentu sebesar nilai tertentu. Itulah yang saya mengerti tentang HScroll dan VScroll ini. Bagaimanakah cara menggunakannya ?

Untuk latihan kita membutuhkan 1 buah picturebox, sebuah image, 1 buah VScrool dan 1 buah HScroll. Letakkan pictureBox kedalam Form, diikuti dengan meletakkan image (-bisa diganti object/komponen lain-) didalam pictureBox, jangan lupa set properties imagenya untuk menambahkan gambar kedalam image. Terakhir letakkan HScroll dibawah PictureBox dan VScroll disamping kiri PictureBox. Sehingga nampak seperti gambar dibawah ini.

Untuk Menggulung object ke atas/kebawah masukkan code berikut pada event Change VScroll :

Image1.Top = (VScroll1.Value + 1) * -1

Untuk Menggulung object ke kiri/kanan masukkan code berikut pada event Change HScroll :

Image1.Left = (HScroll1.Value + 1) * -1

Nah sampai disini gambar sudah dapat digeser-geser, kemudian tambahkan code dibawah ini pada event Form_Load :

HScroll1.Max = Image1.Width - Picture1.Width + 60
HScroll1.SmallChange = 100
VScroll1.SmallChange = 100

VScroll1.Max = Image1.Height - Picture1.Width + 60
VScroll1.SmallChange = 100
VScroll1.LargeChange = 100

Read More...

Membuat Textbox Berubah Warna Ketika Di Isi0

Salah satu cara membuat tampilan form isian kita jadi lebih menarik adalah dengan mengubah warna latar (backcolor)nya ketika kursor berada di textbox tersebut (ketika textbox akan diisi). Dengan begitu si user lebih tau dimana letak dia akan mengetik saat itu. Penasaran ? caranya adalah sebagai berikut :

1. Tambahkan 2 buah textbox di form.
2. Set propertinya sebagai berikut : kosongkan textbox tersebut dengan mengosongi property ‘Text’ (semula bertuliskan Text1, Text2).
   

setelah itu tuliskan code dibawah ini :

Private Sub Form_Load()
Text1.Text = ""
Text1.BackColor = vbWhite
Text2.BackColor = vbWhite
End Sub

Private Sub Text1_GotFocus()
Text1.BackColor = vbYellow
End Sub

Private Sub Text1_LostFocus()
Text1.BackColor = vbWhite
End Sub

Private Sub text2_GotFocus()
Text2.BackColor = vbYellow
End Sub

Private Sub text2_LostFocus()
Text2.BackColor = vbWhite
End Sub

Sangat sederhana bukan??? Intinya adalah pada saat kursor berada di textbox (_GotFocus()) ubah warna seperti semula (putih) dan pada saat kursor meninggalkan textbox (_LostFocus()) ubah warna menjadi kuning atau warna lainnya. Untuk lebih jelasnya silakan Download file projectnya secara lengkap

Read More...