第8章对话框和菜单说课讲解.pptVIP

第8章 对话框和菜单;本章内容;8.1.1 对话框概述;8.1.1 对话框概述;8.2.1 通用对话框控件;;把通用对话框添加到工具箱以后，就可以像使用标准控件一样把它添加到窗体上。缺省情况下通用对话框的名称为CommonDialogn(n为1、2、3…)。 通用对话框控件可以被设计为显示6种不同的对话框，每一种对话框对应一个不同的Action属性值和一个Show方法，其对应关系如表8-1所示。;;8.2.2 “打开”/“另存为”对话框;;3．FilterIndex属性 FilterIndex属性为整型，用于确定选择了何种文件类型，缺省设置为0，系统取Filter属性设置中的第一项，相当于FilterIndex属性值设置为1，在上例中，如选择“Word文档(*.doc)”可以不设置，也可将FilterIndex属性值设置为1。 4．InitDir属性 用来指定对话框的起始目录。如果没有设置InitDir，则显示当前目录。例如： CommonDialog1.InitDir =C:\zjicmFile 5．DefaultExt属性 设置对话框中默认文件扩展名。 6．CancelError属性 CancelError属性为逻辑型值，表示用户在与对话框进行信息交换时，按下“取消”按钮时是否产生出错信息。 当该属性设置为True时，无论何时单击“取消”按钮，将出现错误警告；Err对象的Number属性值置为32755（cdlCancel）。 当该属性设置为False（缺省）时，单击“取消”按钮，不会出现错误警告。 注意，上述属性若在程序中设置，都必须放在使用Action属性或用ShowOpen和ShowSave方法调用“打开”或“另存为”对话框的语句之前；否则该属性不效。;;;（1）界面设计 在窗体上建立一个Picture1控件，用于显示图片；建立通用对话框控件CommonDialog1；再建立两个命令按钮，如图8-6所示。;Private Sub Command1_Click() CommonDialog1.dialogtitle = 打开图片文件 设置对话框标题 CommonDialog1.InitDir = C:\winnt\ 设置打开目录 设置过滤器属性 CommonDialog1.Filter = 所有文件（*.*）|*.*|bmp文件|*.bmp|gif文件|*.gif CommonDialog1.filterindex = 2 设置过滤器索引默认属性为2 CommonDialog1.Action = 1 调用打开文件对话框 Picture1.Picture = LoadPicture(CommonDialog1.FileName) 加载所选择的图片 End Sub Private Sub Command2_Click() CommonDialog1.dialogtitle = 图片另存为 设置对话框标题 CommonDialog1.InitDir = C:\winnt\ 设置打开目录 设置过滤器属性 CommonDialog1.Filter = 所有文件（*.*）|*.*|bmp文件|*.bmp|gif文件|*.gif CommonDialog1.Defaultext = bmp 设置默认属性为2 CommonDialog1.Action = 2 调用另存为文件对话框 SavePicture Picture1.Picture, CommonDialog1.FileName End Sub;8.2.3 “颜色”对话框 ;【例8-2】设计一形状程序，通过“颜色”对话框对形状进行着色。;（1）界面设计 在窗体上建立一个形状控件Shape1，用于显示各种形状；建立通用对话框控件CommonDialog1；再建立框架，并在其中建立单选按钮控件数组，如图8-9所示。;;8.2.4 “字体”对话框 ;“字体”对话框为用户提供了一个标准的进行字体设置的界面（如图8-11所示），通过该对话框用户可以选择字体、字体样式、字体大小、字体效果以及字体颜色。;2．Flags属性 Flags属性确定对话框中显示字体的类型，在显示字体对话框前必须设置该属性，否则会产生不存在字体的错误。常用设置如表8-2所示。使用Or运算符可以为一个对话框设置多个标志，如cdlCFScreenFonts Or cdlCFEffects。 其中，要使用FontStrikethru、FontU