多媒体程序设计2

ActiveX控件应用 VisualBasic的控件有三种广义分类 1 内部控件内部控件总是出现在工具箱中2 ActiveX控件是扩展名为 ocx的独立文件 有了这些控件就可在应用程序中引入高级功能3 可插入的对象例如一个包含公司所有雇员的列表的MicrosoftExcel工作表对象 通用对话框 VB6 0为用户提供了一组基于Windows标准的对话框 称为通用对话框 即CommonDialog 包括 打开 对话框 另存为 对话框 颜色 对话框 字体 对话框 打印 对话框以及 帮助 对话框 通用对话框不是标准控件 使用时必须先将该控件添加到工具箱里 将CommonDialog添加到工具箱里的步骤如下 1 选择 工程 下拉菜单中的 部件 子菜单 弹出 部件 对话框 2 在 部件 对话框列表中选择 MicrosoftCommonDialogControl6 0 项目 确保其前方的复选框内出现 3 单击确定按钮 添加完成后工具箱里出现CommonDialog的图标 具体操作如图所示 通用对话框 通用对话框常用的属性有名称属性和Action属性等 系统默认的通用对话框名称为CommonDialog1 CommonDialog2 Action属性决定程序打开什么类型的对话框 具体Action属性 含义及对应的方法 通用对话框 把CommonDialog控件添加到窗体后 就意味着上述各种标准对话框可以被使用了 当某一时刻需要用到某个对话框时 必须通过设置Action属性或VB6 0的方法才能使之显示在屏幕上 例如要显示 打开 对话框 在程序中利用设置Action属性则对应语句如下 CommonDialog1 Action 1也可在程序中用控件的方法完成对话框的显示 CommonDialog1 ShowOpen 通用对话框 1文件对话框文件对话框包括 打开 和 另存为 对话框 使用 打开 另存为 对话框可以设置文件对话框的属性 文件对话框属性页中的属性和含义如表所示 例如 CommonDialog1 Filter AllFiles 位图 bmp bmp 设置对话框的过滤器CommonDialog2 DialogTitle 选择文件 设置对话框的标题 通用对话框例 打开 保存文件 PrivateSubcommand1 Click 打开菜单CommonDialog1 Filter Text txt txt CommonDialog1 ShowOpenOpenCommonDialog1 FilenameForBinaryAs 1Text1 Text Input LOF 1 1 Close 1EndSub 通用对话框 PrivateSubcommand2 Click 保存菜单CommonDialog1 Action 2OpenCommonDialog1 FilenameForOutputAs 1Print 1 Text1 TextClose 1EndSub 其他对话框 1 颜色对话框使用 颜色 对话框可设置颜色属性 对应的Windows颜色对话框如图所示 其属性和含义如表所示 其他对话框 例如 Commondialog1 ShowcolorForm1 BackColor CommonDialog1 Color表示将用户在 颜色 对话框中设置的颜色作为窗体背景色 其他对话框 2 字体对话框 其他对话框 例如 CommonDialog1 ShowFontText1 FontName CommonDialog1 Filename表示将用户在 字体 对话框中设置的字体作为文本框的字体 其他对话框 例利用颜色对话框和字体对话框设置文本框中文字的颜色和字体 在窗体上放置一个文本框 两个命令按钮和一个通用对话框 控件属性如表 其他对话框 其他对话框 PrivateSubCommand1 Click CommonDialog1 ShowColor 显示颜色对话框Text1 ForeColor CommonDialog1 Color 颜色设置EndSubPrivateSubCommand2 Click CommonDialog1 ShowFont 显示字体对话框 Text1 FontName CommonDialog1 FileName 设置字体Text1 FontSize CommonDialog1 FontSize 设置字体大小Text1 FontBold CommonDialog1 FontBold 设置是否粗体Text1 FontItalic CommonDialog1 FontItalic 是否斜体Text1 FontUnderline CommonDialog1 FontUnderline 是否有下划线EndSub DTPicker控件 DateTimePicker DTPicker控件可以按指定格式显示日期或时间 并且作为修改日期和时间信息的界面 该控件属于MicrosoftWindowsCommonControls 26 0中的控件 加载后方可使用 DTPicker有两种不同的显示模式 由Format属性控制 下拉日历模式 单击控件右部的下拉箭头可显示日历 用于选择日期 Format取值0 1 时间显示模式 用于显示或设置时间 可在控件中选择一个域 时 分 秒 后 用控件右部的上下箭头设置其值 亦可通过键盘输入数字或按箭头键设置其值 Format取值2 DTPicker控件的属性 Value属性 用于返回或设置日期和时间 DayOfWeek属性 判断当前选中的日期是星期几 取值为1 7 星期日星期一星期二 7星期六 程序举例 判断当前选中的日期是星期几 PrivateSubcommand1 Click IfDTPicker1 DayOfWeek 1ThenLabel1 Caption 今天是星期日 ElseIfDTPicker1 DayOfWeek 2ThenLabel1 Caption 今天是星期一 ElseIfDTPicker1 DayOfWeek 3ThenLabel1 Caption 今天是星期二 ElseIfDTPicker1 DayOfWeek 4ThenLabel1 Caption 今天是星期三 ElseIfDTPicker1 DayOfWeek 5ThenLabel1 Caption 今天是星期四 ElseIfDTPicker1 DayOfWeek 6ThenLabel1 Caption 今天是星期五 ElseIfDTPicker1 DayOfWeek 7ThenLabel1 Caption 今天是星期六 EndIfEndSub ProgressBar控件 在应用程序中 当执行一个耗时较长的操作时 可用ProgressBar控件 进度条 显示事务的进程 ProgressBar属于MicrosoftWindowsCommonControls6 0中的控件 需要加载后使用 ProgressBar控件有三个最重要的属性Min Max和Value Min和Max用于设置进度条的起点和终点 Value属性用于在运行时设置或返回进度条的填充量 在显示某操作的进展情况时 可以将Value值设为从Min值开始递增 直到由Max属性定义的最大值为止 下面通过实例说明该控件的使用 例 用进度条和定时器控件模拟启动界面加载进度 加载完成后载入主界面 DimiAsIntegerPrivateSubForm Load ProgressBar1 Min