您的位置：程序门 -> vb -> 控件

vsflexgrid1中的图片颜色屏蔽？（求高手：＂小磊＂帮忙）

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vsflexgrid1中的图片颜色屏蔽？（求高手：＂小磊＂帮忙）[已结贴,结贴人:haorong_ttsoft]

发表于：2007-04-03 00:38:40 楼主

首先将imagelist2.overlay中的图片显示在某单元格中，用鼠标点击图片某单元格时单元格背景就变了颜色．
１.单元格中的图片有个白色的边框，怎样将这个白色的边框屏蔽掉？

vsflexgrid1.col = 1
vsflexgrid1.row = 1
set vsflexgrid1.cellpicture = imagelist2.overlay（1, 1)

private sub vsflexgrid1_entercell（)
'cellbackcolor — 返回或者设置单独的单元格或者单元格区域的背景色。
vsflexgrid1.cellbackcolor = &ha6bfe1
end sub

private sub vsflexgrid1_leavecell（)
if vsflexgrid1.cellbackcolor = &ha6bfe1 then
vsflexgrid1.cellbackcolor = vbwhite
end if
end sub

发表于：2007-04-03 08:35:081楼得分:0

什么白色的边框？图片没有处理好吧？

发表于：2007-04-03 09:52:292楼得分:0

我imagelist控件中插入的是透明背景gif格式．
在vsflexgrid1中单元格背景颜色在点击是就变成黄色，但是vsflexgrid1中图片出现正方行的白方块，gif无法透明背景．帮帮忙　帮我测试一下．

发表于：2007-04-03 11:25:543楼得分:0

我没有明白你在单元格内设图片要实现什么功能

发表于：2007-04-03 11:27:434楼得分:0

你是想控制具体哪个单元格变颜色，哪个不变是吧

发表于：2007-04-05 20:13:535楼得分:0

不好意思我不在没有时间看帖
帮我看一下这两种方法加载的结果在点击单元格后显示的不一样
vsflexgrid1.col = 1
vsflexgrid1.row = 1

'1.使用imagelist控件加载图片
set vsflexgrid1.cellpicture = imagelist2.overlay（1, 1)
'2.直接加载图片
set vsflexgrid1.cellpicture=loadpictur（ "123.gif ")

private sub vsflexgrid1_entercell（)
'cellbackcolor — 返回或者设置单独的单元格或者单元格区域的背景色。
vsflexgrid1.cellbackcolor = &ha6bfe1
end sub

private sub vsflexgrid1_leavecell（)
if vsflexgrid1.cellbackcolor = &ha6bfe1 then
vsflexgrid1.cellbackcolor = vbwhite
end if
end sub

发表于：2007-04-05 20:26:236楼得分:0

补：这里错了
set vsflexgrid1.cellpicture=loadpictur（ "123.gif ")
loadpictur改loadpicture

发表于：2007-04-05 20:36:027楼得分:0

帮我看得时候最好把单元格调大点不燃看不出来
vsflexgrid1.rowheightmin=1000
谢谢！

发表于：2007-04-06 11:30:408楼得分:0

楼主我连透明图片和别的图片都用过了，没有发现你说的什么白色边框啊，透明图片不影响背景的颜色，一样可以变色没有区别

发表于：2007-04-06 11:31:379楼得分:0

是不是你的透明图片有问题啊，重新做个

发表于：2007-04-06 22:36:2310楼得分:0

谢谢小磊！
直接加载目录下的图片loadpicture（ "123.gif ")透明图片不影响背景的颜色，这个我知道．

但是我想用imagelist控件来显示就不行了，请在帮我看一看　谢谢！
因为直接加载loadpicture（ "123.gif ")图片在生成ｅｘｅ文件后还不能脱离目录下的图片，如果
目录下的图片删除了就无法显示，所以我想用imagelist控件来显示，调用imagelist控件中的图片后生成ｅｘｅ文件就不能改变了

调用imagelist控件中的图片会产生白色方框
vsflexgrid1.rowheightmin=1000
set vsflexgrid1.cellpicture = imagelist１.overlay（1, 1)

发表于：2007-04-07 14:42:3411楼得分:0

楼主,我也有个问题就是vsflexgrid能不能设置边框的颜色?

发表于：2007-04-07 17:18:1612楼得分:0

希望大家的问题都能解决

发表于：2007-04-09 09:55:4113楼得分:0

楼主我没有看到白色边框，不过这个控件用的真不多，帮你查了一下
你的overlay是叠加的一个效果，你换成 imagelist1.listimages（1).picture试看行吗？

发表于：2007-04-10 22:50:1414楼得分:0

感谢　恩人啊！　我以为你不来了
把overlay换成 imagelist1.listimages（1).picture问题真的就解决了．

之前我跟你说用overlay会产生白色方框的问题，你没有看出来的原因是我没有跟你说清楚，其实一定要加上背景颜色才能看出来，不好意思
vsflexgrid1.backcolor = &hc0e0ff

再请教你一个问题？我想在窗体上使用快捷键来执行一些操作，如：按下ｅｓｃ键后就自动关闭窗体．．．是不是把代码添加在某些对象的keydown事件中，如果是就麻烦了　那不是要将所有光标能去的位置都加上代码，因为我的窗体上有很多文本框，光标的位置有时在不同的文本框上．能否将代码加在其它事件中一次搞定吗？

select case keycode
case 27 'esc
　　　me.hide
case 13 'enter
　　　　　form1.show
end select

发表于：2007-04-11 09:10:2115楼得分:0

private sub form_keypress（keyascii as integer)
if keyascii = vbkeyescape then
unload me
end if
end sub

private sub form_load（)
me.keypreview = true
end sub
试看

发表于：2007-04-11 09:20:0516楼得分:80

楼主可要加分哦,呵呵

发表于：2007-04-11 18:46:5217楼得分:0

高手就是高手谢谢
me.keypreview = true
控件的键盘事件之前激活窗体的键盘事件

下一篇：如何根据不同的权限来查询其中的合？（求高手：＂小磊＂帮忙）
上一篇：vb里dao对象如何修改数据表