第6章_常用控件

1、第第6章章 常用控件常用控件 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 2u6.1 命令按钮命令按钮u6.1.1命令按钮命令按钮CommandButtonl命令按钮常用命令按钮常用属性属性n名称：标识控件，具有唯一性名称：标识控件，具有唯一性nCaption：返回或设置显示在按钮上的文本：返回或设置显示在按钮上的文本nEnabled：控件是否可用，：控件是否可用，True可用缺省；可用缺省；False不可用不可用

2、nVisible：控件运行时是否可见，：控件运行时是否可见，True可见缺省；可见缺省；False不可见不可见l命令按钮命令按钮其它属性其它属性nWidth、Height：控件的宽度、高度控件的宽度、高度nLeft 、Top：控件离窗体左边、顶部的距离控件离窗体左边、顶部的距离nFont：字体，：字体，FontSize：字号，：字号，FontBold：加粗：加粗，FontItalic：斜体斜体nPicture：按钮显示图片文件，当：按钮显示图片文件，当Style为为1时有效时有效nStyle： 确定显示的形式，确定显示的形式，0 只显示文字只显示文字, 1文字文字、图形均可、图形均可6.1 命

3、令按钮命令按钮 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 3u6.1.2 命令按钮常用方法命令按钮常用方法l控件名控件名.Setfocus：控件获得焦点：控件获得焦点l控件名控件名.Move ：控件移动和改变大小：控件移动和改变大小u6.1.3 命令按钮常用事件命令按钮常用事件 l Click：鼠标单击事件，当命令按钮获得焦：鼠标单击事件，当命令按钮获得焦点时，按点时，按Enter触发鼠标单击事件触发鼠标单击事件

4、l【例例】单击按钮显示当前时间单击按钮显示当前时间Private Sub Command1_Click() Print 当前时间是当前时间是: & TimeEnd Sub6.1 命令按钮命令按钮 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 4u6.2 标签控件标签控件 和文本框和文本框u6.2.1 标签控件标签控件 Labell显示文本，但不能输入文本，主要属性显示文本，但不能输入文本，主要属性nCapti

5、on(默认默认)、Font、Width、Height、 Top、Left nAutoSize和和WordWrapAutoSize控件是否改变大小以适合内容控件是否改变大小以适合内容WordWrap是否自动换行是否自动换行nAlignment控件中文本水平对齐方式控件中文本水平对齐方式 0-Left左对齐、左对齐、1-Right右对齐、右对齐、 2-Center居中居中nBackStyle背景样式背景样式 0-Transparent：背景透明，：背景透明，1-Opaque：背：背景不透明景不透明6.2 标签和文本框标签和文本框 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合

6、框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 5nBorderStyle边框风格边框风格 0-None：控件周围没有边框，：控件周围没有边框，1-Fixed Single：控件带有单边框：控件带有单边框n标签常用事件标签常用事件Click：单击鼠标事件：单击鼠标事件DblClick：双击鼠标事件：双击鼠标事件6.2 标签和文本框标签和文本框 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用

7、控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 6u6.2.2 文本框文本框 TextBoxl文本输入、编辑和显示文本内容文本输入、编辑和显示文本内容l文本框常用属性文本框常用属性nText：文字内容：文字内容（默认）（默认）nLocked：True不可编辑，不可编辑，False表示可编辑表示可编辑nMaxlength：设置文本字符个数，：设置文本字符个数，0任意长度值任意长度值nMultiLine：默认：默认False为为1行，行，True为多行为多行nScrollBars：MultiLine为为True时，该属性才时，该属性才有效，表示滚动条的形式有效，表

8、示滚动条的形式0-None、1-Horizontal、2-Vertical、3-BothnPassWordChar：密码：密码字符字符，屏幕显示该字屏幕显示该字符，如符，如*、#nSelStart：选中的文本开始位置：选中的文本开始位置nSelLength：选中的文本字符数：选中的文本字符数nSelText：选中的文本内容：选中的文本内容6.2 标签和文本框标签和文本框 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组

9、7l结合剪贴板提供的方法对文本框进行操作结合剪贴板提供的方法对文本框进行操作nClipBoad.SelText String：将文本放到剪贴板：将文本放到剪贴板nClipBoad.GetText：返回剪贴板中文本：返回剪贴板中文本nClipBoad.Clear：清空剪贴板中的内容：清空剪贴板中的内容l【例例6.1】 简易文本编辑器简易文本编辑器 n窗体上添加窗体上添加1个文本框，设置个文本框，设置MultiLine：True、Scroll：26个按钮，分别设置个按钮，分别设置Caption为复制、剪切为复制、剪切分别编写分别编写Form_Load、Command1事件事件程序代码程序代码6.2

