科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件用代码实现ListView控件的行间隔颜色

用代码实现ListView控件的行间隔颜色

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

首先在窗口中添加一个ListView控件

作者:szyicol 来源:中国开发者联盟 2007年10月14日

关键字: 代码 ListView 控件 颜色

  • 评论
  • 分享微博
  • 分享邮件
首先在窗口中添加一个ListView控件,方法:菜单->工程->部件->Microsoft Window Common Control 6.0 (后面为版本号)。再添加一个Picture控件,改名为picGreenbar。

  实现的代码如下:

Option Explicit

Private Sub Form_Load()
 Dim i As Integer
 Dim iFontHeight As Long
 Dim iBarHeight As Integer
 Dim j As Integer
 Dim itmX As ListItem
 Dim ColHead As ColumnHeader
 ListView1.ColumnHeaders.Add , , "This is Just a Simple Example"
 ListView1.ColumnHeaders(1).Width = 3000


 '添加一些实验数据
 For j = 1 To 33
  Set itmX = ListView1.ListItems.Add()
  itmX.Text = "This is item number " & CStr(j)
 Next j

 Me.ScaleMode = vbTwips
 picGreenbar.ScaleMode = vbTwips
 picGreenbar.BorderStyle = vbBSNone
 picGreenbar.AutoRedraw = True
 picGreenbar.Visible = False
 picGreenbar.Font = ListView1.Font
 iFontHeight = picGreenbar.TextHeight("b") + Screen.TwipsPerPixelY
 iBarHeight = (iFontHeight * 1)
 picGreenbar.Width = ListView1.Width
 '======
 picGreenbar.Height = iBarHeight * 2
 picGreenbar.ScaleMode = vbUser
 picGreenbar.ScaleHeight = 2
 picGreenbar.ScaleWidth = 1
 'draw the actual bars
 picGreenbar.Line (0, 0)-(1, 1), vbWhite, BF
 picGreenbar.Line (0, 1)-(1, 2), RGB(227, 241, 226), BF
 '======
 ListView1.PictureAlignment = lvwTile
 ListView1.Picture = picGreenbar.Image
End Sub

  代码量不多,不过很实用。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章