让picture控件具有滚动条的功能.doc

方案1：来自百度知道 我不知道你说的什么情况，给你一个带垂直滚动条的示例吧，自己研究。窗体上放一个picture1，再在picture1里放一个image1，picture1的右边放一个Vscroll1，代码如下：Private Sub Command1_Click() Dim Imgw As Long, Imgh As Long Dim S As String  S = H:\JPG素材\01.人物\peo_001.jpg 图片地址  Image1.Visible = False Image1.Stretch = False  获取图像的真实尺寸 Image1.Picture = LoadPicture(S) Imgw = Image1.Width Imgh = Image1.Height  Image1.Stretch = True  从新调整图像大小 If Imgw Picture1.Width Then Image1.Width = Picture1.Width Image1.Height = Imgh / Imgw * Image1.Width End If  调整图像的坐标 Image1.Top = 0 Image1.Left = Picture1.Width / 2 - Image1.Width / 2  设置滚动条 If Image1.Height = Picture1.Height Then VScroll1.Visible = False Else VScroll1.Max = 100 VScroll1.Min = 0 VScroll1.LargeChange = 20 VScroll1.SmallChange = 5 VScroll1.Value = 0 End If Image1.Visible = TrueEnd SubPrivate Sub Vscroll1_scroll() 拉到滚动条 Image1.Top = -(VScroll1.Value / VScroll1.Max) * (Image1.Height - Picture1.Height)End Sub 方案2：来自csdn 下面的代码示例向?PictureBox?控件添加水平和垂直滚动条，并将一个?Image?加载到该控件的?DoubleClick?事件的图片框中。您可在任何时候双击该图片框并加载新图像。如果图像比控件大，则将显示滚动条，以便您可以滚动查看图像的剩余部分。该示例假定已在?Form?上创建了一个?PictureBox（其两边分别停靠有?VScrollBar?和?HScrollBar）。它还假定已添加对?System.Drawing?命名空间的引用。请确保将?HandleScroll?方法同时设置为?VScrollBar?和?HScrollBar?的?Scroll?事件处理程序委托。有关可扩展此示例的其他代码，请参见?LargeChange、SmallChange、Maximum、Minimum?或?Value?成员。您可考虑基于滚动条的父控件的属性来设置滚动条的属性。例如，您可向该示例添加一种方法，将?Maximum?值设置为等于分配给?PictureBox?的?Image?的?Height?或?Width。将?LargeChange?值设置为等于?PictureBox?的高度或宽度（减去滚动条的高度或宽度）。这可防止用户滚动出图像的边缘，并且?LargeChange?值将只使图像的可查看区域移动与图片框中的显示区域相同的距离。using?System;using?System.Drawing;using?System.Collections;using?System.ComponentModel;using?System.Windows.Forms;namespace?Scrollbar{????public?class?Form1?:??Form???{??????private??OpenFileDialog?openFileDialog1;??????private??PictureBox?pictureBox1;??????private??VScrollBar?vScrollBar1;??????private