PB 第6节_常用控件.ppt

台州学院计算机系 * 代码如下： Private Sub Command1_Click() If Text1.Text Then 判断文本是否为空 List1.AddItem Text1.Text Text1.Text = 添加好后，文本框清空 Text1.SetFocus Else MsgBox 请先输入项目名称 End If End Sub Private Sub Form_Load() 属性设置可在设计阶段属性窗口完成 List1.AddItem VB程序设计 List1.AddItem C程序设计 List1.AddItem 大学计算机基础 List1.AddItem 数据库技术 End Sub 台州学院计算机系 * 6.3.2 组合框 组合框是一种兼有文本框和列表框两者功能而形成的控件。它允许用户象操作列表框一样选择项目。也可以在组合框中输入内容，再通过AddItem方法将内容添加到本控件中。 1．主要属性 列表框中所列的大部分属性组合框都具有。但是，组合框任何时候只能单项选择。所以，MultiSelect和Selected属性是组合框所没有。 组合框的Style属性：组合样式属性。 Style=0：下拉式组合框，有一个下拉箭头，文本框区域可输入内容。 Style=1：简单组合框，无下拉箭头，文本框区域可输入内容。 Style=2：下拉式列表框，有一个下拉箭头，文本框区域不可输入内容。 组合框的三种不同样式效果如图6-11所示。 台州学院计算机系 * 【例6-11】利用组合框，设置文本框的对齐方式和字型，界面如图所示。 台州学院计算机系 * 程序代码如下： Private Sub Combo1_Click() Select Case Combo1.ListIndex 所选择的项目的序号 Case 0 Text1.Alignment = 0 Case 1 Text1.Alignment = 2 居中 Case 2 Text1.Alignment = 1 End Select End Sub Private Sub Combo2_Click() Select Case Combo2.ListIndex Case 0 Text1.FontItalic = False 常规字型 Text1.FontBold = False Case 1 Text1.FontItalic = True Text1.FontBold = False Case 2 Text1.FontBold = True Text1.FontItalic = False Case 3 Text1.FontItalic = True Text1.FontBold = True End Select End Sub 台州学院计算机系 * 6.4 滚动条 滚动条控件用于信息和属性的调节。它不同于某些控件的内置滚动条属性。滚动条控件的操作不依赖其他控件。滚动条分为水平滚动条和垂直滚动条。 1．主要属性 （1）Max属性：滚动条上滑块滚动范围的上限。 （2）Min属性：滚动条上滑块滚动范围的下限。 （3）Value属性：滑块所处位置对应的数值。 （4）SmallChange属性：单击滚动条箭头时的增量。 （5）LangeChange属性：单击滑块和滚动条箭头之间的区域时的增量。 2．常用事件 （1）Change事件 程序运行时，当改变滚动条控件的Value值时触发Change事件。 （2）Scroll事件 程序运行时，拖动滑块时，触发Scroll事件。此时，并不会触发Change事件，直到停止拖动并松开鼠标的时刻才触发Change事件。 台州学院计算机系 * 【例6-12】设计一个滚动条，用来改变标签的字体大小。界面如图所示。 要求： a．水平滚动条的取值范围[12，72]，改变滚动条可以控制标签文字的大小，并同时在文本框中显示标签的字号； b．标签文字为“欢迎光临”，要求在改变字号时标签保持在窗体中水平居中； c．文本框最多接受两个字符，当输入一个∈[12，72]的两位整数后，也可以改变标签文字的大小，并同时调整水平滚动条的滚动框位置； 台州学院计算机系 * 程序代码如下： Private Sub Form_Load() Label1.Captio