shell

Question

CommonDialog1.Action = 1                     '1打开2保存3颜色4字体，5打印
pathname = "C:\WINDOWS\system32\mspaint.exe" _
+ "" + CommonDialog1.FileName
retval = Shell(pathname, 1)
怎么编译的时候说参数不对啊

Answer 1

pathname = "C:\WINDOWS\system32\mspaint.exe" _
+ "" + CommonDialog1.FileName貌似你想在""中加一个空格吧？不过好像没有耶，但是应该不会影响编译丫？

Answer 2

Private Sub Command1_Click()
RetVal = Shell("mspaint", 1)
End Sub

Answer 3

画图程序的默认参数是有一个空格的:
retval=shell("C:\WINDOWS\system32\mspaint.exe c:\laohu.bmp")'打开位图文件laohu.bmp
所以你那个应该改为:
pathname="C:\WINDOWS\system32\mspaint.exe"+" "+CommonDialog1.FileName 
retval=Shell(pathname,vbmaximizedfocus)