自定义文件类型以及参数传递的实现（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()
来检测和保存打开程序传进来的参数。
|
