
 | Artikel Visual Basic |
 | Basis Data - Database |
 | Pemrograman Grafis |
 | E-Book Tutorial |
 | Video Kursus - Tutorial |
 | Software - Open Source code |
 | W E B Programming |
 | Windows System |
 | XBasicFramework |
 | Berbagi Pengalaman |
 | Quick Basic |
|
Software gratis! Open Source
Code
|
|
|
|
|
MENU>Artikel Visual Basic>Visual Basic 6.0>Videosoft Flex Grid Control
|
Menggunakan Videosoft Flex
Grid Control (vsflex7.ocx) dengan Visual Basic 6.0 |
|
Dalam pembuatan aplikasi database selalu diperlukan
pembuatan list atau daftar transaksi atau daftas nama-nama customer,supplier ataupun
daftar barang.
Pada artikel ini kita tidak akan melakukan binding data (pengikatan database) ke
vsflexgrid. Karena saya memang lebih suka melakukan pengisian data ke vsflexgrid
tanpa melakukan pengikatan (binding) dengan alasan pengolahan data dapat dilakukan
lebih bebas.
Untuk keperluan tersebut kita bisa memakai komponen VideosoftFlexGrid Control (vsflex7.ocx)
Untuk memasukkan komponen vsflex7.ocx bisa dilakukan dengan mendaftarkan file vsflex7.ocx
ke registry windows.
Caranya sebaiknya anda copykan file vsflex7.ocx ke folder c:\windows\system32 lalu
daftarkan ke registri dengan cara mengetikkan dari commang prompt
cd windows\system32 <enter>
Regsvr32 vsflex7.ocx <enter>
Jika anda mendaftarkannya dengan benar seharusnya muncul seperti gambar di bawah
ini:

setelah melakukan pendaftaran vsflex7.ocx ke registry sekarang kita memasukkan komponen
tersebut ke toolbox visual basic 6.0
Caranya: klik project - komponen - pilih :-) VsflexGrid 7.0 - lalu klik ok
Lihat gambar di bawah ini:

jika anda melakukannya dengan benar maka anda akan melihat komponen vsflex7 di toolbox.
Lihat gambar di bawah ini:

double click komponen vsflex7 tersebut lalu sesuaikan ukurannya seperti terlihat
pada gambar di atas.
Setelah langkah-langkah di atas dilakukan dengan benar sekarang kita tulis kode
nya:
Private Sub Form_Load()
NamaBulan = Array("x", "Januari", "Februari", "Maret", "April", "Mei",
"Juni", "Juli", "Agustus", "Septermber", "Oktober", "Nopember", "Desember")
VSFlexGrid1.Cols = 3
VSFlexGrid1.Rows = 13
VSFlexGrid1.ColWidth(1) = 600
VSFlexGrid1.ColWidth(2) = 3000
VSFlexGrid1.TextMatrix(0, 1) = "angka"
VSFlexGrid1.TextMatrix(0, 2) = "nama bulan"
For i = 1 To 12 VSFlexGrid1.Row = i
VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 1) = i
VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 2) = NamaBulan(i)
VSFlexGrid1.Cell(flexcpBackColor, VSFlexGrid1.Row, 1, VSFlexGrid1.Row,
2) = QBColor(i)
Next i
End Sub
Tekan tombol Run atau F5 untuk menjalankan program. Apabila berjalan dengan benar
seharusnya seperti gambar di bawah ini:

Selamat program dah jalan.
Download vsflex7.ocx klik di sini
Untuk download project
klik di sini
Untuk melihat penggunaanya pada SOFTWARE POS
(POINT OF SALES) program kasir supermarket
klik di sini |
|
|
|