第八章 VB程序的共用对象.ppt

第八章 VB程序的共用对象 本章所要介绍的对象，并不是定义在某一类程序模块中的对象，而是由VB提供的，不管哪一类程序模块都可以使用它，故称为共用对象。 8-1 APP对象及其应用 １．如何得知当前应用程序的所在文件夹？ 利用app对象的path属性 app.path：代表的是应用程序所在的文件夹。 例如：应用程序放在“E:\VB” 则读取 app.path 其值： E:\vb 例如：应用程序放在“E\” 则读取 app.path 其值：E:\ 假设我们要想装入应用程序所在文件夹中的某一个图像文件则图片文件路径可以利用app.path读取。写成： dim path as string path=app.path if right(path,1)”\” then path=path “\” set image1.picture=;oadpicture(path +”fruit0.gif”) ２．APP对象用来记录程序相关信息的属性 利用app对象属性值在程序中可以获取工程属性对话框中项 目值。 8-2 clipboard对象及其应用 clipboard是 VB提供给程序控制剪贴板的一个对象。 1．Clipboard（剪贴板）对象 在VB的程序设计中，如果想要复制数据到剪贴板中或是从剪贴板中提取数据粘贴到程序中，就必须使用clipboard对象所提供的方法： Clipboard对象方法： 方法 说明 getformat 检查剪贴板之中否会有文字或图形数据 gettext 取得剪贴板中的文本数据 settext 将文本数据复制到剪贴板 getdata 取得剪彩板中图像数据 setdata 复制图像数据到剪贴板之中 clear 清除剪贴板中内容 1）检查数据格式getformat 由于剪贴板中可以保存多种不同格式的数据，因此在使用其中的数据之前，必须先检查剪贴板中是否含有所需数据，这就使用getformat方法： Getformat方法及其语法格式： x=clipboard.getformat(数据格式） 数据格式 说明 VBCFTEXT 文本格式 VBCFBITMAP 位图格式 如果剪贴板中含有所需的数据格式，则getformat就返回true否则返回false 2）文字数据的读取与设置 读取剪贴板中文字 想要读取剪贴版中的文本格式数据，就需要使用gettext方法， 格式： clipboard.gettext(vbcftext) 例如：读取文本格式数据，并将其赋给textbox控件的text属 性。 text1.text=clipboard.gettext(vbcftext) 或 text1.seltext=clipboard.gettext() 3）将文本复制到剪贴板 clipboard.settext 文本内容 [，vbcftext] 例如：将textbox中的所有内容复制到剪彩贴板之中 clipboard.settext text1.text 例如：将textbox中被选内容复制到剪贴板中 clipboard.settext text1.seltext 例：编写一个具有剪切、复制、粘贴等功能的简易文本编辑程序（ch08\练习5.vbp) 8-3 错误处理与err对象 程序的错误按照严重性可分为“不可处理”和“可处理”两种。下面讨论仅限于可处理的错误。 当VB将VB程序编译成可执行文件时，实际上会为VB程序附加上“监测错误的程序代码”。例如： dim x(1 to 3 ) as integer x(4)=100 当执行到 x(4)=100 时候，“监测错误的程序代码”程序就会监测到发生错误，并记录于err对象。 监测到错误时，实际上它有几种处理方式： 1）不理会错误，继续向下执行。 2）强制程序跳转处理错误的程序的位置。 3）显示错误信息，然后结束程序。 对应语句： 1）on error resume next 2）on error goto 标记 3）on