多媒体程序设计2.ppt

ActiveX 控件应用 Visual Basic的控件有三种广义分类： 1.内部控件 内部控件总是出现在工具箱中 2.ActiveX控件 是扩展名为.ocx 的独立文件，有了这些控件就可在应用程序中引入高级功能 3.可插入的对象 例如一个包含公司所有雇员的列表的Microsoft Excel工作表对象。 通用对话框 VB6.0为用户提供了一组基于Windows标准的对话框，称为通用对话框，即CommonDialog。包括“打开”对话框、“另存为”对话框、“颜色”对话框、“字体”对话框、“打印”对话框以及“帮助”对话框。 通用对话框不是标准控件，使用时必须先将该控件添加到工具箱里。将CommonDialog添加到工具箱里的步骤如下： 1．选择“工程”下拉菜单中的“部件”子菜单，弹出“部件”对话框。 2．在“部件”对话框列表中选择“Microsoft Common Dialog Control6.0”项目，确保其前方的复选框内出现“√”。 3．单击确定按钮。添加完成后工具箱里出现CommonDialog的图标。具体操作如图所示。 通用对话框 通用对话框常用的属性有名称属性和Action属性等。系统默认的通用对话框名称为CommonDialog1、CommonDialog2……。Action属性决定程序打开什么类型的对话框。具体Action属性、含义及对应的方法。 通用对话框 把CommonDialog控件添加到窗体后，就意味着上述各种标准对话框可以被使用了。当某一时刻需要用到某个对话框时，必须通过设置Action属性或VB6.0的方法才能使之显示在屏幕上。 例如要显示“打开”对话框，在程序中利用设置Action属性则对应语句如下： CommonDialog1.Action=1 也可在程序中用控件的方法完成对话框的显示。 CommonDialog1.ShowOpen 通用对话框 1文件对话框 文件对话框包括“打开”和“另存为”对话框。使用“打开”、“另存为”对话框可以设置文件对话框的属性。文件对话框属性页中的属性和含义如表所示。 通用对话框例：打开、保存文件 Private Sub command1_Click() 打开菜单 CommonDialog1.Filter = Text(* .txt)|*.txt CommonDialog1.ShowOpen Open CommonDialog1.Filename For Binary As #1 Text1.Text = Input(LOF(1), #1) Close #1 End Sub 通用对话框 Private Sub command2_Click() 保存菜单 CommonDialog1.Action = 2 Open CommonDialog1.Filename For Output As #1 Print #1, Text1.Text Close #1 End Sub 其他对话框 1．颜色对话框 使用“颜色”对话框可设置颜色属性，对应的Windows颜色对话框如图所示。其属性和含义如表所示。 其他对话框 例如： Commondialog1.Showcolor Form1.BackColor=CommonDialog1.Color 表示将用户在“颜色”对话框中设置的颜色作为窗体背景色。 其他对话框 2．字体对话框 其他对话框 例如： CommonDialog1.ShowFont Text1.FontName = CommonDialog1.Filename 表示将用户在“字体”对话框中设置的字体作为文本框的字体。 其他对话框 例 利用颜色对话框和字体对话框设置文本框中文字的颜色和字体。 在窗体上放置一个文本框，两个命令按钮和一个通用对话框，控件属性如表。 其他对话框 其他对话框 Private Sub Command1_Click() CommonDialog1.ShowColor ′显示颜色对话框 Text1.ForeColor = CommonDialog1.Color ′颜色设置 End Sub Private Sub Command2_Click() CommonDialog1.ShowFont 显示字体对话框。 Text1.FontName = CommonDialog1.FileName ′设置字体 Text1.FontSize = CommonDialog1.FontSize ′设置字体大小 Text1.Fo