最好说的具体点.谢了!!

先创建一个新工程，然后在窗体上绘制两个图片框、一个水平滚动条和一个垂直滚动条。

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

Private Sub Form_Resize() '调整窗体大小时，改变 Picture1 '的尺寸。 Picture1.Height = Form1.Height Picture1.Width = Form1.Width '重新初始化图片和滚动条的 '位置。 } 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 HScroll1.Max = Picture2.Width - Picture1.Width VScroll1.Max = Picture2.Height - Picture1.Width '检查是否需要滚动条。 VScroll1.Visible = (Picture1.Height < _ Picture2.Height) HScroll1.Visible = (Picture1.Width < _ Picture2.Width) End Sub

[此贴子已经被静夜思于2004-04-21 18:53:07编辑过]

3KU

没办法，贴上去就一行，没有回车，所以程序看不全。不好意思

没办法，贴上去就一行，没有回车，所以程序看不全。不好意思

----------------------------------------------
没有做不到的，只有想不到的！

我复制了你的帖子，
可以啊

换行用“SHIFT”+“ENTER”

Private Sub Form_Resize() '调整窗体大小时，改变 Picture1 '的尺寸。 Picture1.Height = Form1.Height Picture1.Width = Form1.Width '重新初始化图片和滚动条的 '位置。 } 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 HScroll1.Max = Picture2.Width - Picture1.Width VScroll1.Max = Picture2.Height - Picture1.Width '检查是否需要滚动条。 VScroll1.Visible = (Picture1.Height < _ Picture2.Height) HScroll1.Visible = (Picture1.Width < _ Picture2.Width) End Sub

我再粘贴一次

Private Sub Form_Resize() '调整窗体大小时，改变 Picture1 '的尺寸。 Picture1.Height = Form1.Height Picture1.Width = Form1.Width '重新初始化图片和滚动条的 '位置。 } 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 HScroll1.Max = Picture2.Width - Picture1.Width VScroll1.Max = Picture2.Height - Picture1.Width '检查是否需要滚动条。 VScroll1.Visible = (Picture1.Height < _ Picture2.Height) HScroll1.Visible = (Picture1.Width < _ Picture2.Width) End Sub