Question

vb的shell路径引号

Private Sub Command1_Click()
Shell ("rundll32.exe C:\WINDOWS\system32\shimgvw.dll ImageView_Fullscreen C:\1.gif")
End Sub
Private Sub Command2_Click()

Dim path As String
path = App.path & "\1.gif"
Shell ("rundll32.exe C:\WINDOWS\system32\shimgvw.dll ImageView_Fullscreen path")
End Sub
语法没报错 按钮1有反应 按钮2没反应 按钮2路径 引号括引号 肯定报错 所以分开写 怎么不行

Answer 1

Shell ("rundll32.exe C:\WINDOWS\system32\shimgvw.dll ImageView_Fullscreen " & path)

这样试一下

另外你说的引号扩引号，其实是有办法的，在vb里面，字符串如果想添加引号，只需要把这个引号双写一次，变成如下

msgbox "I am a ""good"" boy"

双写的两个引号会变成字符串里的一个引号，上面这句话会弹出文本框，内容如下：
I am a "good" boy

追问

感谢 刚才我查过资料 水木社区 看到了这种写法 试了 没反应 前面看成一个整体 后面看成一个整体 连起来 对吧 chr(34) 连一堆引号 更麻烦 msgbox 字符串 引号括引号 没事 一个引号变成两个引号 路径可不行

追答

现在你还有问题吗？你是说想要用括号把最后的参数括起来是吗？
"rundll32.exe C:\WINDOWS\system32\shimgvw.dll ImageView_Fullscreen ""C:\1.gif"""

是要这样吗？

Answer 2

估计是path中有空格造成的，command2的path试试这样写：
path= """" & app.path & "\1.gif"""
Shell ("rundll32.exe C:\WINDOWS\system32\shimgvw.dll ImageView_Fullscreen “ & path )

追问

我没连成一体 path没有空格

Answer 3

Private Sub Command1_Click()
Shell ("rundll32.exe C:\WINDOWS\system32\shimgvw.dll ImageView_Fullscreen C:\1.gif")
End Sub

Private Sub Command2_Click()
Dim path As String
path = App.path & "\1.gif"
MsgBox path
path = "C:\Program Files\1.gif"
'path = "C:\Progra~1\1.gif"
Shell ("rundll32.exe C:\WINDOWS\system32\shimgvw.dll ImageView_Fullscreen " & path)
End Sub

给我分，我是重庆网活科技的VB程序员，今后可以给你回答许多问题。