السلام عليكم ورحمة الله وبركاته
انشاء مفكرة بسيطة
اولا : الاشياء المطلوبة.
6 ازرار (button) واحد مربع نص(button)
ثانيا : طريقة وضعها.
انت تختار الامكان التي تعجبك ولاكن في البداية انا انصحك ان تضعها كما هو موضح في الصورة
الثا : تصميم الازرار والمربعات النصوص.
اولا اضغط ضغطة واحدة علي الزر او مربع النص الذي تريد التعديل عليه ثم تذهب الي الخيار (properties) وتذهب الي الخيار text وتغير الاسم كما تشاء وانا انصحك ان يكون كما هو موضح في الصورة العلوية ومن الخيار font يمكنك ان تعدل علي الخط وشكله كما تشاء وانا انصحك بان يكون Arial, 9.75pt, style=Bold وهذا الخط الذي انا افضله.
ويمكن ان تعدل علي النافذة (form) كما تشاء واذا كنت تريد ان تضع ايقونة فأنا اننصحك بهاذا الموقع اضغط هنا
اما بانسبة لي مربع النصوص (text box) في يمكنك ان تجعل الخط Arial, 11.25pt, style=Bold.
رابعا : الأكواد.
Try
Dim dlg As FontDialog = New FontDialog
dlg.Font =TextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
TextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try
Color :
Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color =TextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
TextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try
Copy:
TextBox1.Copy()
Cut:
TextBox1.Cut()
Paste:
TextBox1.Paste()
Exit :
End
Select All:
TextBox1.SelectAll()
كود الفتاة الناطقه
dim sapt
sapt = createobject("sapi.spvoice")
sapt.speak("اكتب ما تريده هنا")
خامسا : تجربة البرنامج
ويمكنك تجربته عن طريق الضغط علي زر start كما هو موضح في الصورة
وهكذا يكون لديك مفكرة بسيطة وشكرا لكم ولحسن قراتكم
الكاتب : محمود احمد
للتواصل
facebook :
https://www.facebook.com/mahmoud.ahmad.980967
youtube :
https://www.youtube.com/channel/UCibGYnyJzB-Yy849HJuKjsA
و عليكم السلام ورحمت الله وبركاته
لا يوجد تعليقات
أضف تعليق