MSFlexgrid可以同时显示图片和文字吗?

thw19850316 2008-03-06 05:25:22
如题,在一个单元格内可以同时显示图片和文字吗?
...全文
134 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
thw19850316 2008-03-07
我是换了思路啊,就是点一个单元格就出现RICHTEXTBOX,只有一个RICHTEXTBOX啊,但是正因为这样而出现了RICH中的图片不能贴到MSFLEXGRID上啊
回复
thw19850316 2008-03-07
我也觉得不太可行,因为我需要的RICHTEXTBOX太多了,超过了200个,我就想到了用MSFLEXGRID来获得RICH的内容,但是现在文本可以,就是图片不行,晕
回复
cbm6666 2008-03-07
在Msflexgrid调用Richtextbox里面的.txt内容很简单, 但图片我从没试过在这里调用,有机会试试.

但我不认为可行, 因为 Set MSFlexGrid1.CellPicture = LoadPicture("c:\fw.bmp")
它是针对图片, 如我做的话,我会将Richtextbox整个或部份区段截图,再用上面这行代码.

在RICHTEXTBOX里输入文字和图片必需保存为 .rtf, 保存为.txt 图片是无法保存的.

回复
thw19850316 2008-03-07
[Quote=引用 3 楼 cbm666 的回复:]
Private Sub Command1_Click()
'************************ 指定行列加载图片
MSFlexGrid1.ColWidth(2) = 10000
MSFlexGrid1.RowHeight(3) = 3200
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = 3
Set MSFlexGrid1.CellPicture = LoadPicture("c:\fw.bmp")
MSFlexGrid1.ForeColor = QBColor(15)
MSFlexGrid1.Font.Size = 36
MSFlexGrid1.Text = " 奥运福娃By CBM666"
End Sub


效果…
[/Quote]

这样我已经做到了,我是将RICHTEXTBOX加到了MSFLEXGRID上,我就是想将RICHTEXTBOX里的信息转到MSFLEXGRID上的
比如我点第一行第一列那个单元格,就会出现RICHTEXTBOX,我在RICHTEXTBOX里输入文字和图片,然后回车,MSFLEXGRID只得到文字不会出现图片,所以我就是想处理将RICH的信息贴到MSFLEXGRID上
回复
要把200多个RICHTEXTBOX的内容放进一个GRID?
换思路吧,资源占用太多了.
回复
cbm6666 2008-03-06
Private Sub Command1_Click()
'************************ 指定行列加载图片
MSFlexGrid1.ColWidth(2) = 10000
MSFlexGrid1.RowHeight(3) = 3200
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = 3
Set MSFlexGrid1.CellPicture = LoadPicture("c:\fw.bmp")
MSFlexGrid1.ForeColor = QBColor(15)
MSFlexGrid1.Font.Size = 36
MSFlexGrid1.Text = " 奥运福娃By CBM666"
End Sub


效果图:
http://p.blog.csdn.net/images/p_blog_csdn_net/cbm666/366646/o_MSFW.jpg

回复
TomyChoi 2008-03-06
好像是可以的
回复
of123 2008-03-06
除非特殊处理,它自己做不到。
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-06 05:25
社区公告
暂无公告