10、 标签和文本框标签和文本框 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 8l文本框常用事件文本框常用事件nChange ：Text属性改变时触发事件属性改变时触发事件Private Sub Text1_Change()Print Text1End Sub nKeyPress：按下键盘，返回键盘：按下键盘，返回键盘KeyAscii 码码Private Sub Text1_KeyPress(KeyAscii As In

11、teger)Print 你按了：你按了： & Chr(KeyAscii) & 键键End Subn能接受数字键能接受数字键If KeyAsciiAsc(9) Or KeyAscii= 3 Then Label2 = 非法用户，请退出程序！非法用户，请退出程序！End If End Sub 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 10l【例例6.3】计算语文和数学的平均分计算语文和数学的平均分n主

12、要代码主要代码 全部代码全部代码6.2 标签和文本框标签和文本框Private Sub Text1_Change() Text3 = Trim(Val(Text1.Text) + Val(Text2.Text) / 2)End SubEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc(9) Or KeyAscii Asc(0) Then MsgBox 不能输入非数字字符不能输入非数字字符 KeyAscii = 0 End IfEnd Sub 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和

13、组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 u6.3复选框、单选按钮和框架复选框、单选按钮和框架u6.3.1 复选框复选框 CheckBox l常用属性常用属性nCaption：文本：文本nValue：0-Unchecked未选定未选定1-Checked选定选定l常用事件常用事件nClick：单击后使：单击后使Value属性为属性为0或或1l判断选中判断选中Private Sub Check1_Click() If Check1.Value=1 ThenPrint 选中我选中我

14、 ElsePrint 未选中我未选中我 End IfEnd Sub6.3 复选、单选按钮复选、单选按钮. 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 l【例例6.4】利用复选框进行设置利用复选框进行设置n主要代码主要代码 全部代码全部代码6.3 复选、单选按钮复选、单选按钮.Private Sub Check1_Click() 设置设置字号字号 If Check1.Value = 1 Then Label1.Fon

15、tSize = 20 Else Label1.FontSize = 15 End IfEnd Sub 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 u6.3.2 单选按钮单选按钮 OptionButton l以组的形式出现，允许选择一项以组的形式出现，允许选择一项n主要属性主要属性Caption：文本：文本Value：True：选定，：选定，False：未选定：未选定n事件事件Click：单击后使：单击后使Value

16、属性为属性为Truel【例例6.5】利用单选按钮设置文本对齐利用单选按钮设置文本对齐主要代码主要代码 全部代码全部代码6.3 复选、单选按钮复选、单选按钮.Private Sub Option1_Click() Text1.Alignment = 0End SubPrivate Sub Option2_Click() Text1.Alignment = 2End SubPrivate Sub Option3_Click() Text1.Alignment = 1End Sub 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按

17、钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 u6.3.3 框架框架(Frame)l主要用途是对单选按钮进行分组，也是其他主要用途是对单选按钮进行分组，也是其他控件的容器控件的容器l主要属性主要属性nCaption：框架标题框架标题nEnabled：False：标题呈灰色，不允许操作：标题呈灰色，不允许操作nVisible：True：框架及其控件可见、：框架及其控件可见、False：框架及其控件被隐含起来框架及其控件被隐含起来l【例例6.6】利用单选按钮设置文本对齐利用单选按钮设置文本对齐全部代码全部代码6.3 复选、单选按钮复选、

18、单选按钮. 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 l框架内添加控件的方法框架内添加控件的方法n方法方法1：单击工具箱上的工具，然后用出现：单击工具箱上的工具，然后用出现的的“+”指针，在框架中适当位置拖拉出适当指针，在框架中适当位置拖拉出适当大小的控件大小的控件不能使用双击工具箱上图标的方式添加不能使用双击工具箱上图标的方式添加n方法方法2：将控件：将控件“剪切剪切”到剪贴板，然后粘到剪贴板，然后粘贴贴(Ct

19、rl+V)到框架中到框架中6.3 复选、单选按钮复选、单选按钮. 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 u6.4 列表框列表框 和组合框和组合框l列表框和组合框控件都是一维列表框和组合框控件都是一维字符字符数组数组u6.4 .1 列表框列表框 ListBox l显示多个选项供点击选择，不能直接修改选项显示多个选项供点击选择，不能直接修改选项内容内容l列表框和组合框常用属性列表框和组合框常用属性nList(In

20、dex)：是一个字符数组：是一个字符数组nText：选定的文本，：选定的文本，也可用也可用List1.List(i) i=0, ListCount -1 或或 List1.List(List1.ListIndex) 表示表示nListIndex：选项的序号：选项的序号(从从0开始开始)nListCount：项目数量：项目数量 nMultiSelect0 默认单选、默认单选、1 简单多选、简单多选、2 扩展多选扩展多选nSorted：项目排序：项目排序nStyle：标准、复选：标准、复选6.4 列表框和组合框列表框和组合框 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框

21、6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 l列表框和组合框常用列表框和组合框常用方法方法nAddItem：添加一个项目到列表：添加一个项目到列表对象对象.AddItem 项目字符串项目字符串 ,索引值索引值 索引值：索引值：0到到ListCount-1，如省略，新增项，如省略，新增项目添加在最后目添加在最后n RemoveItem：删除列表中指定项目：删除列表中指定项目 对象对象.RemoveItem 索引值索引值n Clear：清除列表中所有项目：清除列表中所有项目 对象对象. C

