怎么在VB里 ~~ 载入12个动作的 图片

来源：百度知道 编辑：UC知道 时间：2024/06/17 18:17:40
怎么在VB里 ~~ 载入12个动作的 图片
怎么在VB载入一个12个动作的图片 分12个动作
如 游戏的人物图片
找到了
sum = BitBlt(Pic1.hDC, 0, 0, 35, 50, Pic2.hDC, 0, 0, &HCC0020)
就这个

12个动作是什么？
VB6:

Dim p(12) as stdpicture
p(0)=loadpicture(app.path+"\a.bmp")'相对路径
p(1)=loadpicture("e:\b.bmp")'绝对路径
'Image控件
Image1.picture=p(0)

建立12个Image控件，按顺序导入12张图片即可，可以利用控件的Visible属性控制动作

我想设计一个vb随机显示图片的小程序：首先生成一个能够记录窗体载入次数的记数器，然后根据不同的载入次数生成不同区间的随机数字。
我的程序如下：
Private Sub form7_load()
Image1.Visible = True
Image2.Visible = True
s = s + 1
If s = 1 Then
a = Int(Rnd * 12 + 1)
b = Int(Rnd * 12 + 1)
ElseIf s = 2 Then
a = Int(Rnd * 12 + 13)
b = Int(Rnd * 12 + 13)
ElseIf s = 3 Then
a = Int(Rnd * 12 + 25)
b = Int(Rnd * 12 + 25)
End If
End Sub
Private Sub timer1_timer()
I = I + 1
If I < 10 Then
ss1 = "D:\PM\SY\" + Trim(Str(a)) + ".jpg"
ss2 = "D:\PM\SY\" + Trim(Str(b)) + ".jpg"
Image1.Picture = LoadPicture(ss1