计算机vb小游戏,vb6做的游戏,用vb做简单小游戏代码,vb小游戏程序代码,vb游戏,vb怎么编写,vb有什么用：小游戏vb【VB编写小游戏】-南开游戏网...

小游戏vb【VB编写小游戏】

2020-11-20 05:12:57

广告

VB编写小游戏

窗体放两个Label控件，一个Timer控件：

Dim n As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyUp

If Label1.Top > 0 Then Label1.Top = Label1.Top - 50

Case vbKeyDown

If Label1.Top < ScaleHeight - Label1.Height Then Label1.Top = Label1.Top 50

Case vbKeyLeft

If Label1.Left > 0 Then Label1.Left = Label1.Left - 50

Case vbKeyRight

If Label1.Left < ScaleWidth - Label1.Width Then Label1.Left = Label1.Left 50

End Select

Call check

End Sub

Private Sub check()

If Abs(Label1.Top - Label2.Top) <= 50 And Abs(Label1.Left - Label2.Left) <= 50 Then

n = n 1

Label2.Move Rnd * ScaleWidth, Rnd * ScaleHeight

End If

End Sub

Private Sub Form_Load()

KeyPreview = True

Randomize

With Label1

.Caption = ""

.BackColor = vbWhite

.Move (ScaleWidth - .Width) / 2, (ScaleHeight - .Height) / 2, 500, 500

End With

With Label2

.Caption = ""

.BackColor = vbYellow

.Move Rnd * ScaleWidth, Rnd * ScaleHeight, 500, 500

End With

Timer1.Interval = 60000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

MsgBox "这局了"

您可能还会对下面的文章感兴趣：