1.textbox是vb中的文本框，用户可以在文本框区域显示、修改、编辑文字内容
常用的属性：
1.text:内容 2.maxlength:长度
3.locked:可编辑性 4.MultiLine:可多行性
5.PasswordChar:代替 6.ScrollBars:滚动条
7.seltext:用于显示被选中的文本文字
8.sellength:用于计算选中文本的长度
9.selstart:用于定义文本初始位置
1.text:
设置和返回文本框所包含的内容
在form1内创建一个textbox
例：在form1加载时让text的文字清空
private sub form_load
text1.text=""
end sub
2.maxlength：
用法：文本框对象.maxlength=数值
在textbox中文本框最多可输入64K的字符
3.locked:
用于确认用户是否可编辑文本框内容
用法文本框对象.locked=布尔值
值类型是布尔值（true和false）
当值为true时，用户可在文本框编辑文本
当值为false时 ，用户不能在文本框编辑文本
4.multiline:
确认text是否可以多行输入
当值为true时，text可以多行输入
当值为false时，text不能用多行输入
这个属性是只读属性，只能在属性窗口设置
5.passwordchar:
文本框输入的内容用一个字符代替，常用于密码输入，令text2输入的字符用*代替
text2.passwordchar="*"
6.scrollbar:
指定文本框是否有滚动条
0:不出现滚动条
1.出现水平滚动条
2.出现垂直滚动条
3.同时出现垂直和水平滚动条
只有multiline为true时，才能设置滚动条
7 & 8 & 9.seltext，sellength，selstart
text1.seltext:表示显示text1选中的文本
text1.sellength:表示显示text1选中文本长度
selstart：表示文本从哪里开始
text1.selstart=0 '表示跳转text1第一个字
len函数是计算文本长度的函数
len（text1.text）表示显示text1.text的长度
我们可以利用len函数让文本跳转最后一个字
text1.selstart=len(text1.text)-1
常用的事件：
1.change事件 2.got focus事件
3.lost focus事件 4.keypress事件
5.click事件 6.dblclick事件
change:
是vb最常用的事件之一
当文本更改时会触发相关事件
例：当text1更改时，form的文字清空
private sub text1_change()
form1.caption=""
end sub
got focus和lost focus:
这两个分别是得到焦点和失去焦点的事件
当获取焦点和失去焦点时会分别触发相关事件
keypress:
是在文本框按下按钮的事件
按下的按钮会变成ASCII
可以用if ASCII=chr的值 then来判断按下了哪个键位
click和dblclick:
是文本框的单/双击事件
当单击文本框/双击文本框触发事件
方法：
setfocus
作用：获取焦点
例：text1.setfocus代表text1获取焦点
例题分析：
需求：
看到这个需求我想到了两个方法
首先，先按如图来设置窗体(text1要设置multi为true)
第一个方法
是比较常规的方法
双击text1进入代码窗口
使用keypress事件，我们知道1-9的值是49-57
所以当text1按下的键数是>=49和<=57时
text2.text就包含刚才输入的数
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 49 And KeyAscii <= 57 Then
Text2.Text = Text2.Text +Chr(KeyAscii)
End If
End Sub
第二个方法：
写在change事件中
介绍几个函数
第一个len:统计字数的函数
第二个mid:是截取字符串的函数
mid("截取的字符串",从那个字符开始截取，共截取多少个字符)
例：mid("机电工程职业技术学校",2,4)
从机电工程职业技术学校中的第二个字符
"电"开始截取四个字符--即：电工程职
第三个instr:
查看字符串是否包含一个或一串字符
用法instr(字符串1,字符1)
如果字符1包含在字符串中就会显示字符1包含的字数
Private Sub Text1_Change()
Dim a, b, c, d As String '声明四个变量为str型
a = "1234567890"
b = Text1.Text
For i = 1 To Len(Text1.Text) '统计一共有几个字，从1这个初值向终值循环
c = Mid(b, i, 1)
If InStr(a, c) > 0 Then d = d & c
Next
Text2.Text = d '循环结束后
End Sub
