(第11章界面设计.pptVIP

11.2.1 “打开”/“另存为”对话框 属性 1 FileName(文件名称）属性：在程序中可用该属性值设置或返回用户所选定的文件名（包含路径） 2 FileTitle（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径） 11.2 通用对话框 11.2 通用对话框 11.2 通用对话框 例11-1 设计一个如图所示的窗体，其中包含1个文本（Text1）和6个 命令按钮。程序运行后，单击命令按钮，可打开相应的对话框。 11.2 通用对话框 “打开”按钮的程序代码如下： 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 11.2 通用对话框 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 = 另存为对话框 11.2 通用对话框 .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 11.2 通用对话框 11.2.2 “颜色”对话框 Color属性是“颜色”对话框最重要的属性，它返回或设置在调色板中选定的颜色。上例中颜色对话框的代码如下： Private Sub cmdColor_Click() CommonDialog1.ShowColor 或CommonDialog1.Action = 3 Text1.ForeColor = CommonDialog1.Color 设置文本框的前景色 End Sub 11.2 通用对话框 11.2.3 “字体”对话框 1．Flags属性：确定对话框中显示的字体类型。 注意 在显示“字体”对话框前，必须先设置Flags 属性,否则，会发生字体不存在的错误。 11.2 通用对话框 11.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 =.Font