VB程序设计第3版第2章.ppt

* 2.6.4 文本框（TextBox） 常用文本框控件输入、编辑、显示数据。 1. 属性 (1) Text属性：文本框中显示的内容 例: Text1.Text = 欢迎 Text2.Text = (2) MultiLine: 决定是否可以显示多行文本 (3) ScrollBars: 决定是否带滚动条以及滚动条的方向(无、水平、垂直、双向) (仅当MultiLine属性值为True时才可以带滚动条) * (4) PasswordChar: 在文本框中键入字符显示为该指定的字符。常用于输入口令 (5) MaxLength: 指定输入到文本框的最大字符数 。可用于控制口令的最大长度 (6) Locked: 指定运行时文本框内容是否可以编辑 (7) SelStart: 在运行期返回或设置当前选择文本的起始位置 例: Text1.SelStart=0 表示选择文本的起始位置从第一个字符开始。 * (8) SelLength: 在运行期返回或设置选择的字符数 例: Text1.SelLength=Len(Text1.Text) 表示选中文本框Text1中所有字符。 (9) SelText：在运行期返回或设置当前所选择文本的字符串 Private Sub Command1_Click() Text1.SetFocus 将焦点定位在文本框中 Text1.SelStart=0 设置选择起点 Text1.SelLength=3 设置选择文本长度 Print Text1.SelText 打印选择的文本 End Sub * 2. 事件 Change: 当文本框的内容发生改变时产生 Click;DblClick: 单击;双击 GotFocus;LostFocus: 得到焦点;失去焦点 KeyPress:当焦点在文本框时按下一个按键时发生 3. 方法 SetFocus方法： 对象名.SetFocus 例：将焦点定位在文本框Text1中。 Text1.SetFocus * 【例2-5】设计程序,对文本框实现以下操作： 1）实现对文本框文字的复制、剪切、粘贴。 2）设置或取消设置文本框文字的下划线、删除线、粗体、斜体效果。 3）对文本框文字进行放大或缩小。 设计界面： * 代码如下： 1）在代码窗口的通用声明段定义一个临时变量tmp，用于存放文本框中选中的内容（即SelText属性的值） Dim tmp 2）编写各命令按钮的Click事件过程。 Private Sub Command1_Click() “复制”按钮 Text1.SetFocus 焦点定位在文本框Text1 将选中的内容存放在变量tmp中 tmp = Text1.SelText End Sub * Private Sub Command2_Click() “剪切”按钮 将选中的内容存放在变量tmp中 tmp = Text1.SelText Text1.SelText = 将选中的内容置为空串 Text1.SetFocus 焦点定位在文本框Text1 End Sub Private Sub Command3_Click() “粘贴”按钮 将变量tmp的值赋给文本框选中的内容 Text1.SelText = tmp Text1.SetFocus 焦点定位在文本框Text1 End Sub * Private Sub Command4_Click() “下划线”按钮 设置或取消下划线 Text1.FontUnderline = Not Text1.FontUnderline End Sub Private Sub Command5_Click() “删除线”按钮 设置或取消删除线 Text1.FontStrikethru = Not Text1.FontStrikethru End Sub Private Sub Command6_Click() “加粗”按钮 设置或取消加粗线 Text1.FontBold = Not Text1.FontBold End Sub Private Sub Command7_Click() “斜体”按钮 设置或取消斜体 Text1.FontItalic = Not Text1.FontItalic End Sub * Private Sub Command8_Cli