当我的picturebox里的控件大于picturebox的大小时,我想在picturebox控件右侧和下端添加两个滚动条,以实现拖动滚动条就可以调整picturebox中控件的显示。不知该如何实现,请高人指点。

解决方案 »

  1.   

    你的这种问题,,,一般都要求别人给你例子,,所以希望以后你问这种问题的时候,,留下Email,,,
    我们才好给你例子程序,,,
    不然又会在这里帖上一大堆代码,,,你弄起来也麻烦,别人看起来也恼火,,,
    ^_^,,,,,
    一点建议,,不要生气,,,
      

  2.   

    http://community.csdn.net/Expert/topic/3318/3318669.xml?temp=.202984
      

  3.   

    用imgedit控件,不用你做任何处理,代码两行:
    imgedit1.image="e:\mc\test.jpg"
    imgedit1.display
      

  4.   

    这类的问题在CSDN比较多,你可以到VB大栏去搜索“滚动条”
    相信会有这个方面的示例程序。
      

  5.   

    如果在picture控件里加入一个image控件,把图象放在 image里,可以很简单的实现拖动功能的。不过这可能不符合你的要求吧,还是把他写出来吧。
    一个picturebox,一个image,一个vscroll,一个hscroll,但注意image,vscroll,hscroll需以
    picturebox为父(即把他们直接拖到picturebox里)Private Sub HScroll1_Change()
    Image1.Left = -HScroll1.Value
    End Sub
    Private Sub VScroll1_Change()
    Image1.Top = -VScroll1.Value
    End Sub
    Private Sub Form_Load()
    Image1.Left = 0
    Image1.Top = 0
    HScroll1.SmallChange = 300
    VScroll1.SmallChange = 300
    HScroll1.Max = Image1.Width - Picture1.Width
    VScroll1.Max = Image1.Height - Picture1.Height
    HScroll1.Min = 0
    VScroll1.Min = 0
    End Sub
    另外,也可以实现用鼠标拖动显示图片的效果。
    控件 :picturebox,image(以picturebox为父)
    Dim ix As Integer
    Dim iy As Integer
    Private Sub Form_Load()
    Image1.Left = 0
    Image1.Top = 0
    End SubPrivate Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
    ix = X
    iy = Y
    End If
    End Sub
    Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim ipx As Integer
    Dim ipy As Integer
    If Button = vbLeftButton Then
    ipx = Image1.Left + X - ix
    ipy = Image1.Top + Y - iy
    If ipx > 0 Then
    Image1.Left = 0
    Else
    If ipx < Picture1.Width - Image1.Width Then
    ipx = Picture1.Width - Image1.Width
    Else
    Image1.Left = ipx
    End If
    End If
    If ipy > 0 Then
    Image1.Top = 0
    Else
    If ipy < Picture1.Height - Image1.Height Then
    ipy = Picture1.Height - Image1.Height
    Else
    Image1.Top = ipy
    End If
    End If
    End If
    End Sub
    Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.MousePointer = 0
    End Sub