第5章 Visual Basic 与用户对话.pptVIP

5.3.4 “字体”对话框 （4） (2)Font属性集：包括FontName(字体名)、FontSize(字号)、FontBold0(粗体)、FontItalic(斜体)、FontStrikethru(删除线)和FontUnderline(下划线)。 (3) Color属性：字体颜色。要使用该属性必须使Flags属性含有cdlCFEffects值。 【例5.4】用【字体】对话框设置文本框的字体，要求字体对话框内出现【效果】选项（下划线、删除线和颜色）。 在窗体上放置通用对话框，文本框和命令按钮。为按钮单击事件编写以下代码： Private Sub Command1_Click() With CommonDialog1 .Flags = cdlCFBoth Or cdlCFEffects 设置Flags .FontName = 宋体 设置对话框默认字体 .ShowFont 显示字体对话框 Text1.FontName = .FontName 设置文本框字体名 Text1.FontSize = .FontSize 设置字体大小 Text1.FontBold = .FontBold 设置粗体 Text1.FontItalic = .FontItalic 设置斜体 Text1.FontStrikethru = .FontStrikethru 设置删除线 Text1.FontUnderline = .FontUnderline 设置下划线 Text1.ForeColor = .Color 设置颜色 End With End Sub 当Flags=cdlCFBooth Or cdlCFEfects时，对话框如图5.10所示，与图5.8相比增加了【效果】选项。也可以用Flags=259表示该设置（256+3=259）。 图5.10 用Flags属性加入【效果】选项 返回首页 返回本节 5.3.5 【打印】对话框（1） 【打印】对话框如图5.11所示，设计时可通过图5.12所示的【属性页】设置其属性。运行时该对话框供用户选择打印机，设置打印参数（如打印范围、份数等）。通过对话框中的【属性】按钮可设置打印机的属性。【打印】对话框并不能处理打印工作，只是一个供用户选择或设置打印参数的界面，所设参数存于各属性中供编程使用。若要打印必须为Printer对象（表示所安装的默认打印机）编写程序来实现。 5.3.5 【打印】对话框（2） 图5.11 【打印】对话框 图5.12 【打印】对话框属性 5.3.5 【打印】对话框（3） 通用对话框用于打印操作时涉及到的重要属性主要有： （1）Copies（副本）：指定打印份数。 （2）FromPage（起始页）、ToPage（终止页）：打印的起始页号和终止页号。 （3）Min（最小值）、Max（最大值）：打印的最小页数和最大页数。 （4）Orientation（方向）：打印方向。cdlPortrait为纵向；cdlLandscape为横向。 【例5.5】在例5.4中增加一个命令按钮，调用【打印】对话框，打印文本框中的内容。 调用Printer对象的Print方法将要打印的内容发送到打印机即可实现打印。调用Printer对象的EndDoc方法可结束打印操作。代码如下： Private Sub Command2_Click() Dim i As Integer CommonDialog1.ShowPrinter 显示【打印】对话框 For i = 1 to CommonDialog1.Copies 按份数打印 Printer.Print Text1.Text 打印文本框中的内容 Next Printer.EndDoc 结束文档打印 End Sub 返回首页 返回本节 5.3.6 【帮助】对话框 （1） CommonDialog控件的ShowHelp方法可调用Windows的帮助引擎，并显示由HelpFile属性设定的一个帮助文件。 【帮助】对话框涉及到的重要属性有： （1）HelpFile（帮助文件）：用于指定帮助文件的路径及其文件名称。 （2）HelpCommand（帮助命令）：用于返回或设置所需要的联机帮助的类型。 5.3.6 【帮助】对话框 （2） 注意： 用于打开【帮助】对话框的ShowHelp方法仅支持.hlp类