admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：unionpay日本での限度額)

1个picture控件，一个label控件，一个time控件就完全足够了，呵呵

Public nn As Long

Public n As Long

Public x, y As Long

Private Sub Form_Load()

nn = 0

n = 1

''Picture1(i).Picture = "图片地址"

Picture1(i).Width = 300

Picture1(i).Height = 300

al = 100

d = True

n = 0

Picture1(0).Visible = False

End Sub

Private Sub Picture1_Click(Index As Integer)

nn = nn + 1

Unload Picture1(Index)

n = nn

End Sub

Private Sub Timer1_Timer()

Randomize

x = Int(( - 300 + 1) * Rnd + 300)

y = Int(( - 1800 + 1) * Rnd + 1000)

Load Picture1(n)

Picture1(n).Left = x

Picture1(n).Top = y

Picture1(n).Visible = True

n = n + 1

if nn>=200 then

=false

''执行语句

end if

End Sub

打窗口上随机出现的砖块游戏


本文标签： 日本 控件 砖块 地址 语句

版权声明：本文标题：vb游戏代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711534708a598766.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。