Foxtable(狐表)用户栏目专家坐堂 → ListView添加窗口


  共有2800人关注过本帖树形打印复制链接

主题:ListView添加窗口

帅哥哟,离线,有人找我吗?
有点蓝
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/19 14:52:00 [只看该作者]

建一个函数,名称为addimage

Dim name As String = args(0)
Dim cnt As String = args(1)
Dim img = getimage(name)

Dim bmp As new bitmap(48, 48) '宽高
Dim g = graphics.fromimage(bmp)
g.DrawImage(img,6,6,36,36)
g.DrawEllipse(New Pen(Color.Red,2),30,2,15,15)
Dim fnt As New Font("宋体",10)
g.DrawString(cnt,fnt,Brushes.red,32,4)
Dim fl As String =  name.Split(".")(0) & "_c.png"
bmp.save(ProjectPath & "Images\" & fl)
bmp.dispose
Return fl

窗口afterload
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Groups.Clear() '清除原来的分组
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.LargeIcon '用大图标模式
Dim gps() As  String  = {"采购申请业务"} '定义分组名称
Dim nms() As String = {"采购申请审核","采购申请驳回"} '定义标题
Dim ics() As String = {"001","002"} '定义图标键值
For Each gp As String In gps
    Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() '增加分组
    vg.Name = gp '指定分组名称
    vg.Text = gp '指定分组标题
Next
For i As Integer = 0 To nms.Length - 1
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    r.Text = nms(i) '指定标题
    Dim fl As String = ics(i) & ".ico"
    Select Case nms(i)  '指定各个国家所属的分组
        Case "采购申请审核"
            r.Group = "采购申请业务"
            Dim cnt As Integer = DataTables("采购申请明细").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '待审核'")
            fl = Functions.Execute("addimage",fl,cnt)
            r.Text = "采购申请审核(" & cnt  & ")"
        Case "采购申请驳回"
            r.Group = "采购申请业务"
            Dim cnt As Integer = DataTables("采购申请明细").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '驳回'")
            fl = Functions.Execute("addimage",fl,cnt)
            r.Text = "采购申请驳回(" & cnt  & ")"
    End Select
    lvw.Images.AddImage(fl,fl,fl)'添加代表这个国家的小图标
    r.ImageKey = fl
Next
[此贴子已经被作者于2020/2/19 14:52:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/19 15:26:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/19 15:46:00 [只看该作者]

Case "采购申请审核"
            r.Group = "采购申请业务"
            Dim cnt As Integer = DataTables("采购申请明细").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '待审核'")
if cnt > 0 then
            fl = Functions.Execute("addimage",fl,cnt)
end if
            r.Text = "采购申请审核(" & cnt  & ")"

 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/19 16:23:00 [只看该作者]

用户已被锁定

 回到顶部
总数 24 上一页 1 2 3