VBA窗体及其控件.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 窗体-方法 使用方法的语法形式： [对象.]方法 [参数列表] Cls方法 清除运行时在窗体或图形框中产生的文本或图形, Cls方法不能清除窗体在设计时的文本和图形 Move方法 可移动窗体或控件，并可改变其大小。 语法格式如下： [对象.]Move 左边距离[,上边距离[,宽度[,高度]]] 补充load unload方法 本章目录 * 窗体-事件 常用的事件:Click、DblClick和Load。 Load：是在窗体被装入工作区时触发的事件。 作用：一般用于在启动应用程序时对属性和变量进行初始化。 本章目录 标签 标签用来显示文本信息(不能输入) 主要属性：Caption，存放要输出的文字 本章目录 文字框 文字框是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容。 (1) Text 显示或输入的正文内容 (2) Maxlength 设置文本框可输入的文字最大长度。默认值为0，表示可以输入任意长字符串。 注意：在VB中字符长度以字为单位，也就是一个西文字符与一个汉字都是一个字，长度为1。 本章目录 (3) MultiLine 多行属性 设置为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，按Enter键可插入一空行。 (4) ScrollBars 滚动条属性 None 无滚动条 Horizontal 水平滚动条 Vertical 垂直滚动条 Both 同时加水平和垂直滚动条 当MultiLine为True时，ScrollBars才有效 本章目录 (5) PassWordChar 设置显示文本的替代符。例如，当设置为“*”，则在文本框输入的内容均以“*”显示，而存储的值是用户输入的原文。一般用于设置口令的输入。 当MultiLine为True时，该属性不起作用，密码不允许多行。 (6) Locked 指定文本控件是否可被编辑，默认值为False(可编辑)，当设置为True时，文本控件相当于标签控件的作用。 本章目录 (7)文本内容进行选择操作 SelStart 选定的正文开始位置 SelLength 选定的正文长度 SelText 选定的正文内容 这3个属性互相关联,例如设置SelStart、SelLength后，SelText 自动存放指定的文本。 本章目录 案例：利用文字框属性实现文本信息的复制。 本章目录 Private Sub UserForm_Click() TextBox1.SelStart = 0 TextBox1.SelLength = 8 TextBox2.Text = TextBox1.SelText End Sub 用户界面→ 窗体Click事件代码 ↓ 文本框最有用的方法是SetFocus，把光标移到指定的文本框中。其形式如下： [对象.] SetFocus SetFocus还可以用于如CheckBox、CommandButton、ListBox、ComboBox等控件。 本章目录 案例：对输入的数据进行合法性检验，过滤不合法的数据。 窗体界面 本章目录 Private Sub Textbox1_LostFocus() If Not IsNumeric(Textbox1) Then IsNumeric函数判断Textbox1.Text的内容是否数字 Textbox1 = 有非数字字符，清除输入Text1中的内容 Textbox1.SetFocus 焦点重新回到Text1，继续输入 End If End Sub Private Sub Textbox2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 表示按回车键输入结速 If Not IsNumeric(Textbox2) Then IsNumeric函数判断Text1.Text的内容是否数字 Textbox2 = 重新输入 End If End If End Sub Private Sub Textbox3_GotFocus() Textbox3 = Val(Textbox1) + Val(Textbox2) End Sub 文字框-事件 (1) Changed事