登录社区:用户名: 密码: 忘记密码 网页功能:加入收藏 设为首页 网站搜索  

文档

下载

图书

论坛

安全

源码

硬件

游戏
首页 | 信息 | 空间 | VB | VC | Delphi | Java | Flash | 补丁 | 控件 | 安全 | 黑客 | 电子书 | 笔记本 | 手机 | MP3 | 杀毒 | QQ群 | 产品库 | 分类信息 | 编程网站
  立华软件园 - Visual Basic 专区 - 技术文档 - 窗体界面 技术文章 | VB源代码 | 电子图书 | VB网站 | 相关下载 | 在线论坛 | QQ群组 | 搜索   
 VB技术文档
  · 窗体界面
  · 系统控制
  · VB.Net
  · 多媒体
  · 网络编程
  · API函数
  · 游戏编程
  · 数据报表
  · 其他文档
 VB源代码
  · 窗体界面
  · 文件目录
  · 多媒体
  · 网络编程
  · 系统API
  · 数据报表
  · 游戏编程
  · VBA办公
  · 其他代码
 VB论坛
  · Visual Basic 讨论区
  · VB.Net 讨论区
  · VB数据库开发讨论区
  · VB系统API讨论区
 其他VB资源
  · VB下载资源
  · VB电子图书
  · VB QQ群组讨论区
  · VB 其他网站资源




给Listview做个背景
发表日期:2003-12-09作者:[] 出处:  

Private Sub Command1_Click()

  lvList.GridLines = Not lvList.GridLines

  SetBackColor lvList, vbRed, vbWhite

End Sub

Private Sub Form_Load()

Dim i As Long, lvItem As ListItem

  For i = 1 To 450

    Set lvItem = lvList.ListItems.Add(, , "演示 " & i)

    If i Mod 2 = 0 Then lvItem.Checked = True Else lvItem.Checked = False

  Next i

  

  SetBackColor lvList, picBoard, vbRed, vbGreen

End Sub

Private Function SetBackColor(lvList As ListView, picBoard As PictureBox, CheckColor As ColorConstants, unCheckColor As ColorConstants)

Dim iWidth As Single, iHeight As Single, tHeight As Single, lMatch As Single

Dim i As Long

  With picBoard

    .AutoRedraw = True

    .BackColor = lvList.BackColor

    .Cls

    .Visible = False

    .ScaleMode = vbTwips

    .Width = lvList.Width + 100

    .Height = lvList.ListItems(1).Height * (lvList.ListItems.Count + 1)

    With .Font

      .Size = lvList.Font.Size + 2.75

      .Bold = lvList.Font.Bold

      .Charset = lvList.Font.Charset

      .Italic = lvList.Font.Italic

      .Name = lvList.Font.Name

      .Strikethrough = lvList.Font.Strikethrough

      .Underline = lvList.Font.Underline

      .Weight = lvList.Font.Weight

    End With

    

    iWidth = .Width

    For i = 1 To lvList.ListItems.Count

      If i = 1 Then lMatch = lvList.ListItems(i).Top - lvList.ListItems(i).Height

      tHeight = lvList.ListItems(i).Top - lvList.ListItems(i).Height - lMatch

      iHeight = lvList.ListItems(i).Height

      If lvList.ListItems(i).Checked Then

        picBoard.Line (0, tHeight)-(iWidth, tHeight + iHeight), CheckColor, BF

      Else

        picBoard.Line (0, tHeight)-(iWidth, tHeight + iHeight), unCheckColor, BF

      End If

    Next

  End With

  lvList.Picture = picBoard.Image

End Function

我来说两句】 【发送给朋友】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 给Listview做个背景

 ■ [欢迎对本文发表评论]
用  户:  匿名发出:
您要为您所发的言论的后果负责,故请各位遵纪守法并注意语言文明。

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放 / 友情链接  
Copyright ©2001-2006 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00194