Friday, February 4, 2011

VB. Source Code :: Warna latar teks dari ListView

- Source Code ini Untuk mengubah warna latar teks dari ListView
- Langkah-Langkah :
1. Buat 1 Project baru dengan 1 Form, 1 Module, dan1 ListView.
2. ListView dapat Anda ambil dari component bernama "Microsoft Windows Common Controls 5.0 (SP2)" dengan cara klik kanan di Toolbox lalu pilih component tsb.
3. Copy-kan coding berikut ke dalam editor form & module

//Kode ini di Module//
Public Const LVM_FIRST As Long = &H1000
Public Const LVM_SETTEXTBKCOLOR As Long = (LVM_FIRST + 38)
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
// Akhir kode di Module//

// Kode ini di Form//
Private Sub Form_Load()
ListView1.ListItems.Add , , "Hello, Catwork....."
Call SendMessage(ListView1.hwnd, LVM_SETTEXTBKCOLOR, 0&, vbGreen)
End Sub
//Akhir kode di Form//

0 comments:

Post a Comment

luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com
There was an error in this gadget

Lalu Lintas

pagerank