网页功能: 加入收藏 设为首页 网站搜索  
给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做个背景
本类热点文章
  用VB制作软键盘
  让messagebox自动消失
  制作半透明窗体
  给Listview做个背景
  VB程序实现WindowsXP效果的界面
  VB打造超酷个性化菜单
  用VB实现“百叶窗”的图形特效
  用VB绘制正弦动画曲线
  获取所有打印纸张格式的方法
  如何使Form的背景图随Form大小改变
  VB实现立体文字
  使用文字做为窗体的形状
最新分类信息我要发布 
最新招聘信息

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