vb6.0图形控件
发布网友
发布时间：2022-04-25 12:19
共1个回答
热心网友
时间：2024-06-09 11:49
提供个思路给你 我以前做过这个 不过现在找不到了 不好意思首先在添加两个picturebox把picture2放到picture1的里面然后在picture1的周围添加两个滚动条 在form的load事件里面把他们的visible属性设置为false。并且使用picture2.picture=loadpicture("这里填写图片的路径")在加载图片。使picture2.left=0 picture.top=0然后试水平滚动条的max属性=picture2.width-picture1.width 使垂直滚动条的max属性=picture2.height-picture1.height 当然你可以设置只有这两个值都大于0的时候滚动条的visible属性才为true下面在滚动条的scroll属性里面设置 picture1.left=-VScroll1.value picture1.top=-VScroll1.value 就可以了！
