标题:關於本網站上一篇在listview間隔中顯示顏色的問題
只看楼主
WithFh
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2006-12-4
 问题点数:0 回复次数:1 
關於本網站上一篇在listview間隔中顯示顏色的問題
我的listview 命名為LV,已經從數據庫讀出了數據,但不知道為什麼那個顏色不能準確的顯示的listview的格子上,
代碼是與網站上一樣的,請問要怎麼改才能準確顯示!
Dim i As Integer
Dim iFontHeight As Long
Dim iBarHeight As Integer
Dim j As Integer
Dim itmX As ListItem
Dim ColHead As ColumnHeader
Me.ScaleMode = vbTwips
picGreenbar.ScaleMode = vbTwips
picGreenbar.BorderStyle = vbBSNone
picGreenbar.AutoRedraw = True
picGreenbar.Visible = False
picGreenbar.Font = LV.Font
iFontHeight = picGreenbar.TextHeight("b") + Screen.TwipsPerPixelY
iBarHeight = (iFontHeight * 1)
picGreenbar.Width = LV2.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
'======
LV2.PictureAlignment = lvwTile
LV2.Picture = picGreenbar.Image
搜索更多相关主题的帖子: listview 
2006-12-18 20:25
学习VB才2天
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1653
专家分:0
注 册:2006-5-4
得分:0 
```不是這個問題就是數據庫讀取的問題````

[GLOW=255,DeepPink,3]我的免费网盘[/GLOW]
2006-12-18 20:34



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-110368-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.078332 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved