كيفية تصميم برنامج لقراءة النصوص الأنجليزية بالفجول البيسك
الشرح بالفيديو
======================
==================
الأكواد الموجودة في الشرح
الخط
Try
Dim dlg As FontDialog = New FontDialog
dlg.Font = RichTextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try
=========================
لون الخط
Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color = RichTextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try
========================
مسح الكل
TextBox1.SelectAll()
TextBox1.Clear()
========================
نسخ
TextBox1.SelectAll()
TextBox1.copy
==================
قص
TextBox1.SelectAll()
TextBox1.cut
==================
لصق
TextBox1.SelectAll()
TextBox1.paste
=================
الأستماع على ترجمة النص
Dim sapt
sapt = CreateObject("sapi.spvoice")
sapt.speak(TextBox1.Text)
End Sub
=====================
0 التعليقات :
إرسال تعليق