以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问如何获取图片框中图片的名称  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105008)
--  作者：10059
--  发布时间：2017/8/10 9:00:00
--  请问如何获取图片框中图片的名称
例如，我已经在图片框中插入了图片，我想获取图片框中图片的名称来判断是不是我想用的图片。请问怎么获取？？
--  作者：有点甜
--  发布时间：2017/8/10 10:07:00
--  

如果图片已经显示，是不能获取图片控件的文件名的。

 

你是如何给图片框插入图片的？你要在插入的那个时候获取记录文件名。
--  作者：10059
--  发布时间：2017/8/10 16:32:00
--  
那么请问老师

1、在单元格中的图标名称可以获取？？

2、我在表的DrawCell的事件中向单元格中插入一个图标，然后将这张表绑定到窗口的table中，想利用窗口的定时器，当满足某个条件时，不断切换单元格中的图标，老师请问这样可以实现？？
[此贴子已经被作者于2017/8/10 16:41:00编辑过]
--  作者：有点甜
--  发布时间：2017/8/10 17:27:00
--  

1、同样不能获取名称。

 

2、不能用drawcell事件，如果要设置单元格图标，这样写

 

Dim g = Tables("表A").grid
Dim cs = g.GetCellRange(3, 3)
cs.Image = Getimage("d:\\test.Ico")
If cs.style Is Nothing Then
    cs.style = g.Styles.add("test")
End If
cs.Style.ImageAlign = 1
--  作者：10059
--  发布时间：2017/8/11 8:23:00
--  
谢谢老师

还有个问题就是当满足某条件时，想利用窗口的定时器不断切换图标形成闪烁的效果，该怎么做呢？
--  作者：有点甜
--  发布时间：2017/8/11 8:50:00
--  

参考代码

 

Dim g = Tables("表A").grid
Dim cs = g.GetCellRange(3, 3)
cs.Image = Getimage("d:\\test.Ico")
If cs.style Is Nothing Then
    cs.style = g.Styles.add("test")
End If
cs.Style.ImageAlign = 1
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(0.5)
    Application.DoEvents
End While
cs.Image = Getimage("d:\\test.jpg")