VB中APP对象及其应用

2016-02-19 17:55 31 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以上版本中均存在。)
　　(四川韩潮涌)
　　编辑点评：和上期关于延时处理的小程序一样，本期边学边练栏目推荐给大家的也是软件实用化的一个小小改进。本文所讨论的问题可能对于有数据库操作的软件尤具实际意义，看了本文你是否可以不必再为你的软件指定固定的目录了呢？->

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

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

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

VxD技术及其在实时反病毒中的应用

标签：编程语言网络编程

目前国内的Windows9x平台反病毒产品大多属静态反病毒软件,指导思想是"以杀为主",这一方式的缺点是病毒在被清除之前可能早已造成了严重危害一个好的反病毒软件应该是"以防为主,以杀为辅",在病毒入侵时就把它清除掉,这就是实时反病毒技术。 ----Windows9x使用IntelCPU的Ring0和Ring3两个保护级。系统进程运行于Ring...

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

标签：编程语言网络编程

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

在VFP、VB应用程序中激活鼠标功能

标签：编程语言网络编程

鼠标是WINDOWS环境下不可缺少的输入工具,在应用程序中灵活地使用鼠标功能,会给工作带来极大的方便.VISUAL FOXPRO6.0和VISUAL BASIC6.0是MICROSOFT VISUAL STUDIO98面向对象的可视化开发环境,它功能非常强大,而且设计程序简单实用.它提供了与鼠标操作有关的事件和API函数,所以编写鼠标功能程序就变得非常简单,只需在程序中调用这些事件和API...

Dreamweaver教程：层及其应用

标签： Web开发

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

Connection对象的应用

标签： ASP

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

查看更多精彩>>