说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何为执行程序加上参数?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何为执行程序加上参数?


对于使用 Visual Basic 开发并编译为 .exe 文件的应用程序,VB提供了一个Command 对象,该对象返回出现在命令行中应用程序名之后的任何参数。下面函数演示了如何获取参数的所有技术细节。

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

如何管理和优化日益增长的代码复杂度? SDCC 2013大会讲师名单议题更新 8月1日前3.8折优惠截止 IBM Rational首席技术官:DevOps是一门哲学 Mozilla联手黑莓推进Web安全技术,推出开源测试平台Minion 苹果如何培养SOHO一族高效工作 再造Ruby:CryENGINE 3.5游戏引擎特性详解 Eclipse基金会涉足物联网,M2M标准是否已获东风? SDN部署前必须考虑的7个事项 【云先锋 40】初创公司DataStax:专注于Cassandra,三年融资8370万美元 内容创作工具的革新:Facebook前CTO推文字处理应用Quip 微软为Android手机推出Office 仅面向Office 365用户开放使用 编程、创业、开源感悟——SDCC 2013讲师云风专访 原生广告:移动推广的热门新宠 隐私之战:金山手机毒霸宣布开放安全检测平台 世界人民的头上有张监控大网——Xkeyscore 美国“监控门”情报收集系统 X-Keyscore 技术揭秘 为啥REST如此重要? 并非PHP Frameworks而是WordPress让PHP更加流行! Twitter Bootstrap深受开发者喜爱的11大理由 假如3D打印机也有“撤销”键 大数据的游戏运营:不能起死回生,只能锦上添花 15个步骤创立技术公司,并收获千万用户(一) 红帽再发力 将MongoDB整合到Linux系统 ZestFinance:前谷歌CIO创立的机器学习+大数据分析公司 7月份浏览器份额:IE仍最受欢迎 Chrome成最大赢家 2013 Q2 Android手机出货量再创新高 iPhone三年来新低 如何一个人打造日PV百万的网站架构——SDCC 2013讲师曹力专访 【一周观察】动辄9位数以上的投资,云数据中心缺口巨大! 硬件创业到底有多火? 知名网站分享:PHP代替Perl,Redis置换MySQL,日处理过亿PV 涨姿势了:Unity CEO聊如何玩转开发者生态 想通了过问题,散分 那位大哥做过网络规划,系统集成方面的,我想电话求教,能帮个忙吗??? how to get chinese type method? 如何响应键盘事件? (7)今夜狂放1000分,8:15结帐:)需要分的来吧:)前600分已经放出。。 小问题,恳请帮忙,在线等候! 如何实现两个数据库之间的实时通讯? 高分请教,如何用JAVA实现浏览局域网里的其他机子的目录。在线等待 主板上是USB1。0的接口用USB2。0标准的移动硬盘,有办法安装使用吗?(在线等候) 探讨一下JSP的多国语言实现 这样一个功能怎么实现(在线等待) 调用COM时出错~~~ 问答:仅知类D是由类B按某种形式派生得到的,举一例说明,D不一定是B的子类型。 小问题,帮个忙 刚用C#开发了一个游戏,大家多提意见!有分 关于插入数据的问题 请问:谁有Delphi 5.x分布式多层应用电子商务篇的下载地址, pdf格式 Applet嵌入HTML中的问题!急!急!急! 小小问题,散分100!!!!!!!!!!!!你心动了吗? 如何在程序运行时让用户选择按照哪一列进行分组? 文件合并问题? 帮帮忙 请教如何删除控件 圈点“英雄”,针砭实弊 谁能帮我解决IMail不能外发邮件的毛病? vb请教 如何设置remote_login_passwordfile为exclusive TScrollBox在隐藏滚动条情况下,如何用按钮控制其上下滚动?(在线) 高分请教:用VC怎样编写群发mail的程序? jsp 连 oracle 问题? 请教:ASA7.0安装后启动Sybase Central 4.0时出错".....内存错,该内存不能为read" 请教一个关于Javascript的变量能否在Asp中使用? 高分求解(有类似源代码都行)-处理桌面一个台球运动轨迹问题,方向,球速碰到桌边后速度减慢!进去就结束。 如何在SOAP中发布EJB? 请教各位高手:怎样在状态栏中加进度条? 散分! 关于progress control的小问题 如何传递文件名 求深入浅出MFC2附书源码。 大家帮个忙!! 明天过生日,散分! 使用内存查看 [分享]你的精神年龄是多少?进来测试一下! 以后的路给点意见 刚做的游戏,大家来看看 请问如何在一个窗体中引用另外一个窗体的对象? 挨T的都进来灌水聊天吧 当sql server某张表有变化时,VC+ADO写的程序能否去读数据库更新Listctrl?好像是触发器,如何实现? 刚做的游戏,请多多指点 win2000中,播放avi文件的问题 一些小问题! 温州市委秘书长吴开锋被曝有婚外情 2钓鱼台国宾馆选拔服务人员 阵势犹如选香港举行“枕头大战”场面壮观习近平在海南会见多国总统 彭丽媛出席杭州举办健美健身锦标赛 上演力与美的杭州举办健美健身锦标赛 上演力与美的威廉王子携凯特访问苏格兰 遭可爱小萝神秘富二代与郭美美互掐 晒银行99亿高清:人民日报新大楼被吐槽造型别致凤凰古城收费引商户集体罢市抗议 官方张紫妍自杀前最后一部影片曝光 三级片钱江潮“一潮三看” 游客可追潮25公长沙一餐厅要求员工穿比基尼上班F1上海站举行车手巡游 赛车宝贝火辣广东茂名鸡价因禽流感大跌 市民疯狂抢美国波士顿马拉松赛发生爆炸窦靖童on the beach素颜自丽江大火铺天盖地 彩云之南遍地狼藉(郑州一超市女售货员被劫持 劫匪被控制记者暗访快捷酒店真相惊人 用洗脸毛巾南国花开艳 赏樱正当时看厌了千篇一律的中国历史?日本人韩国郑州动物园公布大熊猫“锦意”死因:感坐“海上威尼斯” 探访来自星星的你女子为出售夫妻共同房产 找人冒充丈夫一周展评古树名木普查像王家卫拍电影一样玩即兴表演你敢来吗我的诗歌被退稿了,怎么办?今年前两个月浙江出口同比下降5.2%女人为什么不爱练健美?澳洲留学新政解析会品质3·15精装体验之旅本周末举行90后女作家蓝泽用新媒体直播自己吸脂LOFT 综合体 实景房 学区房……男子毁容后儿女称其“妖怪” 换脸为不新农都销售的冷鲜鸡鸭今后脚上要戴“戒铁路、民航、邮政统一由交通部管理春天最宜养肝这次主攻“非”字形车位和侧方停车本周六有装修质量品鉴会160方户型可享320方室内空间
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