第九章第十章.ppt

Visual Basic 6.0 实用教程 杨　敏　编 著 第9章 应用程序中的文本处理 字体属性的设置 文本的输出格式简介 Clipbnard对象的应用 文件的操作方法 9.1 字体的设置 文本是使用字体来显示的，字体是具有铅字字样的字符集，能够以特定的大小、风格和粗细来使用。不同的字体可以给人不同的感觉，例如楷体秀丽，魏碑体刚劲，而隶书则散发着古韵。不同内容的文字需要配合恰当的字体才会具有更强的感染力。 在字体的使用上，还要注意不能走向另一个极端——那就是过分追求字体的多样性，恨不能把可以使用的字体全部都用上。要记住，字体的使用应是画龙点睛，而不是喧宾夺主，这其中要掌握好一个尺度。 9.1.1 检查可用的字体 程序能够容易地利用Printel和Screen对象的Fonts属性检测出用户系统和打印机中是否有可用的匹配字体。被Fonts属性所返回的数组是打印机或屏幕可用的所有字体的列表，程序员可以在程序中循环地通过该属性数组查找相匹配的名称字符串。下面的代码示例，将确定系统中是否有与所选定的字体相匹配的打印机字体： 　　　　Private Sub Form_Click() 　　　　 Dim I AsInteger,Flag AsBoolean 　　　　 For I=0 To Printer.FontCount-1 　　　　 Flag=StrComp(Font.Name，Printer Fonts(1),1) 　　　　 If Flag=TrueThen 　　　　 Debog.Print“There si a marching font.” 　　　　 Exit for 　　　　 End If 　　　　Next I 　　　　End Sub 9.1.2 设置字体特征 显示文本(作为文本或标题)的窗体、控件，以及支持Font属性的Printer对象，它们将确定文本的可视特征，包括： ①字体大小(用磅表示)： ②字体名(字样)； ③特别特征(黑体、斜体、下划线或删除线)。 在设计时，通过单击“属性”窗口中的“Font”框中的按钮，可以进入“字体”对话框中进行字体属性的设定，如图9-2所示。 9.1.3 把Font属性应用到特定的对象 9.1.4 使用小字体 设置字体属性产生的效果随着显示文本技术的不同而小同。如果文本是由一个属性指定(如Text或Ca ption)，则一个字体属性的改变将适用于此控件的所有文本。标签、文本框、框架、按钮、复选框和所有文件系统的控件，都是用一个属性来指定文本的。 某些字体不允许小于8磅，对于这样的字体，如果将它们的Size属性设置为小于8磅的尺寸,那么无论是Name属性还是Size属性，都会自动变为其他字体或尺寸。为了避免不是预期的结果，每次设置字体尺寸小于8磅的Size属性时，在设置好以后，一定要再检查一下Name属性和Size属性。 9.2.1 使用剪贴板剪切、复制和粘贴文本 Clipboard对象没有属性或事件，但它有几个可以与环境剪贴板往返传送数据的方法。Clipboard的方法可分为三类：GetText和SetText方法,用来传送文本；GetData和SetData方法，用来传送图形：GetFormat和Clear方法，可以处理文本和图形两种格式。 两个最有用的方法是SetText和GetText。用这两个方法向剪贴板和从Clipboard传送字符串数据。 SetText将文本复制到Clipboard 上，替换先前存储在那里的文本。可将SetText作为一条语句使用。其语法如下： Clipboard.SetText data[,format] 要注意的是Copy和Cut这两个过程，都要先用Clear方法将Clipboard清空。 9.2.1 使用剪贴板剪切、复制和粘贴文本 因为可能要以几种不同的格式在Clipboard上放置数据，所以Clipboard不应自动清空。然后,Copy和Cut这两个过程，都用下面的语句将Texl1中选择的文本复制到Clipboard上： Clipboard.SetText Text1.SelText 在“粘贴”命令中,GetText方法将返回Clipboard上当前的文本字符串，然后用一条赋值语句将该字符