VB.NET设置默认文本编辑器

你必须使用类似 Environment.GetCommandLineArgs 方法

将其放入表单加载事件中:

Dim CommandLineArguments() As String = Environment.GetCommandLineArgs()
If CommandLineArguments.Length >= 2 AndAlso String.IsNullOrEmpty(CommandLineArguments(1)) = False AndAlso IO.File.Exists(CommandLineArguments(1)) Then
    Me.TextBox1.Text = IO.File.ReadAllText(CommandLineArguments(1))
End If

这将获取发送到应用程序的命令行参数(这是您试图用应用程序打开的文件的路径),并检查该参数是否为现有文件。如果是,它会将文件的所有文本读入 TextBox .

在表单加载事件中编写此代码。

Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

 Dim fname As String = Command$()
        If Not fname = "" Then
            fname = Replace(fname, Chr(34), "")
            Dim obj As New System.IO.StreamReader(fname.ToString)
            RichTextBox1.Rtf = obj.ReadToEnd
            obj.Close()
            Me.Text = "Your Application Name " & fname

        End If

End Sub