计算机编程技术基础,计算机技术基础（第四章　顺序结构程序设计 ）

1．文本框的属性

(1)Text：返回或设置文本框显示的内容。

例：Text1．Text="欢迎使用VisualBasic"

(2)MultiLine：决定是否可以显示多行文本。

(3)PasswordChar：常用于输入口令。

在文本框中键入字符显示为该指定的字符。

(此时MultiLine属性值应为False)

(4)ScrollBars：用于确定文本框是否带滚动条以及滚动条的方向。

(仅当MultiLine属性值为True时才可以带滚动条)

(5)SelStart：在运行期返回或设置当前选择文本的起始位置。

例：Text1．SelStart=0

表示选择文本的起始位置从第一个字符开始。

(6)SelLength：在运行期返回或设置选择的字符数。

例：Text1．SelLength=Len(Text1．Text)

表示选中文本框Text1中所有字符。

(7)Locked：指定运行时文本框内容是否可以编辑。

False—可以编辑

True—不可编辑(只读)

2．文本框的事件和方法

事件：Change、Click、DblClick、

GotFocus、LostFocus、KeyPress等

方法：SetFocus

【例4-2】设计如下图所示的界面，运行时，输入某同学三门课的成绩，计算平均成绩。按要求编程。

①单击“计算”按钮求平均成绩

PrivateSubCommand1_Click()

A=Val(Text1．Text)

B=Val(Text2．Text)

C=Val(Text3．Text)

Text4．Text=(A+B+C)/3

End　Sub

②当输入成绩的文本框获得焦点时，选中其中的文本

Private　Sub　Text1_GotFocus()

Text1．SelStart=0

Text1．SelLength=Len(Text1．Text)

End　Sub

Private　Sub　Text2_GotFocus()

Text2．SelStart=0

Text2．SelLength=Len(Text1．Text)

End　Sub

Private　Sub　Text3_GotFocus()

Text3．SelStart=0

Text3．SelLength=Len(Text1．Text)

End　Sub

③当输入成绩的文本框内容发生变化时，清除平均值

Private　Su　bText1_Change()

Text4.Text=""

End　Sub

Private　Sub　Text2_Change()

Text4.Text= ""

End　Sub

Private　SubT　ext3_Change()

Text4.Text= ""

End　Sub

④单击“清除”按钮清除所有文本框的内容，并将焦点定位在文本框Text2中。

Private　Sub　Command2_Click()

Text1.Text=""

Text2.Text= ""

Text3.Text= ""

Text4.Text= ""

Text1.SetFocus

End　Sub

⑤单击“退出”按钮结束程序的运行。

Private　Sub　Command3_Click()

End

End　Sub

【例4-3】在窗体上建立一个文本框，将输入到文本框中的小写字母转换为大写。

Private　Sub　Text1_KeyPress(KeyAscii　As　Integer)

Char=Chr(KeyAscii)

KeyAscii=Asc(UCase(Char))

End　Sub