主题：能不能制作设计工具

打开vs工具，新建一个项目，加入上面的代码先测试。

错误，超出索引界限

mark 引导程序

 

vs项目的代码

 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim args() = Environment.GetCommandLineArgs
        If args.Length = 2 Then
            Dim path As String = IO.Path.GetDirectoryName(args(0))
            IO.File.WriteAllText(path & "/路径.txt", args(1), System.Text.Encoding.Default)
            Dim proc As New Process
            proc.StartInfo.FileName = path & "/2222.exe"
            proc.Start()
        ElseIf args.Length = 1 Then
            Dim path As String = IO.Path.GetDirectoryName(args(0))
            IO.File.WriteAllText(path & "/路径.txt", "", System.Text.Encoding.Default)
            Dim proc As New Process
            proc.StartInfo.FileName = path & "/2222.exe"
            proc.Start()
        End If
    End Sub

 

foxtable的afterOpenProject/beforeOpenProject事件代码

If FileSys.FileExists(ApplicationPath & "路径.txt") Then
    Dim path As String = FileSys.ReadAllText(ApplicationPath & "路径.txt", Encoding.Default)
    msgbox(path)
End If

 

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

 

其余的处理：

 

1、把vs生成exe放在publish文件夹下；

 

2、你修改注册表的时候，比如定义 .abc 后缀名的打开程序，要设置成vs的exe

 

3、这个是简单的事例，如果你想vs的exe适应所有的项目，你可以修改优化里面的代码。

其它没问题，就是一直都只执行args.Length = 1

自定义文件打开，获取路径一直都是空

认认真真看13楼后面的啊，在vs里调试，肯定就是只有一个参数。

还不行

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Dim args() = Environment.GetCommandLineArgs
        If args.Length = 2 Then
            Dim path As String = IO.Path.GetDirectoryName(args(0))
            IO.File.WriteAllText(path & "/路径.txt", args(1), System.Text.Encoding.Default)
            'Dim proc As New Process
            'proc.StartInfo.FileName = path & "/2222.exe"
            'proc.Start()
        ElseIf args.Length = 1 Then
            Dim path As String = IO.Path.GetDirectoryName(args(0))
            IO.File.WriteAllText(path & "/路径.txt", "", System.Text.Encoding.Default)
            MsgBox("测试")
            'Dim proc As New Process
            'proc.StartInfo.FileName = path & "/2222.exe"
            'proc.Start()
        End If
    End Sub

 

设置好注册表，用后缀文件打开这个vs生成的exe，还是打开对话框“测试”，路径.txt为空

 

是不是vs里面还有设置什么

测试，没问题啊

 

1、发布publish文件夹；

 

2、把exe拷贝publish文件夹里面去；

 

3、执行下面代码，红色换成你自己的exe的名称

 

可以了，原来我吧%1给弄掉了

测试一下win10， 注册表访问被拒绝

 你运行项目的时候，右键->属性->勾选 管理员身份运行