UC知道vb显示gif问题，急~~~!!!!(高分)
来源：百度知道 编辑：UC知道 时间：2024/06/08 00:24:33
看到很多的vb里显示gif图片的资料
发现最好用的是用WebBrowser控件显示
问题是显示的方法是WebBrowser1.Navigate "c:\1.gif"
必须是指定本地图片路径或者是网络图片地址，有什么办法，让它显示的地址为程序的同一目录下的gif图片呢，假设这个图片的名字是1.gif
那么代码应该怎么写呢，谢谢！！！
发现最好用的是用WebBrowser控件显示
问题是显示的方法是WebBrowser1.Navigate "c:\1.gif"
必须是指定本地图片路径或者是网络图片地址，有什么办法，让它显示的地址为程序的同一目录下的gif图片呢，假设这个图片的名字是1.gif
那么代码应该怎么写呢，谢谢！！！
Dim Add As String
Add = App.Path & "\1.gif"
WebBrowser1.Navigate Add
'获取程序本身路径
Dim szpath As String
szpath = App.path'App 对象属性
If Right$(szpath, 1) <> "\" Then szpath = szpath & "\"
WebBrowser1.Navigate szpath & "1.gif"
app.path 相对路径