Create a simple notebook
First: the required stuff.
6 buttons (button) and one text box (button)
Second: the method developed.
You choose possible that you like and I did in the beginning, I advise you to put it as shown in the picture
Eighth: the design of buttons and text boxes.
First Click one click on the button or the text that you want to modify it and then go to the option box (properties) and go to the option text and change the name as you like, and I advise you to be as shown in the top image and font option can be adjusted on-line and shape as you like, and I I advise you to be Arial, 9.75pt, style = Bold and this line that I'm I prefer.
It can be adjusted on the window (form) as you like and if you want to put the icon I Annsahk Bhama Site Click here
But its outlook me square texts (text box) You can make it in the Arial font, 11.25pt, style = Bold.
Fourth: Coded.
Font:
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 ()
On the girl speaking
dim sapt
sapt = createobject ("sapi.spvoice")
sapt.speak ("Write what you want here.")
Fifth: the program experience
And you can try it by pressing the start button, as shown in the picture
Thus you have a notebook and a simple thank you
Author: Mahmoud Ahmed
To communicate
facebook:
https://www.facebook.com/mahmoud.ahmad.980967
youtube:
https://www.youtube.com/channel/UCibGYnyJzB-Yy849HJuKjsA
لا يوجد تعليقات
أضف تعليق