Webform调用Winform，通过QueryString给Winform传值
Dim args As String() = WebCommandLineHelper.GetCommandLineArgs(argsFromMain)
If args.Length > 0 Then
For j As Integer = 0 To args.Length - 1
Dim pair As String() = args(j).Split("&"c)
For i As Integer = 0 To pair.Length - 1
Dim val As String() = pair(i).Split("="c)
Select Case val(0).ToLower()
Case "prm"
'remore redundand items and check for case dependency
strUserName = val(1).ToString()
Exit Select
Case "prm1"
strPRM1 = val(1).ToString()
Exit Select
Case "prm2"
strPRM2 = val(1).ToString()
Exit Select
End Select
Next
Next
End If
posted @ 2008-07-12 17:01
sekihin 阅读(71)
评论(0) 编辑 收藏 所属分类:
VB.Net