有没人会用scrollwindow！！高手给你跪下了！！

Question

scrollwindow 到底咋用！！我在百度搜了好久也没找着，
高手能不用vb写个列子！！
谢谢啦！！
再次说声：谢谢！！

Answer 1

VB声明】
  Private Declare Function ScrollWindow Lib "user32" Alias "ScrollWindow" (ByVal hWnd As Long, ByVal XAmount As Long, ByVal YAmount As Long, lpRect As RECT, lpClipRect As RECT) As Long【说明】
  滚动窗口客户区的全部或一部分 【返回值】
  Long，非零表示成功，零表示失败。会设置GetLastError 【参数表】
  hWnd -----------  Long，待滚动窗口的句柄  XAmount --------  Long，水平滚动的距离。正值向右滚动，负值向左滚动  YAmount --------  Long，垂直滚动的距离。正值向下滚动，负值向上滚动  lpRect ---------  RECT，用客户区坐标表示的一个矩形，它定义了客户区要滚动的一个部分。如设为NULL，则滚动整个客户区。在NULL的情况下，子窗口和控件的位置也会随同任何无效区域移动。否则，子窗口和无效区域不会一起移动。因此，在滚动之前，如指定了lpRect，一个明智的做法是先调用UpdateWindow函数  lpClipRect -----  RECT，指定

Answer 2

Option Explicit
'一个按钮，一个picturebox（预先载入一幅图片）Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End TypePrivate Declare Function ScrollWindow Lib "user32" (ByVal hWnd As Long, ByVal XAmount As Long, ByVal YAmount As Long, lpRect As Any, lpClipRect As Any) As LongPrivate Sub Command1_Click()
    ScrollWindow Picture1.hWnd, 10, 10, ByVal 0&, ByVal 0&
End Sub

Answer 3

放两个图片框，嵌套着，外面是容器，里面 Load 个图片。显然图片比外面的图片框大，然后放个滚动条，用 PictureBoxChild.Move 来移动，代替 ScrollWindow
不用 ScrollWindow 的原因是，一般 ScrollWindow 作为滚动消息的回调处理，麻烦。