# Re: VB6.0一问----about "shell"......

Posted by kkyy on April 22, 1999 at 23:52:08:

In Reply to: Re: VB6.0一问----about "shell"...... posted by Andy on April 22, 1999 at 17:32:01:

: : : : : 各位高手：
: : : : : 在VB中，我用"Shell"指令来连接一个DOS的外部指令，但在执行完后，皆会在工作列
: : : : : 上出现一个DOS的完成视窗(执行一次，出现一个)，请问我要如何作，才能在执行完后，
: : : : : 不会有此DOS视窗的出现呢?(或可让DOS视窗自动关闭)请帮帮忙吧，感激不尽!!!

: : : : ::将shell("c:\test.exe") 改为
: : : : shell("command.com /c c:\test.exe")

: : : 再请问一下，若我所连接的DOS外部指令后面接有参数，且
: : : 参数后接有从inputbox中所读取的value(如x,y,z),当我
: : : 以下面的写法来写时，我所input的值，根本不能被程式
: : : 所采纳，而程式都以0来代替：
: : : ---------------------------------------
: : : x=inputbox(rotate about x axis)
: : : y=inputbox(rotate about y axis)
: : : z=inputbox(rotate about z axis)
: : : shell "c:\test.exe filename -r x y z"
: : : ----------------------------------------
: : : 其中test.exe 在dos中执行时的写法为：
: : : test filename -r 30 50 60
: : : '30 50 60 为旋转角度
: : : 请问我需如何写，才能使shell内参数后的变数，变成我
: : : 们所input的值，被程式所接纳，而不会为0。
: : : 再次感谢您的大力帮忙!!

: : :::参数的传递有误,应为
: : shell "c:\test.exe filename -r "+x+" "+ y+" "+ z

: 超强的kkyy：
: 能不能再问您一个问题，就是我用dialog来读进一个
: 资料档abc.geo时，程式如下：
: -----------------------------------------------
: Private Sub mnuRead_Click()
: On Error GoTo Exit1
: Dialog.Action = 1
: Form1.Caption = Dialog.FileName
: Exit1:
: End Sub
: ---------------------------------------------
: 请问我要如何做，才能把abc.geo放入shell的指令中
: 来取代如下程式中的filename呢?大恩不言谢，尽在不言
: 中!!!
: ------------------------------------------------
: shell "c:\test.exe filename -r "+x+" "+y+" "+z
: -------------------------------------------------

Private Sub mnuRead_Click()
dim ggyy as string
On Error GoTo Exit1
Dialog.Action = 1
ggyy = Dialog.FileName
shell "c:\test.exe "+ggyy+" -r "+x+" "+y+" "+z
Exit1:
End Sub

其实说穿了指是组合字串传给 shell 的含数而已.

Follow Ups: