VisualBasic程序设计第六章.pptVIP

1 专业技术人员培训 Private Sub Command3_Click() List1.Clear End Sub Private Sub Command4_Click() Combo1.Clear End Sub Private Sub Command5_Click() End End Sub Private Sub Form_Load() Combo1.AddItem 电子商务991 Combo1.AddItem 会计991 Combo1.AddItem 市场营销991 Combo1.AddItem 计算机科学991 End Sub 6.5 滚动条 滚动条分为水平滚动条(HscrollBar(和垂直滚动条(VscrollBar)。通常附着在窗体边上帮助观察数据或确定位置，作为速度、数量的指示器来使用，也用来作为数据输入的工具。 6.5.1 滚动条的主要属性 滚动条所能表示的最小值，即滚动条处于顶部或最左位置时，Value属性的最小设置值，取值-32768-32767，默认0。 Min 表示当前滚动条所代表的值，范围在Max与Min之间。每当用户单击滚动条箭头、滚动块与箭头之间的区域或沿着滚动条拖拉滚动块的动作结束时，滚动条的Value属性就发生变化。 Value 当用户单击滚动块和滚动箭头之间的区域时，滚动条的Value值的改变，默认1。 LargrChang 单击滚动条两头的箭头时，Value值的增加或减少量，默认1。 SmallChange 滚动条所能表示的最大值，即滚动条处于底部或最右位置时，Value属性的最大设置值，取值-32768-32767，默认32767。 Max 作 用 属性 在滚动条内移动滚动块时发生该事件(单击滚动箭头或滚动条时不发生该事件)。 Scroll 改变滚动条位置时产生该事件。 Change 作 用 事件 6.5.2 滚动条的事件 例6_9：利用滚动条改变文本框中所显示的文本的字号大小和颜色。文 本最小字号为5号，最大100号；颜色5号至50号为红色，51号至100 号为蓝色。 界面设置： 控件对象属性设置(均直接在属性窗口中设置)： 5 100 Min Max HScroll1 空 Caption label1 滚动条的应用 Text Text1 滚动条应用 Caption Form1 属性值 属性 对象名 程序代码： Private Sub HScroll1_Change() Label1.Caption = 文本的当前字号是 HScroll1.Value 号 Text1.FontSize = HScroll1.Value Text1.ForeColor = HFF If HScroll1.Value 50 Then Text1.ForeColor = HFF0000 End If End Sub 6.6 多窗体 6.6.1 添加窗体 方法1：使用“工程/添加窗体”命令。 方法2：使用“添加窗体”按钮。 方法3：在“工程”窗口中右击鼠标，选择“添加/添加窗体”命令。 第1个窗体的默认名称为“Form1”，第2个窗体的名称为“Form2”， 以此类推。 6.6.2 当前窗体的切换 方法1：单击窗体标题栏。 方法2：在“工程”窗口中双击窗体名称。 6.6.3 删除窗体 方法1：选中要删除的窗体，选择“工程/移去”命令。 方法2：在“工程”窗口中右击要删除的窗体，选择“移去”命令。 6.6.4 多窗体程序的保存 每个窗体都作为一个文件单独保存，并保存其工程文件。 6.6.5 设置启动窗体 方法1：选择“工程/工程属性”，打开“工程属性”对话框，在“启动对 象”列表框中选取要作为启动窗体的窗体名称，单击“确定”按钮。 方法2：在“工程”窗口中右击“工程”，选择工程属性，打开“工程属 性”对话框，在“启动对象”列表框中选取要作为启动窗体的窗体名 称，单击“确定”按钮。 6.6.6 与多窗体有关的语句和方法 1.Load语句 语法：Load 窗体名称 功能：把一个窗体装入内存。 2.Show方法 语法：[窗体名称.]Show[模式] 功能：显示一个窗体。 说明：[模式]确定窗体的状态，取值0和1。当“模式”值为1(或常量 vbModa1)时，窗体是“模式型”窗体。此种情况下，鼠标只能在该窗 体内起作用，不能移动到其它窗体内进行操作，只有关闭该窗体后才 能对其它窗体进行操作；当“模式”为0(缺省)时，表示窗体为“非模 式型”窗口，不用关闭该窗体就可以对其它窗口进行操作。 3.Unload语句 语法：Unload