VB程序:字母从窗体下落,按键盘上对应字母后,它消失,这个打字游戏的程序怎么编写?

[复制链接]
查看11 | 回复2 | 2011-11-24 17:03:10 | 显示全部楼层 |阅读模式
一个Label1,一个Timer控件 Dim nDownspeed As Integer '下落速度Dim sString As Integer
'下落的字符Private Sub huanyuan()RandomizeWith Label1
.AutoSize = True
.Left = Int(Rnd * (Me.Width - Label1.Width))
.Top = 0End WithsString = 97 + Int(Rnd * 26)Label1.Caption = Chr(sString)End SubPrivate Sub Form_KeyPress(...
回复

使用道具 举报

千问 | 2011-11-24 17:03:10 | 显示全部楼层
这个应该挺好玩的感觉...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行