VB俄罗斯方块源代码程序及论文 第2页
3.1俄罗斯方块的界面设计
界面是以自己的照片为背景然后一个游戏方框和一个游戏辅助方框,再加上一些游戏所需的开始、暂停、退出等按钮
.2俄罗斯方块的功能的实现
1）Enabled = 0 'False
Height = 480
Left = 4680
MouseIcon = "方块.frx":BF74
MousePointer = 99 'Custom
Picture = "方块.frx":C3B6
ToolTipText = "续继CTRL+J"
Top = 2475
Visible = 0 'False
Width = 480
End
以上的代码来实现"继续"功能
2）Begin VB.Image Image9
Height = 480
Left = 5880
MouseIcon = "方块.frx":B960
MousePointer = 99 'Custom
Picture = "方块.frx":BC6A
ToolTipText = "退出CTRL+X"
Top = 2475
Width = 480
以上的程序代码实现"退出"功能
3）Private Sub Image3_Click()
OPE_Click
End Sub
以上的程序代码实现“开始”功能
4）Private Sub Image8_Click()
Gotog_Click
End Sub
以上的程序代码实现“暂停/继续”功能
5）Private Sub Image7_Click()
ENDG_Click
End Sub
以上的程序代码实现“停止”功能
6）Private Sub Image9_Click()
Exite_Click
End Sub
以上的程序代码实现“退出”功能
7）
Private Sub Image5_Click()
If jB < 40 Then
jB = jB + 1
End If
If jB > 1 Then
Image6.Enabled = True
Image6.Visible = True
减.Enabled = True
减.Visible = True
Else
Image6.Enabled = False
Image6.Visible = False
www.751com.cn
Image5.Enabled = True
Image5.Visible = True
加.Enabled = True
加.Visible = True
Else
Image5.Visible = False
Image5.Enabled = False
加.Enabled = False
加.Visible = False
End If
ENDG_Click
End SubPrivate Sub Image6_Click()
If jB > 1 Then
jB = jB - 1