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

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

终于盼来了:苹果iOS7 Beta 3、Xcode5预览版 可堆叠的创意 开源硬件Microduino开发团队专访 致任天堂的公开信:我想在iPhone上玩超级玛丽 为什么OpenStack被视为新的Linux? Netflix开源Pig可视化框架:Lipstick Tangle:一个开源的数据交互式JS库 云储存服务Dropbox用户达1.75亿 旨在同步而非保存 Windows Server 2012 R2里十个极好的新功能 走向台前的地图服务 彰显LBS应用的创新力量 调查显示:1/5的企业采用SDN技术 Chrome 28正式登陆Windows及Mac 成首个使用Blink内核的浏览器版本 不只是Chrome,Firefox也开始支持Web Audio API 验证HTML的5个原因和5个资源 微软WPC 2013:Office 365融合BI,Cloud OS加速,Intune折扣,SQL高版本数据库等 移动开发者走向全能开发者的五大技能 360和西部数码战略合作 一键开启为国内30万家网站提供免费安全服务 中兴携手英特尔发布基于X86的Geek手机 应用生态建设仍需努力 微软将WP周期延长至36个月 明年推企业功能包 Gartner:全球PC出货量二季度下滑11% 联想成全球最大PC厂商 用来简化开发任务的20个JavaScript类库 煎饼,娇妻,Belief:黄太吉的移动互联网营销 AWS大降价:最高打两折 推荐十款超赞的Google Chrome扩展插件 在团队中进行单元测试/TDD的12条经验 小米游戏中心6月数据报告:页游转手游怎么搞? 司机请专心:安全是车载APP要解决的大问题 Windows 8之父Steven Sinofsky:跨平台开发会为什么越来越难? 一些达成共识的JavaScript编码风格约定 语义技术——微软、谷歌和Facebook的必争之地 初创公司PlumGrid:前思科工程师的“逆袭之战” Firefox OS智能手机继续扩张 德国市场今日开售 为何3dmax5的界面英文显示不全? 如何把中文字符串转成utf8? 想到上海找工作,谁愿意给落个脚啊! jb8连接interbase的问题,有谁知道啊 如何分页显示数据库里的图片 怎样判断一个控件是否处在最上层,马上给分? 关于md5编译出错 急需高手解决 哭,IIS下ASP无法调试,极不稳定。求大侠进来帮忙。 请问谁有或者谁知道NASM语法或教程,最好是中文的!谢谢了! 高人!帮忙呀!!!谢谢!! 急啊~关于ADO的和SQL的问题~达人快来帮忙啊 datagrid动态改变一行的背景色this.DataGrid1.Items[oldselectindex].backcolor=System.Drawing.Color.Red;为什么不工作啊? 第一次用ORACLE,在哪里批量执行SQL脚本啊 为什么我的网页不能引用*.js了???在ie/visual studio能设置吗?怎么设置?? 关于日期类型,在线等,马上给分 sql*plus登陆不进去了!! 请问怎么调试DLL中的代码啊??? dddw的数据取值问题,百思不得其解。 再问一个简单问题,为啥函数总是执行两次? 100分求助使用axis开发web services的问题 求一个字符串简单加密算法源码,300分决不食言!!!!! 如何使得下载的excel文件在新页面中打开? datalist问题 帮帮这个菜鸟!!! 新手求助?谁有较好的打印控件,或较好的解次方案? 如何在程序部署时授予某文件夹对文件的写访问权? 不能重定向是什么原因? 想用Mediaplaer控件播放某个声音文件若干次,怎么控制? 如何通过窗口句柄来获得窗口所在进程的ID 怎么找到DataGrid中的Table呢? 请问用VB怎么才能把1个数据库里的表全部读入LISTBOX里? JmaiL 发邮件的问题?? 备份还原问题 如何用钩子得到中文啊? interbase的存储过程中如果想返回多条结果应该怎么办? 请问!谁能提供算命、测字等原代码和后台库!!500分相送!!!! 我的用客户端连上ORACLE,怎么我的SQLPULS打开中文全是乱码,执行语句后看不到结果是什么 方案讨论:如何自定义并实现错误与例外Exception处理对象,并建立里统一的ErrorMsg 读数据库错误??急急急,在线等(马上给分) 缓存 到的 是什么定义啊 (斑竹来 告诉我吧) 系统分析师、系统设计师有什么区别? DB2技术讨论(1)如何简单理解表空间的定义 vc的ado数据库连接问题 请问linux的个人版和服务器版到底有什么区别?? DB2技术讨论(2)如何简单理解表模式的定义 int& operator[] (unsigned i); 存储过程问题 DB2技术讨论(3)如何处理索引 马上结:我用ASP和JSP分别写了一个人主页,可是服务器只支持PHP,所以我要写PHP.. 我要构建一个网吧?回答问题者都有分 DB2技术讨论(4)如何处理大量数据的增删 L'occitane 怎么读?是法国欧舒丹这个牌子名. 四隅向的房子是什么意思 如图,在梯形ABCD中,DC//AB,AD=BC=5,DC=4,AB=9,则角B的度数是多少 军隅的“隅”是什么意思 列六卿于左省, 负隅顽强中隅的意思是什么? 坡屋顶中的隅延尺是什么意思 什么是气滞血瘀型?请问气滞血瘀型是什么样的病, 什么是气滞血瘀 答题思路清晰, 有不同浓度NAOH溶液各取100mL分别通入S02气体1.12L(标准状况),完全反应后,蒸干分别得到不含结晶水的固体6g和7g,求这两种溶液的物质的量浓度 印尼黑客袭击澳大利亚200多家网站 阿富汗总统批评美无人机炸死巴塔头目时日媒:日俄会谈 日“牵制中国”计划落法媒:孙杨为违章驾驶道歉激起中国网民中国东北三省再现“雾霾天” 多处高速南京“富二代”杀妻案今庭审 死者亲属国际人才交流大会即将开幕 杭州请高质南京军区原副司令:钓鱼岛空域在中国控南京网络谣言第一案:女子发帖勒索公司交通运输部启动Ⅳ级应急响应防抗台风“上海推空气污染气象预报:污染达四级以上市公司董事会秘书利用内幕交易炒股获用喷罐喷射女性脸部男子夜间抢包被刑拘金爵无惊喜希腊片大胜刘永好:大数据云计算是民企新机遇希腊影片揽三大奖项普京有限支持停火计划《李由日记》油画作品展开幕济南大学新生可3至8年毕业售“超标”龙井茶沃尔玛等上黑榜银监会官员:P2P中介机构应该持牌经吴晓灵:我国金融产品存款化严重凌驾诸族时空观察者独孤剑魔男灵王大血精灵肥水与香帕仙觅男人上路修真之炼金魔法师无限邪异仙剑屠魔代县旅游环江旅游吉木萨尔旅游成县旅游上杭旅游铜鼓旅游云林旅游平和旅游孟连旅游弋阳旅游新巴尔虎右旗旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