VB中怎么实现这样的功能？

Question

我的笨方法：在picture中放label,其中中放置文字，动态改变.left属性，可以是负值。

Answer 1

?!
根据滚动条修改picture的位置属性就行了呀？·！

Answer 2

假设picture1(简称p1)在picture2(p2)中 垂直滚动条为vsb 水平为hsb
简单举个例子，自己美化啦:sub form_load() '初始化
    vsb.max=(p1.height + 2*300)-p2.height '2*300是留出底和顶边距
    hsb.max=(p1.width + 2* 300)-p2.width  '2*300时留出左右边距
    vsb.value=0
    hsv.value=0
end subsub hsb_change() '水平滚动事件
    p1.left=300 - hsb.value '300是左边距
end subsub vsb_change()
    p1.top=300 - vsb.value  '300是顶边距
end sub

Answer 3

另外，要设定滚动的快慢可设置Scrollbar的smallchange和largechange属性

Answer 4

改滚动条的事件，在产生滚动时，将picturebox2中的控件的位置上移或下移。