📄 12284.html
字号:
<html>
<head>
<title>Re: VB6.0一问----about "shell"......</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: VB6.0一问----about "shell"......</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:davide@tpts5.seed.net.tw">kkyy</a> on April 22, 1999 at 23:52:08:<p>
In Reply to: <a href="12277.html">Re: VB6.0一问----about "shell"......</a> posted by Andy on April 22, 1999 at 17:32:01:<p>
: : : : : 各位高手：<br>: : : : : 在VB中，我用"Shell"指令来连接一个DOS的外部指令，但在执行完后，皆会在工作列<br>: : : : : 上出现一个DOS的完成视窗(执行一次，出现一个)，请问我要如何作，才能在执行完后，<br>: : : : : 不会有此DOS视窗的出现呢?(或可让DOS视窗自动关闭)请帮帮忙吧，感激不尽!!!<p>: : : : ::将shell("c:\test.exe") 改为<br>: : : : shell("command.com /c c:\test.exe")<p>: : : 再请问一下，若我所连接的DOS外部指令后面接有参数，且<br>: : : 参数后接有从inputbox中所读取的value(如x,y,z),当我<br>: : : 以下面的写法来写时，我所input的值，根本不能被程式<br>: : : 所采纳，而程式都以0来代替：<br>: : : ---------------------------------------<br>: : : x=inputbox(rotate about x axis)<br>: : : y=inputbox(rotate about y axis)<br>: : : z=inputbox(rotate about z axis)<br>: : : shell "c:\test.exe filename -r x y z"<br>: : : ----------------------------------------<br>: : : 其中test.exe 在dos中执行时的写法为：<br>: : : test filename -r 30 50 60<br>: : : '30 50 60 为旋转角度<br>: : : 请问我需如何写，才能使shell内参数后的变数，变成我<br>: : : 们所input的值，被程式所接纳，而不会为0。<br>: : : 再次感谢您的大力帮忙!!<p>: : :::参数的传递有误,应为<br>: : shell "c:\test.exe filename -r "+x+" "+ y+" "+ z<p>: 超强的kkyy：<br>: 能不能再问您一个问题，就是我用dialog来读进一个<br>: 资料档abc.geo时，程式如下：<br>: -----------------------------------------------<br>: Private Sub mnuRead_Click()<br>: On Error GoTo Exit1<br>: Dialog.Action = 1<br>: Form1.Caption = Dialog.FileName<br>: Exit1:<br>: End Sub<br>: ---------------------------------------------<br>: 请问我要如何做，才能把abc.geo放入shell的指令中<br>: 来取代如下程式中的filename呢?大恩不言谢，尽在不言<br>: 中!!!<br>: ------------------------------------------------<br>: shell "c:\test.exe filename -r "+x+" "+y+" "+z<br>: -------------------------------------------------<p>Private Sub mnuRead_Click()<br>dim ggyy as string <br> On Error GoTo Exit1<br> Dialog.Action = 1<br> ggyy = Dialog.FileName<br> shell "c:\test.exe "+ggyy+" -r "+x+" "+y+" "+z<br> <br>Exit1:<br>End Sub<p>其实说穿了指是组合字串传给 shell 的含数而已.
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 12284-->
</ul><!--end: 12284-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -