52常用标准控件-1 1.命令按钮-2 > Default,属性:设置缺省的命令按钮。若设置为True, 按回车键相当于单击该按钮。 Cancel属性:设置缺省的取消按钮。若设置为True, 按ESc键相当于单击该按钮。 Index属性:设置按钮在控件数组中的编号。 命令按钮的默认事件是 Click(单击),不支持双击事件。 返回目录
5.2 常用标准控件－1 1. 命令按钮-2 ➢ Default属性：设置缺省的命令按钮。若设置为True， 按回车键相当于单击该按钮。 ➢ Cancel属性 ：设置缺省的取消按钮。若设置为True， 按Esc键相当于单击该按钮。 ➢ Index属性：设置按钮在控件数组中的编号。 命令按钮的默认事件是Click(单击)，不支持双击事件。 返回目录
52常用标准控件-1 2.标签A 标签控件主要用来显示说明文字,因此 般不对其进事件处理 > Caption属性:设置在标签控件中显示的文本 > Alignmen属性:设置标签中文本的对齐方式 (0-左对齐,1-右对齐,2-居中) > Backstyle属性:设置标签控件背景是否透明 (0-透明,1-不透明) 登录 例,标签“用户名 用户名称 称”和“密码”是透明 密码 的 确定〖 取消c 返回目录
5.2 常用标准控件－1 2. 标签 ➢ Caption属性：设置在标签控件中显示的文本 ➢ Alignment属性：设置标签中文本的对齐方式 （0-左对齐，1-右对齐，2-居中） ➢ BackStyle属性：设置标签控件背景是否透明 （0-透明，1-不透明） 返回目录 例，标签“用户名 称”和“密码”是透明 的 标签控件主要用来显示说明文字，因此 一般不对其进事件处理
返回目录 52常用标准控件-1 3.文本框同-常用属性 Text:设置文本框中显示的内容 > Multilines:设置是否能输入或显示多行文本 取值True或 False(缺省值) Scrollbar:设置多行文本框中是否出现滚动条 (0-没有,1-水平,2-垂直,3-水平和垂直) > Locked:设置是否允许用户编辑文本框中的文本 取值True或 False(缺省值) > Passwordchar:设置密码字符 若 Multiline属性为True,则 Password char属性无效
5.2 常用标准控件－1 3. 文本框 -常用属性 ➢ Text：设置文本框中显示的内容 ➢ MultiLines：设置是否能输入或显示多行文本 取值True或 False (缺省值) ➢ ScrollBars：设置多行文本框中是否出现滚动条 （0-没有，1-水平，2-垂直，3-水平和垂直） ➢ Locked：设置是否允许用户编辑文本框中的文本 取值True或 False (缺省值) ➢ Passwordchar：设置密码字符 若MultiLine属性为True，则PasswordChar属性无效 返回目录
返回目录 52常用标准控件-1 3.文本框同-常用事件 > Change(默认事件):改变文本框内容时发生 > Keypress::在文本框中按键盘上的键时发生 > Lostfocus:文本框失去焦点时发生 Gotfocus:文本框获得焦点时发生 焦点是接收用户鼠标或键盘输入的能力。 4.框架圖 >可用于对其他控件进行分组 >常用属性是 Caption,用于设置框架的标题文本 >可先画出框架,再将其它控件画到框架中;或者“剪 切”框架外的控件,“粘贴”到框架中
5.2 常用标准控件－1 3. 文本框 -常用事件 ➢ Change(默认事件)：改变文本框内容时发生 ➢ KeyPress：在文本框中按键盘上的键时发生 ➢ Lostfocus：文本框失去焦点时发生 ➢ Gotfocus：文本框获得焦点时发生 焦点是接收用户鼠标或键盘输入的能力。 4. 框架 ➢ 可用于对其他控件进行分组 ➢ 常用属性是Caption，用于设置框架的标题文本 ➢ 可先画出框架，再将其它控件画到框架中；或者“剪 切”框架外的控件， “粘贴”到框架中 返回目录
彩票开奖器 52常用标准控件-1 中奖号码 Re0① 例51彩票开奖器 No 1 No. 2 No. 3 No4 Commandl 控件数组 Private Sub Commandl Click(Index As Integer) Command1(ndex) Enabled= False'使点击过的按钮不可用 Randomize(time) Labell(ndex). Caption=Int(Rnd*10)对应标签显示随机数 Labell(Index) Fontsize =24 Labell(Index). Fore Color= RGB(255, 0, 0 End sub 同日寻
5.2 常用标准控件－1 [例5.1] 彩票开奖器 Private Sub Command1_Click(Index As Integer) Command1(Index).Enabled = False '使点击过的按钮不可用 Randomize (Time) Label1(Index).Caption = Int(Rnd * 10) '对应标签显示随机数 Label1(Index).FontSize = "24" Label1(Index).ForeColor = RGB(255, 0, 0) End Sub 返回目录 Command1 控件数组