VB桌面时钟软件

Private Sub CommandRate_Click() Dim iRate As Long '在朗读过程中,获得语速,范围在0-100直接,100为最快速度. iReturn = SmartRead_GetSpeed(iRate) '在朗读过程中,改变语速,范围在0-100直接,100为最快速度. iReturn = SmartRead_SetSpeed(100) End Sub Private Sub CommandVolume_Click() Dim iVolume As Long '在朗读过程中,获得音量,范围在0-100之间,100为最高音. iReturn = SmartRead_GetVolume(iVolume) '在朗读过程中,改变音量,范围在0-100之间,100为最高音. iReturn = SmartRead_SetVolume(100) End Sub