已有21人关注
怎么用滚动条?
发表在VB答疑区 2010-10-17
是否精华
版块置顶:
老师好:
    请帮我详细解释下,怎么给picture里面加上滚动条。用来浏览大图。(就用工具箱里的控件),加上代码,最好能注释一下。谢谢。
分享到:
精彩评论 4
vbsoldier
学分:0 LV1
2010-10-18
沙发
您好,这个实例需要使用两个PictureBox控件,例如Picture1和Picture2。将Picture1作为一个容器,将Picture2放置于Picture1,内,并且Picture2的Left以及top属性值为0。另外,添加一个横向滚动条控件HScroll1和纵向滚动条VScroll1。用这两个滚动条调整图片的显示位置。

下面是代码部分
在窗体Load事件中:
Picture2.Picture = LoadPicture("图片路径")'加载图片
VScroll1.Min = 0'设置纵向滚动条最小值
HScroll1.Min = 0'设置横向滚动条最小值
VScroll1.Max = Picture2.Height - Picture1.Height'设置纵向滚动条最大值
HScroll1.Max = Picture2.Width - Picture1.Width'设置横向滚动条最大值
If HScroll1.Max 〈 0 Then HScroll1.Enabled = False'当横向滚动条最大值小于0时,隐藏横向滚动条
If VScroll1.Max 〈 0 Then VScroll1.Enabled = False'当纵向滚动条最大值小于0时,隐藏纵向滚动条


垂直滚动条Change事件中代码:
Private Sub VScroll1-Change()
 Picture2.Top = -VScroll1.Value'调整图片的顶端左边
End Sub 

横向滚动条Change事件中代码:
Private Sub HScroll1-Change()
Picture2.Left = -HScroll1.Value'调整图片的左端坐标
End Sub
358334135@qq.com
学分:0 LV1
TA的每日心情
开心
2023-10-24 17:02:46
2010-10-20
板凳
老师好:
    为什么那个图片还是显示不完呢。只能显示大概比picture1大两倍左右的图片,我把两个picture的autosize都改成true了还是一样。picture2的改了。picture1的没改,也是一样的。都只能显示大概picture2、也就是容器那个picture的两倍大小左右。请帮忙解决一下。谢谢!
vbsoldier
学分:0 LV1
2010-10-22
地板
您好,最好可以将你编写的源程序以附件的形式传过来,便于查找问题所在。
358334135@qq.com
学分:0 LV1
TA的每日心情
开心
2023-10-24 17:02:46
2010-10-28
4L
老师好: 
       图片的浏览我已经搞定了。但是只能看一张图片,我想添加一个按钮,用来加载图片,自己写代码。应该要怎么做。请指点。
首页上一页 1 下一页尾页 4 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照