附錄.bas

来自「Visual Basic与语音辨识 让电脑听话 (源码) 台湾松岗 http:/」· BAS 代码 · 共 20 行

Attribute VB_Name = "Module1"
Option Explicit
Public time As Integer

Private Sub Timer1_Timer()
If time >= 3000 And time <= 4500 Then
time = time + 100
  Form1.Image1.Move 3500, 4500, time, time
End If
If time > 4500 Then
time = time + 100
  Form1.Image1.Move 3500, 4500, 9000 - time, 9000 - time
If time > 6000 Then
  time = 3000
End If
End If


End Sub
Private Sub Command4_Click() '