文本框主要用来输入和输出文本信息。在文本框中所输入的内容均被认为是字符串。

      文本框的常用属性有：

uText——设置文本框中显示的内容，最重要的属性。

           ■Val(Text1.Text)——将字符串转换为数值。

           ■Len(Text1.Text)——获得字符串的长度。

vMultiline——设置文本框是单行还是多行。

           ■True——多行

           ■False——单行

wScrollBars——设置是否包含滚动条。

                             ■0—无滚动条

                                ■1—水平滚动条

                                   ■2—垂直滚动条

                                ■3—水平、垂直滚动条

xPasswordChar——控制输入内容的显示。

若把该值设为“*”,则用户输入的每个字符都显示为“*”。

yMaxLength——确定文本框控件可接收的字符数。  缺省为0，表示可为容量极限内的任意长度（≤64KB）。

zLocked——为True时，文本框的内容只能读，不能写。

{Enabled——为True时，可以在文本框中输入信息；为False时，则无法在文本框中输入信息。

|Visiable——设置文本框是否可见。

}SelText  返回所选的文本。

    如将选中的文本变成大写可使用如下语句：

    Text1.SelText=UCase$(Text1.SelText)

文本框的常用事件：

uChange 事件：当增、删、改文本框内容时触发。

  vKeyDown事件：键按下时触发。

wKeyPress事件：键按下但字符还未显示时触发。

  xKeyUp事件：键弹起时触发

yGotFocus事件：得到焦点时触发

zLostFocus事件：失去焦点时触发。

文本框的常用方法：

uSetFocus方法：使文本框获得焦点

如：Text1.SetFocus

例题2  Change事件应用

Private Sub Text1_Change()

   Text2.Text = Text1.Text

End Sub

例题3  使用KeyPress事件限制文本框中输入的字符只能是数字0~9。

Private Sub Text1_KeyPress(KeyAscii As Integer)

   IfKeyAscii< 48 Or KeyAscii> 57 Then

        MsgBox"输入的字符必须是数字"

        KeyAscii= 0        //取消刚才的输入

    EndIf

End Sub

输入控件─列表框（ListBox）

列表框主要用于动态的若干项目中选择其一的操作，列表框中可以包含若干项目，用户通过单击某一项进行选择，当项目超过了列表框的长度时，将会自动加上垂直滚动条。

列表框的常用属性有：

uList——保存列表框中所有项目的数组。可通过下标来访问列表中的某一项（从0开始）。

                 List1.list(2)="青岛大学"

                A$=List1.List(3)

vText ——  返回一字符串，是最近一次选中的列表项的内容。

wListCount ——返回列表框中项目的总个数。

xListIndex——返回或设置项目的索引值。

                              ■没有选中为–1;  

                              ■选中第一项为0

                              ■选中最后一项为ListCount-1

ySorted——决定列表框中的项目是否按字母升序排列。

                                 ■True：升序

                                 ■False：按添加的顺序

zSelected——布尔值型的数组，其数组元素的个数与列表框的项数相等，下标值与列表框中各索引值一一对应。

                                    ■True：选中

                                    ■False：未选中

如：要选中第三项：

                   List1.Selected(2)=True

{Style—是否将复选框显示在ListBox控件中。

|MultiSelect——是否可以在列表框中做多重选择。

             ■ 0——None 

             ■1——Simple  （简单选中）鼠标单击：选中/取消

             ■2——Extended   Ctrl+单击：不连续选中；

                                            Shift+单击：连续选中。

常用方法：

 AddItem——给ListBox 增加一项。

                 List1.AddItem  <String>   [,Index]

        Index：取值范围为：0~ListCount-1，省略时，追加到列表框的尾部。

 RemoveItem——删除指定的表项。

                 List1.RemoveItem  <Index>

 Clear——清除列表框中的全部内容。

                 List.Clear

常用事件：

        Click      DblClick