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,3,3,36,36)
g.DrawEllipse(New Pen(Color.Red,15),30,2,15,15)
Dim fnt As New Font("宋体",10)
g.DrawString(cnt,fnt,Brushes.White,32,2)
Dim fl As String = name.Split(".")(0) & "_c.png"
bmp.save(ProjectPath & "Images\" & fl)
bmp.dispose
Return fl
Dim gps() As String = {"采购申请业务","生产计划过程","设备管理业务","生产过程处理","工时业务处理","刀具业务过程","通知单据审核","质量检测处理"} '定义分组名称
Dim nms() As String = {"采购申请审核","采购申请驳回","停机结束跟踪","待关闭","进行中","待入库","加工不良审核","设备验收操作","计划审核确认","设备维修记录","生产过程异常","待配刀明细","待还刀待结案","已完工漏扫码","已完工待结案","不良品处理","不良品结案","管理工时批准","工时补助审核","工时补助驳回","考勤审核","刀具修磨审核","刀具报废审核","刀具检测","试刀协议","试刀报告","采购确认","收退处理","单据明细审核","单据明细驳回","来料检测审核","过程不良判定","过程不良确认","过程单据上传","转入废品仓库","废品单据打印","过程点检审核"} '定义标题
Dim ics() As String = {"43d","42d","41d","40d","39d","38d","37d","36d","35d","34d","33d","32d","31d","30d","29d","28d","27d","26d","25d","24d","23d","22d","21d","20d","19d","18d","17d","16d","15d","14d","13d","12d","11d","10d","9d","8d","7d"} '定义图标键值
For Each gp As String In gps
Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() '增加分组
vg.Name = gp '指定分组名称
vg.Text = gp '指定分组标题
Next
加好友 
发短信
Post By：2022/8/8 10:29:00 [只看该作者]
此主题相关图片如下：2.jpg
