计算机vb小游戏,希望提供一个vb6.0编写的小游戏,,简单的 最好带解释 谢谢... |
您所在的位置:网站首页 › vb简单小游戏代码 › 计算机vb小游戏,希望提供一个vb6.0编写的小游戏,,简单的 最好带解释 谢谢... |
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 本游戏只要在form1双击进去输入代码就可以了 Option Explicit Private WithEvents Timer1 As Timer Private WithEvents Label1 As Label Dim GFangXiang As Boolean Dim HWB As Single Dim She() As ShenTi Dim X As Long, Y As Long Dim ZhuangTai(23, 23) As Long Private Type ShenTi F As Long X As Long Y As Long End Type Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim C As Long If KeyCode = 27 Then End If KeyCode = 32 Then If Timer1.Enabled = True Then Timer1.Enabled = False Label1.Visible = True Else Timer1.Enabled = True Label1.Visible = False End If End If C = UBound(She) If GFangXiang = True Then Exit Sub Select Case KeyCode Case 37 If She(C).F = 2 Then Exit Sub She(C).F = 0 GFangXiang = True Case 38 If She(C).F = 3 Then Exit Sub She(C).F = 1 GFangXiang = True Case 39 If She(C).F = 0 Then Exit Sub She(C).F = 2 GFangXian |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |