饂飩コーディング

iOSアプリやら、Unityやら、Cocos2dやらごにょごにょ書いております

Accessで日本語を読み上げさせてみる

サイトが引っ越しました。→https://scombu.com

約1秒後に自動的にリダイレクトします。切り替わらない場合はリンクをクリックしてください。

ごめんなさい、丸パクリです
なにに使えるかって、機器設定用の番号読み上げとか入力値チェックで読み上げれば
ダブルチェックできる！

Private Sub txt_test1_AfterUpdate()
    With CreateObject("SAPI.SpVoice")
        Set .voice = .GetVoices.Item(0)
        .Rate = 5
        .Speak (Me.txt_test1.Text)
    End With
End Sub

thom.hateblo.jp