请教vb 调用grads怎么调用

congra321

各位老师：
    本人所用语句：Shell("c:\PCGrADS\win32e\Grads.exe  run  -blc  " + FilePath, vbHide)，其中FilePath为写好的*.gs文件，并能够手动在grads中运行成功，但用vb调用却一直不成功，请教各位要怎么做？请写一下详细语句，感激不尽！！

mofangbao

我只在c#和vfp中用过，vb中原理应该是一样的，我帮你试试

congra321

谢谢mofangbao，在线等待！！！

mofangbao

Shell("c:\PCGrADS\win32e\Grads.exe  run  -blc  " + FilePath, vbHide)
应该是语句的顺序写错了，你把 -blc 放到 grads.exe 和run之间试试

congra321

还是不对，提示：Unknown command line keyword:c:\temp\uvq.gs
Running in Batch mode
RUN error:  No file name specified
麻烦你了

congra321

非常感谢mofangbao，按照你的提示，把 run去掉，用Shell("c:\PCGrADS\win32e\Grads.exe -blc " + FilePath, vbHide)就可以画出图形来了，谢谢

mofangbao

我刚想说可以这样子呢，还有一个办法，可以不去掉run也能运行，你看一下我测试的代码
（几乎是我第一次写vb代码，见笑了，大家一起学习，多多来论坛支持啊）

1. 
   
2. Private Sub Command1_Click()
   
3. Dim FilePath As String
   
4. Dim res
   
5. FilePath = "E:\projects\gseditor\GsEditor\bin\Release\Data\160\test.gs'"
   
6. res = Shell("C:\OpenGrADS\Contents\Cygwin\Versions\2.0.a7.oga.3\i686\grads.exe -blc 'run   " + FilePath)
   
7. End Sub
   

<br /> Private Sub Command1_Click()<br /> Dim FilePath As String<br /> Dim res<br /> FilePath = "E:\projects\gseditor\GsEditor\bin\Release\Data\160\test.gs'"<br /> res = Shell("C:\OpenGrADS\Contents\Cygwin\Versions\2.0.a7.oga.3\i686\grads.exe -blc 'run   " + FilePath)<br /> End Sub<br />

congra321

本人的grads版本是1.8sl11，可能是版本的问题，加上run就不能成功作图，提示：
Running in Batch mode
RUN error:  No file name specified
，不用run就可以运行成功了，感谢mofangbao的帮助！

传说中的谁

哇！原来不止我一个在用VB这老古董啊

zdhai

我同学前段时间刚写了一篇关于VB中使用GRDAS的论文，其中比较详细的介绍了方法，具体名字不太记得了