22、lear l常用事件常用事件n列表框：列表框：Click、DblClick6.4 列表框和组合框列表框和组合框 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 l添加项目添加项目n属性面板属性面板n程序运行时程序运行时Private Sub Form_Load()List1.AddItem 上海上海List1.AddItem 浙江浙江List1.AddItem 嘉兴嘉兴“List2.AddItem 上海上海List2.

23、AddItem 浙江浙江List2.AddItem 嘉兴嘉兴“End Sub6.4 列表框和组合框列表框和组合框 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 l【例例6.7】列表框管理列表框管理 全部代码全部代码n初始化添加项目初始化添加项目Private Sub Form_Load() List1.AddItem Good List1.AddItem Smart List1.AddItem BeautifulEn

24、d Subn添加项目添加项目 List1.AddItem Text1.Text, 0 n删除选中项目删除选中项目List1.RemoveItem ListIndexn全部删除全部删除List1.Clear 6.4 列表框和组合框列表框和组合框 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 l【例例6.8】添加项目添加项目n全部代码全部代码6.4 列表框和组合框列表框和组合框 6.3 单选、复选按钮单选、复选按钮.6.

25、4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 u6.4.2组合框组合框 ComboBoxl组合了文本框和列表框的特性而形成的一种组合了文本框和列表框的特性而形成的一种控件，组合框属性同列表框控件，组合框属性同列表框l组合框有组合框有3种式样种式样nStyle样式：样式：0 默认，下拉式，项目可修改默认，下拉式，项目可修改1 简单组合框简单组合框2 组合框，项目不可修改组合框，项目不可修改l事件：事件：Click6.4 列表框和组合框列表框和组合框 6.3 单

26、选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 u【例例6.9】组合框设置字体组合框设置字体l基本代码基本代码 全部代码全部代码n添加项目添加项目Combo1.AddItem 宋体宋体Combo2.AddItem 加粗加粗For i = 10 To 40 Step 2 Combo3.AddItem i Next in单击事件单击事件Private Sub Combo1_Click() 设置字体设置字体 Label1.FontNa

27、me = Combo1.TextEnd Subn改变事件改变事件Private Sub Combo3_Change() 直接输入字号直接输入字号 Label4.FontSize = Val(Combo3.Text)End Sub6.4 列表框和组合框列表框和组合框 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 u6.5 滚动条滚动条 HScroll1/VScroll1l6.5.1 滚动条常用属性滚动条常用属性 Max

28、和和Min属性：属性：Value的最大值和最小值的最大值和最小值Max的缺省值为的缺省值为32767，Min的缺省值为的缺省值为0 Value属性：滚动框在滚动条中的当前位置属性：滚动框在滚动条中的当前位置 LargeChange和和SmallChange属性：属性：l6.5.2事件事件nChange事件：滚动框的位置改变后触发事件：滚动框的位置改变后触发n Scroll事件：拖动滚动条时触发事件：拖动滚动条时触发 LargeChange 单击此单击此处时处时Value的变化值的变化值SmallChange 单击此单击此处时处时Value的变化值的变化值6.5 滚动条滚动条 6.3 单选、复选

29、按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 l【例例6.10】文字定位在窗体水平方向范围内文字定位在窗体水平方向范围内6.5 滚动条滚动条Private Sub Form_Load() 滚动条属性设置滚动条属性设置HScroll1.Max = Form1.ScaleWidth - Label1.WidthHScroll1.Value = Label1.Left 获得标签的水平位置获得标签的水平位置End SubPrivate Sub

30、 HScroll1_Change()Label1.Left = HScroll1.Value 确定标签的水平位置确定标签的水平位置Label2 = 当前位置是：当前位置是： & HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()HScroll1_Change 调用调用HScroll1_Change事件事件End Sub 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件

31、数组 u6.6定时器定时器 Timerl以一定的时间间隔产生以一定的时间间隔产生 Timer事件事件l6.6.1定时器常用属性定时器常用属性nInterval属性属性单位：单位：ms(0.001s)，1秒是秒是1000msInterval0：计时器无效：计时器无效nEnabled属性属性True/ False ：激活或停止计时器：激活或停止计时器l6.6.2 定时器的定时器的Timer事件事件nTimerl【例例6.12】数字时钟数字时钟 全部代码全部代码6.6 定时器定时器 6.3 单选、复选按钮单选、复选按钮.6.4 列表和组合框列表和组合框 6.2 标签和文本框标签和文本框6.1 命令按钮命令按钮第第6章章 常用控件常用控件6.5 滚动条滚动条 6.6 定时器定时器 6.7 控件数组控件数组 l【例例6.13】滚动字幕滚动字幕 全部代码全部代码l【例例6.14】倒计时程序倒计时程序 全部代码全部代码