.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
自定义文件类型以及参数传递的实现(VB.NET)

作者:未知 来源:月光软件站 加入时间:2005-5-13 月光软件站

                                自定义文件类型以及参数传递的实现(VB.NET)
作者:wgscd           
请尊重著作权

         网上很多人问关于自定义文件类型以及参数传递的问题,在.NET里
自定义文件类型很好实现,一个简单的方法就是在VS的安装发布向导---打包
里自定义文件类型,这个就不用说了,你简单设置一下就OK了(不要说你不会哦!)
接下来就是个参数传递的问题使许多人烦恼了(我就被烦过)。
话不多说,如下
         在VB6.0里要获取打开程序的参数可以使用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

---------------------------------------------------

         在VB.NET里呢?其实差不多,只不过要用System.Environment.GetCommandLineArgs。

具体例子:

Sub main1() '检测传进来的参数

        Dim cmds As String()
        cmds = System.Environment.GetCommandLineArgs


        If cmds.Length > 0 Then
            Dim i As Integer
            For i = 0 To cmds.Length - 1

                If cmds(i).ToString Like "*.abc" Then '其中abc为你自定义文件的扩展名
                    cmd = cmds(i).ToString
                    iscaseurl = True

                End If
            Next

        End If
    End Sub


dim cmd as string="" '用来保存传入的参数
dim iscaseurl as Boolean= False'判断是否是你需要的参数

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MyBase.Load

        main1() '检测参数

            If iscaseurl = False Then'不是你需要的参数

'do your 。。。。。。。。。。。。。

            Else'是需要处理的参数

'这里添加处理的代码,cmd 就是你要的参数

msgbox("这里添加处理的代码,cmd 就是你要的参数")

                iscaseurl = False


            End If


        Catch ex As Exception

            MsgBox("erro")

        End Try

    End Sub


当然如果你需要的话可以在 InitializeComponent() 调用之后调用main1()
来检测和保存打开程序传进来的参数。




 




相关文章

相关软件