01-04-20, 06:49 PM
(29-03-20, 04:15 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا الكود يقرأ الاحرف اللاتينية فقط
كود :
شكرا اخى الكريم عى الكود بس لو كان النص مكتوب بلغة غير الانجليزية مثل العربية او مثلا اخليه الصوت بلغة الجهاز مثلا
Try
Dim sapt
sapt = CreateObject("sapi.spvoice")
sapt.speak(TextBox1.Text)
Catch ex As Exception
End Try