source code:
Private Sub SetBackColorListView(ByVal objList As ListView, ByVal objPic As PictureBox)
Dim i As Integer
'-------------------------
'initialize Picture style
'------------------------
objPic.BackColor = objList.BackColor
objPic.ScaleMode = vbTwips
objPic.BorderStyle = vbBSNone
objPic.AutoRedraw = True
objPic.Visible = False
'---------------------------
objPic.Width = objList.Width
objPic.Height = objList.ListItems(1).Height * (objList.ListItems.Count)
objPic.ScaleHeight = objList.ListItems.Count
objPic.ScaleWidth = 1
objPic.DrawWidth = 1
objPic.Cls
For i = 1 To objList.ListItems.Count
If i Mod 2 = 0 Then
objPic.Line (0, i - 1)-(1, i), RGB(255, 255, 255), BF
Else
objPic.Line (0, i - 1)-(1, i), RGB(239, 239, 239), BF
End If
Next
objList.Picture = objPic.Image
End Sub
Private Sub Form_Load()
Dim x As Integer
With ListView1
.View = lvwReport
.GridLines = True
.ColumnHeaders.Add , , "Item"
For x = 1 To 10
.ListItems.Add , , "Item : " & x
Next
End With
Call SetBackColorListView(ListView1, Picture1)
End Sub
eriek <[EMAIL PROTECTED]> wrote:
kl mewarnai backcolor nya gimana yach?
THX
----- Original Message -----
From: "Arlis Kurniawan" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, April 19, 2006 2:46 PM
Subject: Re: [indoprog-vb] mewarnai listview perbaris
> coba yang ini
>
> Option Explicit
>
> Private Sub Command1_Click()
> Dim ar As Integer, item As ListItem
> ListView1.View = lvwReport
> With ListView1
> With .ColumnHeaders
> .Add , , "header"
> End With
> End With
> For ar = 0 To 10
> With ListView1
> Set item = .ListItems.Add
> With item
> .Text = "baris " & ar
> Select Case ar
> Case 1, 4, 6
> .ForeColor = &HFF
> Case 2, 5, 9
> .ForeColor = &HFF0000
> End Select
> End With
> End With
> Next ar
> End Sub
>
> Regards,
>
> Arlis
>
> On 4/18/06, MUHAMMAD IRFAN <[EMAIL PROTECTED]> wrote:
>> Bisa gak listview diberi warna-warni pad baris-baris tertentu.
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
> [EMAIL PROTECTED]
>
> Ikuti juga forum diskusi VB.net dengan
> mengirim email kosong ke [EMAIL PROTECTED]
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
How low will we go? Check out Yahoo! Messengers low PC-to-Phone call rates.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
SPONSORED LINKS
| Computer internet security | Computer internet business | Computer internet access |
| Computer internet privacy securities | Computer internet help | Computer internet connection |
YAHOO! GROUPS LINKS
- Visit your group "indoprog-vb" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
