UC知道vb添加Flash的地址问题（急，请高手帮忙）
来源：百度知道 编辑：UC知道 时间：2024/06/01 07:43:22
vb添加Flash只能用绝对地址吗？我怎么用不起相对地址啊！
例如：
D盘中A文件夹中是vb工程文件和其他一起的文件，还有生成的EXE文件，我用vb添加Flash，01.swf 文件也是放在A文件夹中。代码是：
Private Sub Form_Load()
Me.ShockwaveFlash1.Movie = "D:\A\01.swf"
End Sub
这样做就可以播放，但是假如这样写：
Private Sub Form_Load()
Me.ShockwaveFlash1.Movie = "01.swf"
End Sub
就不能播放了，这是怎么回事啊！文件都在同一个文件夹中了，还要用绝对地址才行啊？这样很不方便拷贝到其他地方去运行，请问高手有没有办法就用相对地址就可以了啊 （就是说只要文件在同一个文件夹中，拷贝到其他机子中也能运行，绝对地址就不行，因为前面加了盘符的，拷贝到其它机子中去，路径就变了，所以很不方便，所以就想找用相对地址的方法。）~~
请高手帮帮忙~~~
例如：
D盘中A文件夹中是vb工程文件和其他一起的文件，还有生成的EXE文件，我用vb添加Flash，01.swf 文件也是放在A文件夹中。代码是：
Private Sub Form_Load()
Me.ShockwaveFlash1.Movie = "D:\A\01.swf"
End Sub
这样做就可以播放，但是假如这样写：
Private Sub Form_Load()
Me.ShockwaveFlash1.Movie = "01.swf"
End Sub
就不能播放了，这是怎么回事啊！文件都在同一个文件夹中了，还要用绝对地址才行啊？这样很不方便拷贝到其他地方去运行，请问高手有没有办法就用相对地址就可以了啊 （就是说只要文件在同一个文件夹中，拷贝到其他机子中也能运行，绝对地址就不行，因为前面加了盘符的，拷贝到其它机子中去，路径就变了，所以很不方便，所以就想找用相对地址的方法。）~~
请高手帮帮忙~~~
Private Sub Form_Load()
Me.ShockwaveFlash1.Movie = App.Path & "\01.swf"
End Sub
App.Path
APP：是一个对象，指应用程序本身。
App.Path 是系统内的一个变量值，app.path是返回程序所在的路径 (是程序的工作目录,不一定都是程序路径) ，一个相对路径。如果你要打开的文件和你的程序在同一个文件夹下，那就可以这样app.path ＆"\文件名"
werwerr
用相对地址最好用app，例：
Private Sub Form_Load()
Me.ShockwaveFlash1.Movie = App.Path & "\01.swf"
End Sub
'App.Path指程序当前路径
App.Path指程序当前路径
App.Path 当前程序路径
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path + "\01.swf"
ShockwaveFlash1.Menu = False
ShockwaveFlash1.Playing = True
end sub