| 发表于:2007-01-31 21:42:361楼 得分:0 |
用两个picturebox控件,首先在窗体添加1个picturebox控件picture1,然后在picture1中间用鼠标加载另1个picturebox控件picture2. 在穿体添加剂个hscroll控件于窗体或picture1内,调整picture2的height. 垂直滚动条建议不要与水平滚动条同时使用,会报错或当机. 代码如下: private sub form_load() me.height = 11295 me.width = 15360 picture1.width = me.width - 400 'picture2.height = picture1.height picture2.width = picture1.width * 2.1 '倍率可调整 end sub private sub hscroll1_change() picture2.left = -hscroll1 * 1.4 / 2.8 '倍率需调整 end sub | | |
|