Question

vb picture加载图片指定位置

我现在在做一个小游戏，需要做到地图的卷动，但是我试过用PaintPicture，要么就是没反应，要么就是移动后角色（另一个picturebox框）在上面走过时会改变图像（好像是刷新了一样）。我用了.Refresh后发现没有反应
有什么好的方法加载图片中指定部分的图片吗？
我是说加载一张图片的指定位置 如从x70y15开始截取一个长100宽50的图形

=================问题已经解决=================
我是直接移动picturebox框……
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Answer 1

VB可PaintPicture 方法在对象上绘制图形。

PaintPicture 方法

用以在 Form, PictureBox 或 Printer
上绘制图形文件（.bmp、.wmf、.emf、.cur、.ico或 .dib）的内容。

以下代码是将图片显示于窗体指定位置，并以指定尺寸显示

Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.PaintPicture LoadPicture("c:\27548.jpg"), 800, 400, 4000, 3000
End Sub

Answer 2

这个要用语句：LoadPictrue("文件的路径及文件名")
如要打开D：下的AA文件夹的A1.jpg图片，就可以用：
picturebox1.Picture=LoadPictrue("D:\AA\A1.jpg")

追问

我是说加载一张图片的指定位置 如从x70y15开始截取一个长100宽50的图形

Answer 3

Private Sub Form_Load()
'请试先往PictureBox中加入图片也可以用LoasPicture动态加载。
Me.AutoRedraw = True
Me.ScaleMode = 3
Picture1.Visible = False
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3
Me.PaintPicture Picture1.Image, 70, 15, 100, 50
'请得用在Mouse_Move\Up\down\Timer中时，这里要加一句me.Refresh
'用VB自带的过程做RPG游戏不怎么好，必定没有半透明处理。我是放弃了。
End Sub

追问

有改变图片的现象，代码如上，我发过了

追答

你把所有的图片都放到PictureBox中这样还减少了文件名写错。
地图的卷动，请放到Timer中PainPicture并Refresh
,你也可以放到有Paint事件的控件中。

Answer 4

就是用paintpicture啊 另一个picturebox要用 .cls autoredraw=true

object.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2

按照你的需求 就是 x2=70 y2=15 width2=100 height2=50

追问

有改变图像的现象，代码：
xx='截取的起始横坐标
yy='截取的起始纵坐标
ww = Me.ScaleWidth '要截取的宽度
hh =Me.Scaleheight '要截取的高度
PicGame.Cls
PicGame.PaintPicture PicGame.Picture, 0, 0, ww, hh, xx, yy, ww, hh

Answer 5

da

追问

？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？