'****************************************************************************
' ：） 人人为我，我为人人 ：）
'枕善居汉化收藏整理
'发布日期：05/07/08
'描 述：PictureClip控件示例
'网 站：http://www.mndsoft.com/
'e-mail ：mnd@mndsoft.com
'OICQ ：88382850
'****************************************************************************
Dim I As Integer
Private Sub Form_Load()
PictureClip1.GenerateMask
Timer1_Timer
End Sub
Private Sub Timer1_Timer()
Me.Cls
Me.PaintPicture PictureClip1.GetCell(I, True), 0, 0
Me.PaintPicture PictureClip1.GetCell(I), 32, 0
Me.PaintPicture PictureClip1.GetCell(I, True), 80, 70, , , , , , , vbMergePaint
Me.PaintPicture PictureClip1.GetCell(I), 80, 70, , , , , , , vbSrcAnd
I = I + 1
If I = 8 Then I = 0
End Sub
模仿2d游戏人物移动效果
4星 · 超过85%的资源 需积分: 33 193 浏览量
2008-10-27
13:58:48
上传
评论
收藏 6KB RAR 举报 
2维人物移动.rar （7个子文件） 
2维人物移动 
Form1.frm 3KB Form1.frx 9KB PictureClip.ctx 250B prjPicClip.vbp 899B PictureClip.ctl 6KB prjPicClip.vbw 111B
原代码.txt 828B
评论2