Memberi Warna Selang Seling (Background) Pada List View

Memberi Warna Selang Seling (Background) Pada List View

Pada postingan sebelumnya pernah membahas tentang cara menampilkan data pada list view. Untuk kali ini saya akan memposting cara memberi background selang seling pada list view supaya tampilannya lebih menarik dan tidak membosankan seperti gambar berikut ini.

Siapkan sebuah form lalu tambahkan list view ke dalam form kemudian tambahkan sebuah modul yang nanti digunakan untuk mengetik code untuk koneksi dan mengatur setingan list view serta background list view.

Ketikan koding seperti berikut dalam modul yang berguna mengatur dalam pemberian background

koding untuk koneksi dan pengaturan list view tidak saya tampilkan silahkan nanti download source codenya. Jika sudah pangggil kode di atas pada form load setelah koding menampilkan data seperti berikut ini

Selesai kemudian jalankan, untuk koding lengkapnya silahkan download source codenya

Download

Keyword : list view,trik list view,menampilkan data pada list view, background pada list view,warna selang seling pada list view,menampilkan data pada list view di vb 6, list view di vb 6, menampilkan data pada list view di visual basic 6

Download Data Dynamic Active Report 2 Professional SP4

Download Data Dynamic Active Report 2 Professional SP4

 Untuk menampilkan data Laporan atau Report pada setiap proses yang akan di cetak dibutuhkan komponen tambahan pada visual basic, dalam software visual basic itu sendiri sudah memiliki komponen tersebut yaitu Data Report yang telah tersidia pada pemograman visual basic. Ada juga komponen dari luar yang dapat di install untuk membuat Data Laporan seperti Crystal Report dan Acive Report yang masing-masing memliki kemudahan dalam membuat laporan.

 

Untuk penggunaan crystal report cukup memakan memori hard disk yang besar sekitar 650 Mb yang dapat  membuat komputer kita semakin lamban sedangkan Active Report memakan memori yang kecil sekitar 7 Mb, bagaimana perbandingan yang cukup besar bukan padahal digunakan untuk fungsi yang sama. untuk penggunaan active report juga sangat sederhana dan lengkap tidak kalah dengan crystal report.

 

 

Download Active Report

 

Download Crack Active Report

 

 

 

Tags : komponen visual basic, download ActiveReport, ActiveReport download, free download ActiveReport, ActiveReport full version, cara menggunakan ActiveReport, ActiveReport adalah, ActiveReport for .net, crack ActiveReport, ActiveReport ocx, ocx ActiveReport, ActiveReport ocx complete full, complete ActiveReport ocx download, CR to AR, Access to AR, Convert Crystal Report to ActiveReport, Convert Ms.Access to ActiveReport, Download Crystal Report Converter 

Membuat menu samping dengan komponen vbAccelerator VB6 Explorer Bar

Membuat menu samping dengan komponen vbAccelerator VB6 Explorer Bar

Pada postingan ini saya membahas pembuatan menu alternatif selain menggunakan tool standar vb (menu editor), kali ini kita akan menggunakan komponen vbAccelerator VB6 Explorer Bar.
vbAccelerator VB6 Explorer Bar adalah salah satu komponen keren dan gratis yang tersedia di situs www.vbaccelerator.com.
Kita akan membuat menu dengan tampilan seperti berikut :
 

Untuk memudahkan kita memahami penggunaan komponen vbAccelerator Explorer Bar, minimal ada 2 istilah yang harus kita ketahui :

1. Bar Menu, gampangnya kita sebut saja menu induk
2. Item Menu tentu saja ini menu anaknya

Adapun contoh prosedur/fungsi untuk menambahkan Bar Menu dan Item Menu:

Private Function setBarMenu(ByVal explorerBar As Object, ByVal menuName As String, _                             ByVal menuCaption As String, ByVal iconIndex As Long) As Object     Dim cBar As Object     Set cBar = explorerBar.Bars.Add(, menuName, menuCaption)     cBar.IsSpecial = True     cBar.iconIndex = iconIndex     cBar.TitleForeColor = WARNA_BIRU_TUA     cBar.TitleForeColorOver = WARNA_BIRU_TUA     cBar.TitleBackColorLight = WARNA_BIRU     cBar.TitleBackColorDark = RGB(234, 241, 253)     cBar.BackColor = WARNA_ABU_ABU     Set setBarMenu = cBar End Function Private Sub setItemMenu(ByVal cBar As Object, ByVal menuName As String, ByVal menuCaption As String, ByVal iconIndex As Long)     Dim cItem   As Object     Set cItem = cBar.Items.Add(, menuName, menuCaption)     With cItem         .iconIndex = iconIndex         .TextColor = WARNA_BIRU_TUA         .TextColorOver = WARNA_PUTIH     End With End Sub

Sebelum kita akan mengetikan kode lengkap untuk membuat menu dengan komponen vbAccelerator Explorer Bar, tambahkan terlebih dahulu komponen/referensi berikut ke dalam project Anda :

1. vbAccelerator Explorer Bar (Menu Project -> Component)
2. vbAccelerator Image List (Menu Project -> Component), komponen ini untuk menambahkan icon di menu bar/item
3. vbAccelerator VB6 Subclassing and Timer Assistant (Menu Project -> References) pembahasan tentang komponen ini bisa di lihat di sini

