共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：图片模拟按钮问题
1楼
擎天柱 发表于：2009/8/1 10:18:00用图片（picturebox）模拟按钮，如果图片尺寸过小，使用过程中，下部有可能会显示异常。
此主题相关图片如下：无命名.png
此主题相关图片如下：无命名.png2楼
yangming 发表于：2009/8/1 11:31:00没看明白你的意思
3楼
擎天柱 发表于：2009/8/1 12:19:00这个正常
此主题相关图片如下：无命名1.png
此主题相关图片如下：无命名1.png4楼
chenwuwenyu 发表于：2009/8/1 13:13:00这个用ps修改图片大小可以吗
5楼
擎天柱 发表于：2009/8/1 13:20:00图片是原始大小的，未缩放
6楼
chenwuwenyu 发表于：2009/8/1 13:38:00你窗口要用多大的图片，ps把图片大小改一下就好了呀，不需要缩放的，
你是把图片放在picturebox
不知道我理解的对不？
7楼
擎天柱 发表于：2009/8/1 14:02:007*50，PNG,431字节
7*50，PNG，437字节
7*50，PNG，437字节
8楼
chenwuwenyu 发表于：2009/8/1 16:53:00楼主这个按钮是不是实现表可以收缩呢？怎么实现的呢，请教一下
9楼
擎天柱 发表于：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编辑过]
10楼
擎天柱 发表于：2009/8/3 14:51:00发现一个问题，窗口处于独立模式时，窗体闪动厉害（以前有人提过）。
分别附上收缩前后的截图。
大家注意图片的最上面部分，明显有色差（闪动时截下的）。
此主题相关图片如下：jietu1.jpg
此主题相关图片如下：jietu.jpg
共10 条记录, 每页显示 10 条, 页签:
[1]