VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 谈变VB中APP.PAHT的注意事项
发表评论(0)作者:上海 DieZone, 平台:VB6.0+Win98, 阅读:9873, 日期:2000-11-21
谈变VB中APP.PAHT的注意事项  
     VB中,App.path可以返回当前执行文件的所在文件夹,使得程序放在硬盘的任何地方都能正常运行,这个方法在编VB时很常用。如:我把我的程序及相关文件放在c:\programx中,运行该文件夹下的xxx.exe(即c:\programx\xxx.exe),而程序中要调用该文件夹下的pic1.jpg,则该路径可以写成App.path & "\pic1.jpg",其中App.path返回的值为“c:\programx”,这样,即使把c:中的programx文件夹搬到d:\,返回路径也会自动变成“d:\programx\pic1.jpg”。这个程序看来似乎没有问题,但是,如果我们把c:\programx\下的文件全都搬到d:\下,而不放在任何文件夹下,返回的路径就会变成“d:\\pic1.jpg”,发生错误!还有,如果程序中使用了DirListBox的path属性来返回路径时,也会发生类似的错误。因此,程序中必须对这些情况做相应处理。现举一个 调用当前文件夹下的图片pic1.jpg 的例子:
      if right(app.path,1)="\" then
      判返回路径的最后一个字母是否为“\”
      picture1.picture=loadpicture(app.path & "pic1.jpg")
      else
      picture1.picture=loadpicture(app.path & "\pic1.jpt")
      end if
      这样,就可返回正确路径了。道理很简单,不过大家以后可得注意了。
      (上海 DieZone)