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适应所有的项目,你可以修改优化里面的代码。
[此贴子已经被作者于2016/3/3 12:14:58编辑过]