2011年度计算机等级考试二级VB复习指导(54)

会计考友

　【字体】对话框也是Windows应用程序中常用的对话框，通过该对话框可以方便地设置文本的字体、字号以及文字的各种效果，如斜体、下划线等。　　单击通用对话框控件【属性页】对话框的【字体】选项卡，从中可以设置【字体】对话框的有关属性〔也可以在【属性】窗口中设置)。表6.13中列出了【字体】对话框各属性的含义。

- y) {9 C1 g: j0 A$ a
2 r' U4 `9 A- y
　　实例6.6字体对话框的使用。
　　在该程序中，用户可以调用【字体】对话框来设置文本的字体、字号以及各种效果。
　　在窗体上放置一个标签控件、一个文本框控件、一个按钮控件和一个通用对话框控件。其中各对象的属性设置如表6.15所示。

　　双击【设置字体】按钮，打开【代码】窗口，将下列代码添加到ComFont_Click事件过程中：
  　　Private Sub ComFont_Click()
9 R9 I7 }! p5 Y- p0 f　　DiaFont.Action=4
　　TexFont.FontName=DiaFont.FontName
　　TexFont.FontSize=DiaFont.FontSize
　　TexFont.FontBold=DiaFont.FontBold
2 z2 k2 K0 w! D( x  \2 G　　TexFont.FontItalic=DiaFont.FontItalic
% f0 f6 c! P4 m- F  D, L　　TexFont.FontUnderline=DiaFont.FontUnderline
　　TexFont.FontStrikethru=TexFont.FontStrikethru
8 {9 J1 G  p6 i% F% O　　TexFont.FontColor=DiaFont.Color
& N& d" L  ^5 Z( I　　End Sub
- q* A2 c' d$ @/ h# g+ N* j　

　　在ComFont_Click事件过程中，第一行语句用来调用字体对话框，第二行语句是将用户在对话框中所选择的字体赋给文本框TexFont的FontName属性，其他语句的功能与此类似。
2 d' V) k! a; `/ K6 u2 \- G: E1 D　　运行该程序，在文本框中输入一段文本，文本的字体、字号等特征由文本框的Font属性决定。单击【设置字体】按钮，则出现【字体】对话框，可见，对话框中各项属性的初始值就是在属性页(或【属性】窗口)中设置的值，如默认的字体为在FilelName属性中设置的宋体。从中选择字体、字号以及各种效果后，单击【确定】按钮，则文本框中的文本就以新的设置显示。例如，选择字体为“幼圆”，字体样式为“斜体”，字号为“三号”，选中“下划线”效果，并且选择颜色为“红色”，单击【确定】按钮后，则文本框中文本的显示如图6.19所示。
. l, z$ T6 P- T& |