+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : كود صغير يقوم بقراءه النص من التكست بوكس (/showthread.php?tid=11102)
كود صغير يقوم بقراءه النص من التكست بوكس - برير مسبل - 07-01-15
Try
Catch ex As Exception
End Try
Dim sapt
sapt = CreateObject("sapi.spvoice")
sapt.speak(TextBox1.Text)
RE: كود صغير يقوم بقراءه النص من التكست بوكس - amma - 10-12-16
هو بيقرأ انجليزي
ازاي نخليه يقرأ فرنساوي
RE: كود صغير يقوم بقراءه النص من التكست بوكس - ridha69 - 25-01-17
فقط اكتب النص بالفرنسية .
RE: كود صغير يقوم بقراءه النص من التكست بوكس - alsouf - 08-08-18
شكرا على الموضوع و لكن يمكن القراءة للغة الانجليزية فقط
اكتب رقم 5 سوف يتم قراءته Five و ليس Cinq
كما انصح نفسي و جميع المبرمجين بتنظيم الشفرات
PHP كود :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim SpeakEnglish
SpeakEnglish = CreateObject("sapi.spvoice")
SpeakEnglish.speak(TextBox1.Text)
Catch ex As Exception
End Try
End Sub
End Class
اليك موضوع كيفية قراءة اللغة الفرنسية
http://vb4arb.com/vb/showthread.php?tid=26031