VB俄罗斯方块源代码程序及论文 第2页

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

上一页  [1] [2] [3] 下一页

VB俄罗斯方块源代码程序及论文 第2页下载如图片无法显示或论文不完整，请联系qq752018766