如何使用VB6.0设计一个d球的游戏,

加一个picture1,timer1

Option Explicit

Private Const BallR = 200

Private Const BallD = 2 BallR + 1

Private CurX As Single

Private CurY As Single

Private OldX As Single

Private OldY As Single

Private VelX As Single

Private VelY As Single

Private Xmax As Single

Private Ymax As Single

Private Sub DrawBall()

OldX = CurX

OldY = CurY

Mepicture1FillColor = &HEE00CC

Mepicture1FillStyle = 6

Mepicture1Cls

picture1Circle (CurX, CurY), BallR, vbRed

End Sub

Private Sub Form_Load()

Width = (Width - ScaleWidth) + picture1Width

Height = (Height - ScaleHeight) + picture1Height

Xmax = picture1ScaleWidth - BallR

Ymax = picture1ScaleHeight - BallR

Randomize

CurX = Int((Xmax - BallR + 1) Rnd + BallR)

CurY = Int((Ymax - BallR + 1) Rnd + BallR)

OldX = CurX

OldY = CurY

VelX = Int((40 - 20 + 1) Rnd + 20)

VelY = Int((40 - 20 + 1) Rnd + 20)

DrawBall

Timer1Interval = 10

Timer1Enabled = True

End Sub

Private Sub timer1_Timer()

CurX = CurX + VelX

If (CurX > Xmax) Then

CurX = Xmax

VelX = -VelX

' Beep

ElseIf (CurX < BallR) Then

CurX = BallR

VelX = -VelX

' Beep

End If

CurY = CurY + VelY

If (CurY > Ymax) Then

CurY = Ymax

VelY = -VelY

' Beep

ElseIf (CurY < BallR) Then

CurY = BallR

VelY = -VelY

' Beep

End If

DrawBall

End Sub

有两种方法可以找到:

一控制面板-〉添加删除windows组件-〉附件和工具-;点击详细信息－;把游戏画勾－＞确定．

二进入“我的电脑”－;C盘;－－windows文件选择

system32 windows游戏就在这里面有:(不过里面的文件比较多,要慢慢找)

纸牌游戏程序名是solexe

“扫雷”游戏程序名是winmineexe

“三维d球”游戏程序名是PINBALLEXE

“空当接龙”纸牌游戏程序名是freecellexe

红心大战纸牌游戏程序名是msheartsexe

如果第一种用不了,就用第二种,

要是用第二种找的了,你想经常玩的话,你可以把它复制到;桌面;

OK,就是这么简单呵呵多玩电脑你也会边得很棒的咯

以上就是关于如何使用VB6.0设计一个d球的游戏,全部的内容，包括:如何使用VB6.0设计一个d球的游戏,、如何查看电脑自带的扫雷游戏的有代码、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！