- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 图片模拟按钮问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3769)
-- 发布时间：2009/8/1 10:18:00
-- 图片模拟按钮问题
用图片（picturebox）模拟按钮，如果图片尺寸过小，使用过程中，下部有可能会显示异常。
此主题相关图片如下：无命名.png
-- 发布时间：2009/8/1 11:31:00
--
没看明白你的意思
-- 发布时间：2009/8/1 12:19:00
--
这个正常
此主题相关图片如下：无命名1.png
-- 发布时间：2009/8/1 13:13:00
--
这个用ps修改图片大小可以吗
-- 发布时间：2009/8/1 13:20:00
--
图片是原始大小的，未缩放
-- 发布时间：2009/8/1 13:38:00
--
你窗口要用多大的图片，ps把图片大小改一下就好了呀，不需要缩放的，
你是把图片放在picturebox
不知道我理解的对不？
-- 发布时间：2009/8/1 14:02:00
--
7*50，PNG,431字节
7*50，PNG，437字节
-- 发布时间：2009/8/1 16:53:00
--
楼主这个按钮是不是实现表可以收缩呢？怎么实现的呢，请教一下
-- 发布时间：2009/8/3 12:05:00
--
以下是引用chenwuwenyu在2009-8-1 16:53:00的发言：
楼主这个按钮是不是实现表可以收缩呢？怎么实现的呢，请教一下
楼主这个按钮是不是实现表可以收缩呢？怎么实现的呢，请教一下
建立两个图片档：假设方向向左为false.png,方向向右为true.png
先在窗体上放一个分区面板splitcontainer1（方向为左右），在右侧分区的左侧放置一个picturebox控件image1,在picturebox属性_图片 里填入图片路径，就是刚才的false.png图片。
在picturebox(image1)控件click事件里加入以下代码：
Dim sp As WinForm.SplitContainer
sp = e.Form.Controls("SplitContainer1")
sp.Panel1Collapsed = Not sp.Panel1Collapsed
Dim pbx AS WinForm.PictureBox
pbx = Forms("窗口1").Controls("Image1")
pbx.Image = GetImage(sp.Panel1Collapsed & ".png")
以上代码实现收缩功能
补充：图片位置设定：
位置：左0
锚定：LEFT
停靠：NONE
[此贴子已经被作者于2009-8-3 14:19:57编辑过]
-- 发布时间：2009/8/3 14:51:00
--
发现一个问题，窗口处于独立模式时，窗体闪动厉害（以前有人提过）。
分别附上收缩前后的截图。
大家注意图片的最上面部分，明显有色差（闪动时截下的）。
此主题相关图片如下：jietu1.jpg
此主题相关图片如下：jietu.jpg