第七章：对话框和菜单程序设计.pptVIP

7.2.3 “打开”/“另存为”对话框 属性 1 FileName(文件名称）属性：在程序中可用该属性值设置或返回用户所选定的文件名（包含路径） 2 FileTitle（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径） 7.2 通用对话框 例7.１ 设计一个如图所示的窗体，其中包含1个文本（Text1）和6个 命令按钮。程序运行后，单击命令按钮，可打开相应的对话框。 “打开”按钮的程序代码如下： Private Sub cmdOpen_Click() Dim StrText as string On Error Goto note 当出现错误时，跳转到note语句 With CommonDialog1 .DialogTitle = 打开对话框 .InitDir = “C:\ .Filter = Word文档(*.doc)|*.doc|文本文件 _ (*.txt)|*.txt|所有文件(*.*)|*.* .FilterIndex = 2 ： Text1.Text = .ShowOpen 或使用 CommonDialog1.Action = 1 Open .FileName For Input As #1 End with If Err.Number = 0 Then 如果打开文件正确 Do While Not EOF(1) Line Input #1, StrText Text1 = Text1 + StrText + vbCrLf vbCrLf是回车换行符 Loop Close #1 End If Note: End Sub “另存为”按钮的程序代码如下： Private Sub cmdSave_Click() with CommonDialog1 .DialogTitle = 另存为对话框 .InitDir = “C:\ .Filter=Word文档(*.doc)|*.doc|文本文件 _ (*.txt)|*.txt|所有文件(*.*)|*.* .FilterIndex = 2 .DefaultExt = *.Txt .Action = 2 或使用CommonDialog1.ShowSave Open .FileName For Output As #2 End With For i = 1 To Len(Text1) Print #2, Mid$(Text1, i, 1); Next i Close #2 End Sub 7.2.4 “颜色”对话框 Color属性是“颜色”对话框最重要的属性，它返回或设置在调色板中选定的颜色。上例中颜色对话框的代码如下： Private Sub cmdColor_Click() CommonDialog1.ShowColor 或CommonDialog1.Action = 3 Text1.ForeColor = CommonDialog1.Color 设置文本框的前景色 End Sub 7.2.5 “字体”对话框 1．Flags属性：确定对话框中显示的字体类型。 注意 在显示“字体”对话框前，必须先设置Flags 属性,否则，会发生字体不存在的错误。 7.2 通用对话框 “字体”按钮的程序代码如下： Private Sub cmdFont_Click() With CommonDialog1 .Flags = cdlCFScreenFonts Or cdlCFEffects .Max = 100 :.Min = 1 .ShowFont 也可以用.Action =4代替 Text1 .FontName =.FontName Text1.FontSize =.FontSize Text1.FontItalic =.FontItalic Text1.FontBold =.FontBold Text1.FontStrikethru =.FontStrikethru Text1.FontUnderline =.FontUnderline End With End Sub 7.2.6 “打印”对话框 1．Copies属性：整