Day2
文本框
作用：输入、显示或编辑内容
属性：
1、 Text显示或输入的正文内容
2、 PassWordChar: 设置输入的密码显示的字符，如输入的内容显示为“*”，输入的内容在Text属性
3、 MaxLength:可输入字符的最大长度
4、 TextLength:获取输入的字符长度，要小于等于MaxLength
在VB.net中，一个檄文字符与一个汉字都是一个字
5、 MultiLine 多行属性
设置为True时，可输入或者显示多行文本。与ScrollBar密切相关
6、 ScrollBar 滚动条属性
None、Horizontal、Vertical、Both
注意：ScrollBar设置为非None时为什么无效？
原因：MultiLine设置为了False
ScrollBar设置为Horizontal或Both时，没有水平滚动条？
原因：WordWarp要设置为False时才能显示，如果设置为True，此时会自动换行，所以没有水平滚动条。
7、 选定文本内容
SelectionStart 选定的正文开始位置（特别注意第一个位置为0）
SelectionLength 选定的正文长度
SelectionText 选定的正文内容
作业：写一个简单的文本编辑器（包含剪切、复制、关闭窗口、格式化文字的功能）
Public Class Form1
Dim s As String
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'剪切功能
s = TextBox1.SelectedText
TextBox1.SelectedText = ""
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'复制功能
TextBox1.SelectedText = s
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Font = New Font("楷书"， 18)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
End
End Sub
End Class
文本框的主要事件：
TextChanged 事件
当text属性发生改变时引发该事件，在文本框每输入一个字符就激发一次
Keypress事件
按下并释放键盘上的一个键时，引发焦点所在控件的Keypress事件，所按键的值存放在
参数e对象的Keychar中.
如：对回车的判断 Asc(e.Keychar)=13 回车符号asc编码后的数字为13
一般选择使用Keypress事件，可以对不能显示的字符进行判断（如回车、空格）
label不能输入文本，涉及到文本的输入，应该使用textbox
作业：
输入的文本会主要写两个事件的响应区别
LostFocus事件
对象失去焦点时，发生LostFocus事件
作用：对输入的数据进行验证
GotFocus事件
与LostFocus事件刚好相反，对象获得焦点时发生。
方法：
Focus方法
作用：把光标移到指定的对象中
形式：[对象].Focus()
Public Class Form1
Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
'对象失去焦点时，发生LostFocus事件。LostFocus事件一按table健会失去焦点,同时验证数字的合法性，如果为非数字则清空以后焦点还是会回到文本框1
If Not IsNumeric(TextBox1.Text) Then
TextBox1.Text = ""
TextBox1.Focus()
End If
End Sub
Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
'按回车键后开始检查输入数字的合法性
If Asc(e.KeyChar) = 13 Then
If Not IsNumeric(TextBox2.Text) Then
TextBox2.Text = ""
TextBox2.Focus()
End If
End If
End Sub
Private Sub TextBox3_GotFocus(sender As Object, e As EventArgs) Handles TextBox3.GotFocus
'TextBox3只要一获得焦点GotFocus，立马开始下面的计算
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
End Class