Option Compare Database
Dim xl As Object
Private Sub Command0_Click()
'需要引用Excel object
xl.Speech.Speak (文本0.Value)
End Sub
Private Sub Form_Open(Cancel As Integer)
Set xl = New Excel.Application
End Sub
Private Sub 文本0_KeyDown(KeyCode As Integer, Shift As Integer)
xl.Speech.Speak (Chr(KeyCode))
End Sub
