我试试

用窗体的 Form_Load 事件设置比例模型，在父图片框中调整子图片框的大小，水平、垂直滚动条将定位并调整它们的大小，然后加载位图图形。将下列代码添加到窗体的 Form_Load 事件过程中：

Private Sub Form_Load()   '设置 ScaleMode 为像素。   Form1.ScaleMode = vbPixels   Picture1.ScaleMode = vbPixels   '将 Autosize 设置为 True，以使 Picture2 的边界   '扩展到实际的位图大小。   Picture2.AutoSize = True   '将每个图片框的 BorderStyle 属性设置为 None。   Picture1.BorderStyle = 0   Picture2.BorderStyle = 0   '加载位图。   Picture2.Picture = _   LoadPicture("c:\Windows\Winlogo.bmp")   '初始化两个图片框的位置。   Picture1.Move 0, 0, ScaleWidth - VScroll1.Width, _    ScaleHeight - HScroll1.Height   Picture2.Move 0, 0   '将水平滚动条定位。   HScroll1.Top = Picture1.Height   HScroll1.Left = 0   HScroll1.Width = Picture1.Width   '将垂直滚动条定位。   VScroll1.Top = 0   VScroll1.Left = Picture1.Width   VScroll1.Height = Picture1.Height   '设置滚动条的 Max 属性。   HScroll1.Max = Picture2.Width - Picture1.Width   VScroll1.Max = Picture2.Height - Picture1.Height   '判断子图片框是否将充满屏幕。   '若如此，则无需使用滚动条。   VScroll1.Visible = (Picture1.Height < _    Picture2.Height)   HScroll1.Visible = (Picture1.Width < _    Picture2.Width)End Sub

水平和垂直滚动条的 Change 事件用来在父图片框中上、下、左、右移动子图片框。请将下列代码添加到两个滚动条控件的 Change 事件中：

Private Sub HScroll1_Change()   Picture2.Left = -HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()   Picture2.Top = -VScroll1.ValueEnd Sub

将子图片框的 Left 和 Top 属性分别设置成水平和垂直滚动条数值的负值，这样，当上、下、左、右滚动时，图形可正确地移动

：（ 还是不行

纳闷ing

Picture1.Move 0, 0, ScaleWidth - VScroll1.Width, _ ScaleHeight - HScroll1.Height

这是定位图片框的位置,ScaleWidth - VScroll1.Width, _ ScaleHeight - HScroll1.Height

怎么解释啊?

防止图片有一部分被滚动条遮住。

版主用的方法是软件实现的绑定吧。并不是滚动条能绑定到图片框上吧。

我是初学者，请多指教。