《VB程序的共用对象》PPT课件

《《VB程序的共用对象》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第八章VB程序的共用对象本章所要介绍的对象，并不是定义在某一类程序模块中的对象，而是由VB提供的，不管哪一类程序模块都可以使用它，故称为共用对象。8-1APP对象及其应用１．如何得知当前应用程序的所在文件夹？利用app对象的path属性app.path：代表的是应用程序所在的文件夹。例如：应用程序放在“E:VB”则读取app.path其值：E:vb例如：应用程序放在“E”则读取app.path其值：E:假设我们要想装入应用程序所在文件夹中的某一个图像文件则图片文件路径可以利用app.path读取。写成：dimpathasstringpath=

2、app.pathifright(path,1)<>””thenpath=path&“”setimage1.picture=;oadpicture(path+”fruit0.gif”)２．APP对象用来记录程序相关信息的属性利用app对象属性值在程序中可以获取工程属性对话框中项目值。例：打开ch07练习4.vbp在“工程属性/生成”中填上该应用程序信息：公司名：97软件公司，产品名：菜单试验，主版本：1，次版本：0，修改：0，合法版权：没有版权，欢迎复制。在应用程序主菜单中添加一个菜单命令“关于字体程序”，当选择该菜单命令时，显示有关该程序的信

3、息。（ch08练习3.vbp8-2clipboard对象及其应用clipboard是VB提供给程序控制剪贴板的一个对象。1．Clipboard（剪贴板）对象在VB的程序设计中，如果想要复制数据到剪贴板中或是从剪贴板中提取数据粘贴到程序中，就必须使用clipboard对象所提供的方法：Clipboard对象方法：方法说明getformat检查剪贴板之中否会有文字或图形数据gettext取得剪贴板中的文本数据settext将文本数据复制到剪贴板getdata取得剪彩板中图像数据setdata复制图像数据到剪贴板之中clear清除剪贴板中内容1）检查数据

4、格式getformat由于剪贴板中可以保存多种不同格式的数据，因此在使用其中的数据之前，必须先检查剪贴板中是否含有所需数据，这就使用getformat方法：Getformat方法及其语法格式：x=clipboard.getformat(数据格式）数据格式说明VBCFTEXT文本格式VBCFBITMAP位图格式如果剪贴板中含有所需的数据格式，则getformat就返回true否则返回false2）文字数据的读取与设置读取剪贴板中文字想要读取剪贴版中的文本格式数据，就需要使用gettext方法，格式：clipboard.gettext(vbcftext)

5、例如：读取文本格式数据，并将其赋给textbox控件的text属性。text1.text=clipboard.gettext(vbcftext)或text1.seltext=clipboard.gettext()3）将文本复制到剪贴板clipboard.settext文本内容[，vbcftext]例如：将textbox中的所有内容复制到剪彩贴板之中clipboard.settexttext1.text例如：将textbox中被选内容复制到剪贴板中clipboard.settexttext1.seltext例：编写一个具有剪切、复制、粘贴等功能的简易文

6、本编辑程序（ch08练习5.vbp)8-3错误处理与err对象程序的错误按照严重性可分为“不可处理”和“可处理”两种。下面讨论仅限于可处理的错误。当VB将VB程序编译成可执行文件时，实际上会为VB程序附加上“监测错误的程序代码”。例如：dimx(1to3)asintegerx(4)=100当执行到x(4)=100时候，“监测错误的程序代码”程序就会监测到发生错误，并记录于err对象。监测到错误时，实际上它有几种处理方式：1）不理会错误，继续向下执行。2）强制程序跳转处理错误的程序的位置。3）显示错误信息，然后结束程序。对应语句：1）onerrorr

7、esumenext2）onerrorgoto标记3）onerrorgoto0例：dimx(1to3)asintegeronerrorresumenextforI=1to10x(I)=100next这个程序会执行到I等于11时候，才跳出循环。例：dimx(1to3)asintegeronerrorgotoerrmsgforI=1to10x(I)=100nextIerrmsg:endsub结果：执行到I等于4时候会产生错误，接着会转到标号errmsg语句。例：dimx(1to3)asintegeronerrorgoto0forI=1to10x(I)=10

8、0next结果：当I等于4时候显示错误信息，中断程序。一般而言，采用“onerrorgoto标记”，的方式处