code for read text vb.net
كود لقراءة النص الموجود داخل التكست فيجول بيسك دوت نيت
ملاحظة : هذا الكود يعمل فقط مع اللغة الانجليزية فقط
اولا : نقوم بانشاء تكست بوكس وليكن اسمه textbox1
ثانياً : نقوم بانشاء زر وليكن اسمه كما تريد
نقوم بكتابه الكود التالي داخل الحدث click للزر
Dim sapt If Textbox1.Text <> "" Then sapt = CreateObject("sapi.spvoice") sapt.speak(Textbox1.Text) Else sapt = CreateObject("sapi.spvoice") sapt.speak("you have not typed anything") End If
يقوم الكود في البدايه بالتحقق ان كان الـــ textbox1 يحتوي فعلاً على نص ام لا فان كان هنالك نص فانه يقوم بقراءته وكما ذكرت سابقا فانه لا يدعم اللغة العربية فقط اللغة الانجليزية
وان لم يكن هنالك نص فانه يقرأ الجملة التالية you have not typed anything اي انه لم يتم كتابه اي شيء