- 1、本文档共19页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
移动拼图游戏vb代码
移动拼图游戏vb代码
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As String, jb As Integer
Private Sub End_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Integer, a As Integer, b As Integer
For i = 0 To 7
Image1(i).Picture = LoadPicture(C:\Users\thinkpad\Desktop\移动拼图\ (i + 1) .jpg)
Label1(i).FontSize = 110
Next i
Randomize
End Sub
Private Sub Image1_Click(Index As Integer)
If Index = 8 Then
If Image1(5).Picture = False Then
Image2.Picture = Image1(8).Picture
Image1(8).Picture = Image1(5).Picture
Image1(5).Picture = Image2.Picture
e = Label1(8).Caption
Label1(8).Caption = Label1(5).Caption
Label1(5) = e
Text3.Text = Val(Text3.Text) + 1
Timer2.Enabled = True
Else
If Image1(7).Picture = False Then
Image2.Picture = Image1(8).Picture
Image1(8).Picture = Image1(7).Picture
Image1(7).Picture = Image2.Picture
e = Label1(8).Caption
Label1(8).Caption = Label1(7).Caption
Label1(7) = e
Text3.Text = Val(Text3.Text) + 1
Timer2.Enabled = True
End If
End If
End If
If Index = 6 Then
If Image1(3).Picture = False Then
Image2.Picture = Image1(6).Picture
Image1(6).Picture = Image1(3).Picture
Image1(3).Picture = Image2.Picture
e = Label1(6).Caption
Label1(6).Caption = Label1(3).Caption
Label1(3) = e
Text3.Text = Val(Text3.Text) + 1
Timer2.Enabled = True
Else
If Image1(7).Picture = False Then
Image2.Picture = Image1(6).Picture
Image1(6).Picture = Image1(7).Picture
Image1(7).Picture = Image2.Picture
e = Label1(6).Caption
Label1(6).Caption = Label1(7).Caption
Label1(7) = e
Text3.Text = Val(Tex
您可能关注的文档
- 点评第一经济地理特征.doc
- 点名系统课程.doc
- 热烫注意事项.doc
- 煤航介绍.doc
- 爱心便当的策划制作.doc
- 物业管理公司之行为纲要.doc
- 献给新生.doc
- 王子X王子·攻略.doc
- 王淇老师《幸福家庭与亲子教育》演讲稿.doc
- 环境英语.doc
- 《GB/T 12668.7202-2024调速电气传动系统 第7-202部分:电气传动系统的通用接口和使用规范 2型规范说明》.pdf
- 《GB/T 15692-2024制药机械 术语》.pdf
- GB/T 15692-2024制药机械 术语.pdf
- 中国国家标准 GB/T 15692-2024制药机械 术语.pdf
- GB/T 19633.1-2024最终灭菌医疗器械包装 第1部分:材料、无菌屏障系统和包装系统的要求.pdf
- 中国国家标准 GB/T 19633.1-2024最终灭菌医疗器械包装 第1部分:材料、无菌屏障系统和包装系统的要求.pdf
- 《GB/T 19633.1-2024最终灭菌医疗器械包装 第1部分:材料、无菌屏障系统和包装系统的要求》.pdf
- 《GB/T 30117.1-2024非相干光产品的光生物安全 第1部分:通用要求》.pdf
- 《GB/T 33348-2024高压直流输电用电压源换流器阀 电气试验》.pdf
- GB/T 33348-2024高压直流输电用电压源换流器阀 电气试验.pdf
文档评论(0)