kemudian drag komponen vbAccelerator Explorer Bar dan vbAccelerator Image List ke form

Contoh penggunaan prosedur/fungsi setBarMenu dan setItemMenu :

Private Sub addMenu(ByVal explorerBar As Object, ByVal barIcons As Object, ByVal itmIcons As Object)     Dim rsMenuInduk As ADODB.Recordset     Dim rsMenuAnak  As ADODB.Recordset     Dim cBar        As Object     Dim i           As Long     Dim x           As Long     Dim rowCount(1) As Long     With explorerBar         .UseExplorerStyle = False         .Redraw = False         .BackColorStart = WARNA_BIRU         .BackColorEnd = WARNA_BIRU         .ImageList = itmIcons.hIml         .BarTitleImageList = barIcons.hIml         'menampilkan menu induk         strSql = "SELECT id, menu_name, menu_caption " & _                  "FROM menu_induk " & _                  "ORDER BY id"         Set rsMenuInduk = openRecordset(strSql)         If Not rsMenuInduk.EOF Then             rowCount(0) = getRecordCount(rsMenuInduk)             For i = 1 To rowCount(0)                 Set cBar = setBarMenu(explorerBar, rsMenuInduk("menu_name").Value, rsMenuInduk("menu_caption").Value, 0)                 'menampilkan menu anak                 strSql = "SELECT menu_name, menu_caption " & _                          "FROM menu_anak " & _                          "WHERE menu_induk_id = " & rsMenuInduk("id").Value & " " & _                          "ORDER BY id"                 Set rsMenuAnak = openRecordset(strSql)                 If Not rsMenuAnak.EOF Then                     rowCount(1) = getRecordCount(rsMenuAnak)                     For x = 1 To rowCount(1)                         Call setItemMenu(cBar, rsMenuAnak("menu_name").Value, rsMenuAnak("menu_caption").Value, 0)                         rsMenuAnak.MoveNext                     Next x                 End If                 Call closeRecordset(rsMenuAnak)                 rsMenuInduk.MoveNext             Next i         End If         Call closeRecordset(rsMenuInduk)         Set cBar = setBarMenu(explorerBar, "mnuKeluar", "Keluar", 1)         Call setItemMenu(cBar, "mnuKeluarDrProgram", "Keluar dari Program", 0)         .Redraw = True     End With End Sub

Dan terakhir source code untuk menghandle menu yang di klik :

Private Sub vbalExplorerBarCtl1_ItemClick(itm As vbalExplorerBarLib6.cExplorerBarItem)     Select Case itm.Key         Case "mnuBarang": 'TODO : tampilkan frmBarang disini         Case "mnuCustomer"         Case "mnuSupplier"         Case "mnuPembelian"         Case "mnuReturPembelian"         Case "mnuPenjualan"         Case "mnuBiayaOperasional"         Case "mnuGajiKaryawan"         Case "mnuLapPembelian"         Case "mnuLapJthTempo"         Case "mnuLapPenjualan"     End Select End Sub

Contoh source code langkap bisa didownload disini.
Selamat mencoba

Sumber : http://coding4ever.wordpress.com


Tag :  Membuat menu samping dengan komponen vbAccelerator VB6 Explorer Bar, membuat menu samping di vb 6, membuat menu samping, vbAccelerator VB6 Explorer Bar, mempercantik tampilan vb, mempercantik tampilan form di vb, trik membuat menu samping, membuat menu di vb 6, skin for vb

XPcontrols.ocx - Memperindah Tampilan vb 6

XPcontrols.ocx - Memperindah Tampilan vb 6

Pada postingan kali ini saya akan berbagi ilmu tentang cara mempercantik/memperindah tampilan visual basic 6.0. Pasti anda semua, para pengguna vb 6 akan merasa bosan dengan tampilan yang ada. Disini anda bisa mengubah tampilan standar/default menjadi tampilan yang lebih menarik, dan sedap dipandang mata dengan menggunakan xpcontrols.ocx.Oke, tak perlu berlama-lama. Langsung saja download di link berikut :
 

Download

- Kemudian copy xpcontrols.ocx ke C:\windows\system32

- Kemudian buka command prompt melalui start > run >ketik “cmd” > enter

- Ketik “cd\” (untuk masuk ke direktori c)

- Ketik “regsvr32 xpcontrols.ocx” seperti pada gambar :

- Kemudian tekan enter, akan muncul messagebox, yang menandakan proses telah sukses :

- Sekarang buka vb 6, pilih standard.exe, lalu buka komponen dengan menggunakan Ctrl+T, lalu klik/centang pada XP Style ActiveX Pack.

- Klik OK, akan muncul menu-menu baru, seperti XPFrame, XPTextBox, XPList, XPCheck, XPOption, XPButton, XPCombo, dan ProgBarXP.

- Dan didapatkan hasil form seperti berikut :

 Sekian semoga dapat bermanfaat.

Keyword :
 XPcontrols.ocx, komponen XPcontrols.ocx, mempercantik form dengan XPcontrols.ocx, mempercantik tampilan dengan XPcontrols.ocx, xpbutton, control XPcontrols.ocx, ocx,Trik Memperindah Form,Trik Mempercantik Tampilan Form,Cara Membuat Sebuah Form Lebih Menarik