| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- ListView添加窗口 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146063) |
| -- 作者：有点蓝 -- 发布时间：2020/2/15 14:46:00 -- 到RowActivate事件处理：http://www.foxtable.com/webhelp/topics/2872.htm msgbox(e.sender.Current.text) forms（e.sender.Current.text）.open
[此贴子已经被作者于2020/2/15 14:45:46编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/2/15 15:20:00 -- select case e.sender.Current.text Case "过程不良审核"
Forms("过程异常明细").Open() MainTable = Tables("过程异常明细") |
| -- 作者：有点蓝 -- 发布时间：2020/2/15 16:07:00 -- 1、添加的是小图标，在大图标模式下当然无效 lvw.Images.AddImage(ics(i),ics(i) & ".ico", ics(i) & ".ico") |
| -- 作者：有点蓝 -- 发布时间：2020/2/16 19:41:00 -- 用法完全一样的，只是给TopicLink赋值改为给其它地方赋值而已 |
| -- 作者：有点蓝 -- 发布时间：2020/2/16 21:47:00 -- 比如 Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() \'增加分组
vg.Name = "指定分组名称" vg.Text = "指定分组名称(" & DataTables("管理层杂工总表").SQLCompute("Count(审核状态)","需审核人 = \'" & _UserName & "\' and 审核状态 = \'待审核\'") & ")" |
| -- 作者：有点蓝 -- 发布时间：2020/2/16 22:51:00 -- 完整代码？ |
| -- 作者：有点蓝 -- 发布时间：2020/2/16 23:09:00 -- 后面3行改为 vg1.Text = "管理工时批准(" & DataTables("管理层杂工总表").SQLCompute("Count(审核状态)","需审核人 = \'" & _UserName & "\' and 审核状态 = \'待审核\'") & ")"
[此贴子已经被作者于2020/2/16 23:09:06编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/2/17 9:08:00 -- Dim lvw As WinForm.ListView = e.Form.Controls("ListView1") lvw.Groups.Clear() \'清除原来的分组lvw.Rows.Clear() \'清除原来的行 lvw.Images.Clear() \'清除原来的图片 lvw.View = ViewMode.SmallIcon \'用小图标模式 Dim gps() As String = {"采购申请业务","设备管理业务","生产过程异常","工时业务处理","刀具业务过程"} \'定义分组名称 Dim nms() As String = {"采购申请审核","采购申请驳回","过程不良审核","生产异常方案","影响明细填写","生产异常驳回","异常结案确认","管理工时批准","工时补助审核","工时补助驳回","刀具修磨审核","刀盘调试审核","刀具报废审核","再利用库审核","刀具过程驳回"} \'定义标题 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) \'指定标题 Select Case nms(i) \'指定各个国家所属的分组 Case "采购申请审核","采购申请驳回" r.Group = "采购申请业务" Case "过程不良审核" r.Group = "设备管理业务" Case "生产异常方案","影响明细填写","生产异常驳回","异常结案确认" r.Group = "生产过程异常" Case "管理工时批准" r.Group = "工时业务处理" r.Text = "管理工时批准(" & DataTables("管理层杂工总表").SQLCompute("Count(审核状态)","需审核人 = \'" & _UserName & "\' and 审核状态 = \'待审核\'") & ")"
Case "工时补助审核","工时补助驳回" r.Group = "工时业务处理" Case "刀具修磨审核","刀盘调试审核","刀具报废审核","再利用库审核","刀具过程驳回" r.Group = "刀具业务过程" End Select Next |
| -- 作者：有点蓝 -- 发布时间：2020/2/17 15:45:00 -- 上传实例，包括图片 |
| -- 作者：有点蓝 -- 发布时间：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编辑过]
|