VB中APP对象及其应用

2016-02-19 17:55 37 1 收藏

岁数大了，QQ也不闪了，微信也不响了，电话也不来了，但是图老师依旧坚持为大家推荐最精彩的内容，下面为大家精心准备的VB中APP对象及其应用，希望大家看完后能赶快学习起来。

【 tulaoshi.com - 编程语言】

初学VB编程，很快就能编出些实用的程序了。我便将它们制成安装盘送给朋友，但很快就发现一个问题，程序总是按编程时固定好的路径读写文件，但文件路径改变，程序就找不到路径了，因此不能正常写文件。例如编程时设定：picture1.picture=LoadPicture("c:HVBHAN.BMP")但若安装使用时，工作目录变为E：HVBHAN.BMP或其它路径，程序就会出错，并提示：找不到文件路径。这个问题看起来很复杂，但实际上很好解决，这只需用VB的App对象。
　　App对象有两种重要属性：(1)App.Path，它在VB编程状态下返回你的.MAK文件所在目录；在以.EXE文件运行时，则返回你的.EXE文件所在目录。(2)App.EXEName它返回你的程序名。下面举一个简单的例子，假如你有一个程序为DDC，其目录为C：HVBDDC4(包括DDC.EXE)在VB编程环境下，在Debug窗口运行：PrintApp.Path,显示结果：C：HVBDDC4，再运行PrintApp.EXEName显示结果：DDC。知道了以上两种属性，前面所述问题就很好解决了，可以将其修改为：DimApath,DimFilePath
　　Apath=App.Path
　　FilePath=Apath＋"HAN.BMP"
　　Picture1.Picture=LoadPicture(FilePath)
　　这样，这程序的工作目录无论改为什么，都能正常工作了。
　　(注：文件目录为根目录时，以上情况略有不同，App对象在VB2.0以上版本中均存在。)
　　(四川韩潮涌)
　　编辑点评：和上期关于延时处理的小程序一样，本期边学边练栏目推荐给大家的也是软件实用化的一个小小改进。本文所讨论的问题可能对于有数据库操作的软件尤具实际意义，看了本文你是否可以不必再为你的软件指定固定的目录了呢？->

来源:http://www.tulaoshi.com/n/20160219/1616382.html

上一篇：巧用Windows 7备份与还原功能
下一篇： Win7如何批量安装字体？

看过《VB中APP对象及其应用》的人还看了以下文章更多>>

Dreamweaver教程：层及其应用

标签： Web开发

层（Layer）是一种 HTML 页面元素，您可以将它定位在页面上的任意位置。层可以包含文本、图像或其它 HTML 文档。层的出现使网页从二维平面拓展到三维。可以使页面上元素进行重叠和复杂的布局。首先，请看下图：我们首先来做一个层 1、在「窗口」菜单＞选“层”，或点「插入」菜单＞布局对象＞选“层”。 ...

在VB中使用文件对象

标签：编程语言网络编程

自从VisualBasic第一次发布到现在，它的大部分主要的特性大都被修改了不下一次。但文件操作部分却是个例外。在最原始的Basic语言中，文件就是用文件号（filenumber）来读写的。用一个数字来操作文件，或许者多少有一点晦涩难懂，这也令大多数的初学者感到不习惯和难以理解。随着VisualBasicScriptingEdition2.0版本的发布，微软提供了...

Jini设备及其应用实例

标签：编程语言网络编程

Jini技术的出现，使得Java在成功地为网络设备的计算提供了合适的平台之后，更为网络设备，尤其是家庭网络下的消费类电子设备提供了一个全新的网络计算结构，从而实现了人们期待已久的网络设备的即插即用。对Jini设备的硬件要求 !-- frame contents -- !-- /frame contents -- 虽然Jini本身是一个软件系统，但是一个...

在VB应用程序中恰当的使用声音

标签：编程语言网络编程

众所周知，VisualBasic是功能非常强大的多媒体开发工具，它有丰富的函数和方法处理各种各样的多媒体信息，能够很灵活的操作图形、声音、动画、影象等多媒体素材。但有时我们使用VisualBasic开发非多媒体应用程序，并不需要在应用程序中大量的使用声音，而只是需要在特定的场合出现。如Windows的警告声。这就要求程序员在恰当的环境中恰当的使用...

Connection对象的应用

标签： ASP

要建立数据库连接,首先应创建connection对象的实例,常用下面的脚本创建一个Connection对象实例: set conn=Server.CreatObject("ADODB.Connection") Dbpath=Server.MapPath(用户.mdb") conn.open"driver={Microsoft Access Driver(*.mdb);dbq="&Dbpath 这时已经建立了数据库的连接,可用"IsObject()"函数来测试是否已完成联接,代...

查看更多精彩>>