wssayhi

Public rs As ADODB.Recordset ''''''''''集合集 Public conn As New ADODB.Connection '整个数据库连接对象 Public user As String '保存人运行的用户 Public pass As String '保存运行人

Private Sub CommandRate_Click() Dim iRate As Long '在朗读过程中,获得语速,范围在0-100直接,100为最快速度. iReturn = SmartRead_GetSpeed(iRate) '在朗读过程中,改变语速,范围在0-100直接,100为最快