陈依如吧 关注:5贴子:51
  • 2回复贴,共1

我的VB...你们别乱拿哦

收藏回复

  • 61.240.219.*
Dim v As Single, a As Single
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
If Timer1.Enabled = True Then Command1.Caption = "开始" Else Command1.Caption = "暂停"
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Shape1.Top = 3000
End Sub

Private Sub Form_Load()
VScroll1.Value = 10
a = VScroll1.Value
v = ((2 * 3700) / a) ^ 0.5 * a
End Sub

Private Sub Timer1_Timer()
v = v - a
Shape1.Top = Shape1.Top - v
If Shape1.Top >= 3000 Then
Shape1.Top = 3000
v = ((2 * 3700) / a) ^ 0.5 * a
End If
End Sub

Private Sub VScroll1_Change()
a = VScroll1.Value
End Sub



回复
1楼2008-04-17 22:10
    NC...

    还不是我给你


    回复
    禁言 |2楼2008-05-21 15:33
      • 218.78.247.*
      什么东西。。。。???


      回复
      3楼2008-05-23 12:01