象棋四大名局图片:代码实现ListView控件的行间隔颜色

来源：百度文库 编辑：中财网 时间：2024/04/29 22:19:10
首先在窗口中添加一个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
　　 代码量不多，不过很实用。
listview控件的使用 如何在LISTVIEW控件中实现不同的扩展名以不同的应用程序打开 vb中控件listview的详细使用 关于vf listview控件的listitems(i).listsubitems.add的 C#语言关于listview控件应用的问题 谁有VB6.0XP样式的LISTVIEW控件啊 在C++里怎么用代码实现变量与控件的绑定,比如把CListCtrl控件绑定到变量 m_list 求网页中调整行间距的代码 c#语言asp.net实现treeview控件读数据库动态生成树的代码 谁会用vb里面的listview这个控件啊？告诉我好吗？ 如何调用外部程序打开LISTVIEW控件中显示的文件 如何在LISTVIEW控件中添加己知路径的文件 VB中如何在LISTVIEW控件中添加己知路径的文件 如何用ListView控件显示指定目录的图片文件(VB6) 在vb中如何控制listview控件中显示的内容不能变化 DELPHI7 LISTVIEW控件添加项目问题? vfp 中listview控件怎么用? VB中listview控件。急，在线等！！ vb中的listview控件如何用啊？ delphi 中如何使用listview控件 VB里找不到TreeView和ListView控件！ 请问VB中 listView的自动划块怎么实现啊？ listview的使用方法 listview的使用？？？？