前面曾提到，当图片大于图片框时，常常使用滚动条来实现在图片框中滚动浏.doc

前面曾提到，当图片大于图片框时，常常使用滚动条来实现在图片框中滚动浏览图片，下面用一个实例来演示。 实例 滚动显示图片 在该实例中，可以通过垂直滚动条与水平滚动条实现图片在图片框中滚动。 设计思想是：在应用程序中使用两个图片框，第一个称为父图片框控件，第二个称为子图片框控件。将子图片框放置在父图片框中，再将要显示的图片放在子图片框中，然后，利用垂直滚动条控件和水平滚动条控件来控制内图片框在外图片框中的位置，这样，看上去就像是图片在图片框中滚动了。 在窗体上放置一个图片框控件、一个垂直滚动条和一个水平滚动条，再在图片框控件中放置另一个图片框控件，如图1所示。各对象的属性设置如表1所示。 图1 实的用户界面 表1 实例中各对象的属性设置 对象属性值窗体Caption滚动图片图片框1名称Pic1图片框2名称Pic2AutoSizeTrueBorderStyle0PictureC:\windows\安装程序.bmpLeft0Top0水平滚动条名称hscroll1Min0LargeChange200SmallChange100垂直滚动条名称vscroll1Min0LargeChange200SmallChange100双击窗体，打开“代码”窗口，将下列代码添加到Form_Load事件过程中： Private Sub Form_Load() HScroll1.Max = Picture2.Width - Picture1.Width VScroll1.Max = Picture2.Height - Picture1.Height End Sub 这段代码用来在窗体装载时设置滚动条的Max属性，这主要是用来保证滚动条的值到最大时，图片正好滚动到它的边缘。 将下列代码添加到Vscroll1_Change事件过程中： Private Sub Vscroll1_Change() Picture2.Top = -VScroll1.Value End Sub 将下列代码添加到Hscroll1_Change事件过程中： Private Sub Hscroll1_Change() Picture2.Left = -HScroll1.Value End Sub 运行该程序，单击垂直滚动条的滚动箭头，则图片就会在图片框中垂直滚动。单击水平滚动条的滚动箭头，则图片就会在图片框中水平滚动。如图2所示的是使用滚动条滚动图片后的效果。 图2 使用滚动条滚动图片的效果