- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口设计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159818)
-- 发布时间：2021/1/10 12:23:00
-- [求助]窗口设计
老师好：
请教一下，窗口设计时有些参数如何直接引用指定表单元格内容生效
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测20210110-1.rar |
Dim zt As Row = Tables("条件").Current
e.Sender.Image = GetImage("EditMode.ico") \'图标
\'\'\'\'需要改为 条件表 的当前行 图标1 内容 生效\'\'\'\'\'\'\'\'\'\'
\'\'\'\'e.Sender.Image = GetImage................
e.Sender.Font = new font("微软雅黑",15,FontStyle.Bold) \'设置体大小
\'\'\'\'需要改为 条件表 的当前行 字体大小1 内容 生效\'\'\'\'\'\'\'\'\'\'
\'\'\'\'e.Sender.Font = new font................
谢谢！
-- 发布时间：2021/1/10 20:30:00
--
e.Sender.Image = GetImage(ZT("图标1"))
dim arr() as string = ZT("字体大小1).split(",")
e.Sender.Font = new font(arr(0),val(arr(1)),[Enum].Parse(Gettype(FontStyle),arr(1).split(".")(1),True) )