新Visual Basic程序设计（第二版） 电子教案 柳青 第4章 外部控件的使用.pptVIP

Visual Basic程序设计（第二版） 主编 柳青 严健武 中国水利水电出版社 第4章 外部控件的使用 外部控件是指没有出现在IDE环境“工具箱”中，由微软或其他第三方提供的控件。如果需要使用这些控件，需要手动添加到设计环境中，如进度条控件、日历控件、表格控件、动画播放控件等，这些控件又称ActiveX Ocx 控件。本章主要学习常用外部控件的基本使用方法。 4.1 添加外部控件 以添加“日历”控件为例，在菜单栏上选择“工程→部件…”选项，在弹出的“部件”对话框中选择“控件”选项卡，拉动滚动条，选择“Microsoft 日历控件11.0”选项，如图4-1所示，单击“确定”按钮，日历控件将添加到“工具箱”中。在“工具箱”中将看到新添加的控件图标。 表4-1 控件项对应的文件名及包含的控件 4.2 进度条控件 进度条控件用于指示当前处理任务的进度。要使用进度条控件，需要按照上节的操作 步骤，添加部件。添加之后，可以看到“工具箱”中多了一系列外部控件，其中包含 进度条控件，如图4-2所示。 [程序代码] 1 初始化控件状态 2 Private Sub Form_Load() 3 ProgressBar1.Max = 100 4 ProgressBar1.Min = 0 5 ProgressBar1.Value = 0 6 7 Command1.Enabled = True 8 Command2.Enabled = False 9 10 Timer1.Enabled = False 暂时不可用 11 Timer1.Interval = 1000 12 13 End Sub 14 15 开始按钮 16 Private Sub Command1_Click() 17 Command1.Enabled = False 18 Command2.Enabled = True 19 Timer1.Enabled = True 20 End Sub 21 22 结束按钮 23 Private Sub Command2_Click() 24 Command1.Enabled = True 25 Command2.Enabled = False 26 27 Timer1.Enabled = False 28 ProgressBar1.Value = 0 29 End Sub 30 31 显示进度 32 Private Sub Timer1_Timer() 33 If ProgressBar1.Value + 1 ProgressBar1.Max Then 34 ProgressBar1.Value = ProgressBar1.Value + 1 35 End If 36 End Sub [代码说明] 行3~5：设置进度条的初始值 行7~8：“开始”和“结束”按钮的初始状态。 行10：Timer控件的Enabled属性默认有效，如果要控制Timer控件的启动，在设置其Interval值之前，需要设置Enabled属性为False，以后可以通过Enabled属性控制Timer控件的启动和停止。 行16~20：“启动”按钮的操作逻辑。 行23~29：“结束”按钮的操作逻辑，停止定时器，同时恢复进度条初始值。 行33：在进度条开始进度(加1)前，需要判断移动（加1）后是否会超过其最大值，否则将出现异常。 此外，还可以设置进度条显示滚动样式属性Scrolling，如图4-5所示。 4.3 日期选择控件和动画控件 4.3.1 日期选择控件 日期选择控件主要供用户选择日期，避免用户错误输入不符格式的日期数据。 （1）主要属性 Value属性：日期控件的显示的（选择的）当前日期，可以设置或获取日期值。 （2）主要事件 Change事件：日期选择发生改变是触发。 如果要使用日期选择控件，需要添加部件。添加后，将看到工具箱中多了一组控件，如图4-6所示。 [例4-2] 检测用户选择的日期。 [分析] 日期控件主要的目的是不需要用户从键盘输入日期数据，直接在控件中选择日期并获取日期值。 [建立工程] 新建工程，按默认名称保存工程为“工程1”，窗体名称保存为Form1。 双击DTPicker控件，将控件添加到窗体，按图4-7 添加两个Label控件。 [程序代码] 1 Private Sub Form_Load() 2 DTPicker1.Value = Date 3