Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/.net/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 使用参数打开多个文件_Vb.net_Arguments_Argument Passing - Fatal编程技术网

Vb.net 使用参数打开多个文件

Vb.net 使用参数打开多个文件,vb.net,arguments,argument-passing,Vb.net,Arguments,Argument Passing,我使用此代码使用windows上下文菜单加载多个文件,但问题是应用程序在用户选择文件时会多次打开 例如:如果我选择了14个文件,并用应用程序打开它们,应用程序将打开14次,并且只加载一个表单 但是有一种方法可以一次性发送所有参数吗?因为%1只发送一个文件,或者例如有一个%2在一个参数中发送所有文件PAT?如果找到我的话 这是我的实际代码: Public Class Program Public Shared Sub Main() Dim FurBase As New Core.cls

我使用此代码使用windows上下文菜单加载多个文件,但问题是应用程序在用户选择文件时会多次打开

例如:如果我选择了14个文件,并用应用程序打开它们,应用程序将打开14次,并且只加载一个表单

但是有一种方法可以一次性发送所有参数吗?因为%1只发送一个文件,或者例如有一个%2在一个参数中发送所有文件PAT?如果找到我的话

这是我的实际代码:

Public Class Program

Public Shared Sub Main()

    Dim FurBase As New Core.clsDatabase

    FurBase.Directory = My.Application.Info.DirectoryPath

    Dim returnValue As String()

    returnValue = Environment.GetCommandLineArgs()
    If returnValue.Length > 1 Then

        FurBase.AddTemporalFilepath(returnValue(1).ToString)

    End If

    If Not Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName).Length > 1 Then
        ShowUploader()
    End If

End Sub

Private Shared Sub ShowUploader()
    Dim Uploader As New frmUploader
    Application.EnableVisualStyles()
    Application.Run(Uploader)
End Sub

End Class
请告诉我您对代码的看法,以及是否有改进的方法


问候~

我今天读到了这方面的消息;似乎您需要处理DDE服务器


有一个老问题可以帮助您:

是的,我正在使用它。但是该命令为每个文件执行应用程序。最好是发送一个包含所有文件的大参数,并将它们分块,而不是为每个文件执行应用程序并打开文件。例如:“C:\app.exe file1.txt file2.txt file3.txt”据我所知,您的程序将启动n次,但通过DDE或IPC,您将通知第一个程序添加更多文件