【Winform】通过QueryString给Winform传值
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
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
本作品采用 知识共享署名-非商业性使用 2.5 中国大陆许可协议进行许可。 |