08VB中常用控件.pptVIP

通用对话框 VB6.0为用户提供了一组基于Windows标准的对话框，称为通用对话框，即CommonDialog。包括“打开”对话框、“另存为”对话框、“颜色”对话框、“字体”对话框、“打印”对话框以及“帮助”对话框。 通用对话框不是标准控件，使用时必须先将该控件添加到工具箱里。将CommonDialog添加到工具箱里的步骤如下： 1．选择“工程”下拉菜单中的“部件”子菜单，弹出“部件”对话框。 2．在“部件”对话框列表中选择“Microsoft Common Dialog Control6.0”项目，确保其前方的复选框内出现“√”。 3．单击确定按钮。添加完成后工具箱里出现CommonDialog的图标。具体操作如图12-10 所示。 通用对话框 通用对话框常用的属性有名称属性和Action属性等。系统默认的通用对话框名称为CommonDialog1、CommonDialog2……。Action属性决定程序打开什么类型的对话框。具体Action属性、含义及对应的方法。 通用对话框 把CommonDialog控件添加到窗体后，就意味着上述各种标准对话框可以被使用了。当某一时刻需要用到某个对话框时，必须通过设置Action属性或VB6.0的方法才能使之显示在屏幕上。 例如要显示“打开”对话框，在程序中利用设置Action属性则对应语句如下： CommonDialog1.Action=1 也可在程序中用控件的方法完成对话框的显示。 CommonDialog1.ShowSave 通用对话框 1文件对话框 文件对话框包括“打开”和“另存为”对话框。使用“打开”、“另存为”对话框可以设置文件对话框的属性。文件对话框属性页中的属性和含义如表12-5所示。 通用对话框 例8.4 将例8-1 里“新建”和“打开”菜单功能补充完整。 注意：先将通用对话框添加到工具箱里，再将CommonDialog控件添加到窗体上。在窗体上单击各菜单项，完成下述代码 ： Private Sub mnuFileNew_Click() 新建菜单 CommonDialog1.ShowSave Text1.Text = Form1.Caption = 新建文件 End Sub 通用对话框 Private Sub mnuFileOpen_Click() 打开菜单 Dim Filename As String, m As String Filename = CommonDialog1.ShowOpen CommonDialog1.Filter = Text(* .txt)|*.txt Filename = CommonDialog1.Filename If Filename = Then MsgBox no file open, vbExclamation + vbOKOnly, System Else MsgBox you open + Filename + !, vbInformation, System End If Open CommonDialog1.Filename For Input As #1 将文件打开 Input #1, m 将文件内容读入到文本框里 Text1.Text = m Close #1 End Sub 通用对话框 Private Sub mnuFileSave_Click() 保存菜单 CommonDialog1.Action = 2 Open CommonDialog1.Filename For Output As #1 Print #1, Text1.Text Close #1 End Sub 通用对话框 某次单击“新建”菜单时弹出的对话框和Windows默认风格一致。 其他对话框 1．颜色对话框 使用“颜色”对话框可设置颜色属性，对应的Windows颜色对话框如图所示。其属性和含义如表所示。 其他对话框 例如： Commondialog1.Showcolor Form1.BackColor=CommonDialog1.Color 表示将用户在“颜色”对话框中设置的颜色作为窗体背景色。 其他对话框 2．字体对话框 使用“字体”对话框可设置字体属性。其属性和含义如表所示。 其他对话框 例如： CommonDialog1.ShowFont Text1.FontName = CommonDialog1.Filename 表示将用户在“字体”对话框中设置的字体作为文本框的字体。 其他对话框 例8.5 利用颜色对话框和字体对话框设置文