以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  system.drawing.image同时加入2个图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115980)
--  作者：lur320
--  发布时间：2018/3/17 21:57:00
--  system.drawing.image同时加入2个图片

如何在一个单元格加入2个小图片17*17的？

 

If e.Col.name="。。。。。Then
e.Image=specialte+changeorder
End If

 

specialte和changeorder都是2个小图片，如何放在一个单元格起提醒作用？

但使用e.Image=specialte+changeorder时，系统就报错。不能为system.drawing.image使用+法

[此贴子已经被作者于2018/3/17 21:57:21编辑过]
--  作者：有点甜
--  发布时间：2018/3/18 21:17:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2387.htm

 

http://www.foxtable.com/webhelp/scr/1482.htm

 
--  作者：lur320
--  发布时间：2018/3/19 12:54:00
--  
这个不行，只能用e。image。
因为我后面还有其他的判断，用e.Graphics.DrawImage虽然可以排2个图标，但是后面的判断：e.style会覆盖e.Graphics.DrawImage的内容。
--  作者：有点甜
--  发布时间：2018/3/19 14:45:00
--  

方法一：一个图标可以用一列显示，显示两个，那用两列呗。

 

方法二：你不是可以把两个图标合并成一个，再显示？如代码

 

Dim imgback As image = getimage("d:\\test.jpg")
Dim img As image = getimage("d:\\test.ico")
Dim bmp As new bitmap(imgback.width+img.width, imgback.height)
Dim g = graphics.fromimage(bmp)
g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height)
Dim x As Integer = imgback.Width
Dim y As Integer = 0
Dim w As Integer = img.width
Dim h As Integer = img.height
g.DrawImage(img, x, y, w, h)
bmp.Save("d:\\test02.jpg", ImageFormat.Jpeg)
bmp.dispose

--  作者：lur320
--  发布时间：2018/3/19 15:53:00
--  
厉害，
我现在就是自己画了2个图（单图1个，双图1个），分别保存在\\Images里面。看情况调用其中一个而已。
但是不知道今后判断条件多了怎么办。
--  作者：有点甜
--  发布时间：2018/3/19 16:02:00
--  
以下是引用lur320在2018/3/19 15:53:00的发言：
厉害，
我现在就是自己画了2个图（单图1个，双图1个），分别保存在\\Images里面。看情况调用其中一个而已。
但是不知道今后判断条件多了怎么办。

 

用代码动态生成你需要的图片，然后调用呗。（注意，尽量不要在drawcell执行4楼代码，合成图片比较耗时，drawcell也是每时每刻执行的）代码写到别的地方去。