第6章 常用控件与系统对象.ppt

3．GetText方法 使用此方法从剪贴板中获得一字符串。其语法格式为： Clipboard.GetText（[format]） 例如，要将剪贴板上的文字粘贴到文本框插入点所在处或替换选中的内容，则可使用如下语句： Text1.SelText=Clipboard.GetText() *6.8 常用系统对象 4．SetData方法 将图形数据保存到剪贴板上，要使用SetData方法，其使用语法格式为： Clipboard.SetData 〈data〉[,format] 其中， 〈data〉参数是必需的。为要放到 Clipboard 对象中的图形数据。 〈format〉参数是可选的。一个常数或数值，用来指定图片的格式，其取值见表6 -21，如果省略 format，则由系统自动决定图形格式。 5．GetData方法 用此方法从剪贴板中得到图形，其使用语法格式是： Clipboard.GetData（[format]） 例6.18 将两个图片框（Picture1、Picture2）中的图片交换 *6.8 常用系统对象 6．GetFormat方法 使用GetFormat方法，检查剪贴板中指定格式的数据存在否，它返回一个逻辑值。其语法格式： Clipboard.GetFormat (format) 例6.19 使用 GetFormat 方法确定剪贴板中是否有Bmp格式数据，如果有将其粘贴到图片框picture1中。 Private Sub Form_Click () If Clipboard.GetFormat(vbCFBitmap) Then Picture1.picture= Clipboard.GetData( ) End if End Sub *6.8 常用系统对象 6.8.3 Screen对象 Screen对象代表了整个Windows桌面。通过Screen对象，还可以在程序运行期间修改屏幕的鼠标指针。 属 性 作 用 ActiveControl 返回拥有焦点的控件 ActiveForm 返回拥有焦点的窗体 FontCount 返回屏幕可用的字体数 Fonts 返回当前显示器或活动打印机可用的所有字体名。Fonts是字符串数组 Height、Width MouseIcon 返回屏幕的高和宽（Twip为单位） 返回或设置自定义的鼠标图标 MousePointer 设置或获取鼠标的形状 Screen对象的常用属性 例6.20 打印输出计算机系统中显示器或活动打印机可用的所有字体名，其程序如下： Private Sub Command1_Click() Dim I As Integer For I = 0 To Screen.FontCount - 1 Print Screen.Fonts(I) Next I End Sub *6.8 常用系统对象 6.8.4 Printer对象和Printers集合对象 在VB中，要将处理结果的数据或图形通过打印机输出，就必须使用系统提供的Printer对象和Printers集合对象 1．Printer对象 *6.8 常用系统对象 表6-23 Printer对象常用的属性 属 性 含 义 DeviceName 返回设备名称、每个打印机驱动程序可以支持一个或多个设备 Height、Width 设置的纸张物理尺寸，如果在运行时设置该属性，则不用 PaperSize 属性的设置。即使PaperSize 属性已设置，则也无效 Page 返回当前页号 PaperSize 返回或设置一个值，该值指出当前打印机的纸张大小 *6.8 常用系统对象 表6-24 Printer对象几个重要的方法 方 法 含 义 Print 打印输出，使用与窗体的Print方法相同 EndDoc 用于终止发送给 Printer 对象的打印操作，将文档释放到打印设备或后台打印程序 KillDoc 用于立即终止当前打印作业 NewPage 用以结束 Printer 对象中的当前页并前进到下一页 例6.21 编程序打印3页文本，每页顶部都有当前页号。 2．Printers集合对象 用Printers集合可获取有关系统上所有可用打印机的信息。使用的语法格式如下： Printers(index) index为从0到Printers.Count-1 之间的整数。 例6.22 显示系统安装的打印机名 6.8.5 其他系统对象 除了上述对象外，系统还提供了Control对象、Controls集合对象、Form对象、Forms集合对