picturebox里装了一个大图片，2048*2048这么大，一个游戏地图，怎么才能通过方向键，使地图移动呢

谢谢各位了（

[[it] 本帖最后由 zfjyyzycl 于 2008-4-3 23:53 编辑 [/it]]

option   explicit   
  dim   x0   as   single   
  dim   y0   as   single   
  dim   a   as   single   
  dim   b   as   single   
   
  private   sub   pic_dragdrop(source   as   control,   x   as   single,   y   as   single)   
        source.move   a   +   x   -   x0,   b   +   y   -   y0   
        source.drag   2   
        source.mousepointer   =   0   
  end   sub   
   
  private   sub   pic_mousedown(button   as   integer,   shift   as   integer,   x   as   single,   y   as   single)   
        pic.mousepointer   =   99   
        pic.drag   1   
        x0   =   x   
        y0   =   y   
        a   =   pic.left   
        b   =   pic.top   
  end   sub

谢谢您的回答，代码运行后 是整个图片框动，和我说的不一样，也许我没有表达清楚，我要的效果是，图片框不动，而是里面的图片移动，效果就像游戏得地图移动一样

可以再加一个容器

元老你的有錯啊，往上了就不能往下

我的代码，供参考：

Public Sub ReSize()
    HScroll1.Max = Image1.Width - Picture1.ScaleWidth
    If Image1.Width < Picture1.ScaleWidth Then
        HScroll1.Visible = False
        Image1.Left = (Picture1.ScaleWidth - Image1.Width) / 2
    Else
        HScroll1.Visible = True
        Image1.Left = Picture1.ScaleLeft
    End If
    VScroll1.Max = Image1.Height - Picture1.ScaleHeight
    If Image1.Height < Picture1.ScaleHeight Then
        VScroll1.Visible = False
        Image1.Top = (Picture1.ScaleHeight - Image1.Height) / 2
    Else
        VScroll1.Visible = True
        Image1.Top = Picture1.ScaleTop
    End If
End Sub

Private Sub Form_Load()
    Image1.Picture = LoadPicture(App.Path & "\地图.jpg")
    ReSize
End Sub

Private Sub HScroll1_Change()
    Image1.Left = -HScroll1.Value
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Static Cx As Long
    Static Cy As Long
    Cx = Image1.Width
    Cy = Image1.Height
    Select Case Button.Key
        Case "Open"
        Case "Save"
        Case "Delete"
        Case "Print"
        Case "Magnify"
            Image1.Width = Cx * 1.25
            Image1.Height = Cy * 1.25
            ReSize
            If Image1.Width > 32767 Or Image1.Height > 32767 Then Toolbar1.Buttons(7).Enabled = False
            If Image1.Width > 5000 And Image1.Height > 5000 Then Toolbar1.Buttons(8).Enabled = True
        Case "Reduce"
            Image1.Width = 0.8 * Cx
            Image1.Height = 0.8 * Cy
            ReSize
            If Image1.Width < 5000 Or Image1.Height < 5000 Then Toolbar1.Buttons(8).Enabled = False
            If Image1.Width < 32767 And Image1.Height < 32767 Then Toolbar1.Buttons(7).Enabled = True
    End Select
End Sub

Private Sub VScroll1_Change()
    Image1.Top = -VScroll1.Value
End Sub

PictureBox做容器，Image放在PictureBox里面

[[it] 本帖最后由 超级隐士 于 2008-5-21 11:42 编辑 [/it]]