Readygo技术搜索引擎 网络搜索 efish 2008-1-17 7:17:09

有谁知道在VB中如何做一个可以传运行参数的EXE文件.

楼主yun_yxr（千里马）2003-06-30 15:46:15 在 VB / 基础类 提问

就象在java和c++中那样可以在主函数处添加一个或多个入口参数.  
  有谁知道一定给分急迫!!!!! 问题点数：50、回复次数：8Top

1 楼nik_Amis（...）回复于 2003-06-30 15:54:02 得分 3

vba.commandTop

2 楼nik_Amis（...）回复于 2003-06-30 15:58:52 得分 3

vba.commandTop

3 楼gwlonghair（longhair）回复于 2003-06-30 16:00:04 得分 0

请楼上细说,谢谢Top

4 楼yun_yxr（千里马）回复于 2003-06-30 22:26:56 得分 0

nik_Amis(Azrael)   麻烦你说详细点很急明天要用多谢了Top

5 楼bigbigfans（小骁）回复于 2003-06-30 22:38:24 得分 39

Command   函数  
               
   
  返回命令行的参数部分，该命令行用于装入   Microsoft   Visual   Basic   或   Visual   Basic   开发的可执行程序。  
   
  语法  
   
  Command  
   
  说明  
   
  当从命令行装入   Visual   Basic   时，/cmd   之后的命令行的任何部分作为命令行的参数传递给程序。下面的示例中，cmdlineargs   代表   Command   函数返回的参数信息。  
   
  VB   /cmd   cmdlineargs  
   
  对于使用   Visual   Basic   开发并编译为   .exe   文件的应用程序，Command   返回出现在命令行中应用程序名之后的任何参数。例如：  
   
  MyApp   cmdlineargs  
   
  想知道如何在正在使用的应用程序的用户界面中改变命令行参数，请搜寻关于“命令行参数”的帮助。  
   
   
  Command   函数示例  
  本示例在某个函数中用   Command   函数获得命令行参数，并将命令行参数以   Variant   类型之数组返回。  
   
  Function   GetCommandLine(Optional   MaxArgs)  
        "声明变量。  
        Dim   C,   CmdLine,   CmdLnLen,   InArg,   I,   NumArgs  
        "检查是否提供了   MaxArgs   参数。  
        If   IsMissing(MaxArgs)   Then   MaxArgs   =   10  
        "   使数组的大小合适。  
        ReDim   ArgArray(MaxArgs)  
        NumArgs   =   0:   InArg   =   False  
        "取得命令行参数。  
        CmdLine   =   Command()  
        CmdLnLen   =   Len(CmdLine)  
        "以一次一个字符的方式取出命令行参数。  
        For   I   =   1   To   CmdLnLen  
              C   =   Mid(CmdLine,   I,   1)  
              "检测是否为   space   或   tab。  
              If   (C   <>   "   "   And   C   <>   vbTab)   Then  
                    "若既不是   space   键，也不是   tab   键，  
                    "则检测是否为参数内含之字符。  
                    If   Not   InArg   Then  
                    "新的参数。  
                    "检测参数是否过多。  
                          If   NumArgs   =   MaxArgs   Then   Exit   For  
                                NumArgs   =   NumArgs   +   1  
  InArg   =   True  
                          End   If  
                    "将字符连接到当前参数中。  
                    ArgArray(NumArgs)   =   ArgArray(NumArgs)   &   C  
              Else  
                    "找到   space   或   tab。  
                    "将   InArg   标志设置成   False。  
                    InArg   =   False  
              End   If  
        Next   I  
        "调整数组大小使其刚好符合参数个数。  
        ReDim   Preserve   ArgArray(NumArgs)  
        "将数组返回。  
        GetCommandLine   =   ArgArray()  
  End   Function  
  Top

6 楼gpo2002（永吹不休）回复于 2003-06-30 22:39:26 得分 0

楼上正解  
  Top

7 楼leiyi（天）回复于 2003-06-30 23:05:51 得分 0

正解Top

8 楼lhfcsdn（http://shop33840643.taobao.com/）回复于 2003-07-01 08:56:14 得分 5

直接传送：  
  myapp.exe   参数  
  然后在程序中用command去取参数的内容即可。Top

9 楼yun_yxr（千里马）回复于 2003-07-01 22:08:35 得分 0

多谢多谢   bigbigfans(小骁)   问题搞定了Top