vb的学习和开发笔记-textbox

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