- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- addimage 函数异常 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179108)
-- 发布时间：2022/8/8 10:29:00
-- addimage 函数异常
老师，请看看图1、图2异常，谢谢！
内部函数代码：
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
此主题相关图片如下：2.jpg
此主题相关图片如下：1.jpg
-- 发布时间：2022/8/8 13:47:00
--
不存在这个文件
Dim name As String = args(0)
msgbox(name )
Dim cnt As String = args(1)
Dim img = getimage(name)
-- 发布时间：2022/8/8 16:35:00
--
建议存表里面，维护方便，你这样维护不方便啊。
-- 发布时间：2022/8/8 17:03:00
--
存在表里不知道咋样操作
