如何在文件资源管理器通过打开方式功能将txt文件在自研VB文本编辑器中打开

1. 第一步改造VB程序，接收系统传入的文件路径 #

当你通过「打开方式」选择程序打开文件时，系统会把目标文件的完整路径作为命令行参数传给程序，你需要先在程序里加参数接收逻辑：

• 可以把程序启动入口设置为Sub Main，或者直接在主窗体的Form_Load事件中处理，用VB内置的Command$函数就能拿到传入的路径
  示例代码：

Sub Main()
    Dim openFilePath As String
    ' 去除参数两端的空白字符
    openFilePath = Trim$(Command$)
    
    ' 加载主窗体
    Load frmEditorMain
    ' 如果有传入的文件路径，直接调用你已有的文件读取逻辑打开
    If openFilePath <> "" Then
        frmEditorMain.ReadTxtFile openFilePath
    End If
    frmEditorMain.Show
End Sub

注意：调试的时候需要先把程序编译成exe再测试，直接在VB IDE里运行不会触发命令行参数传入。

2. 第二步让程序出现在系统「打开方式」列表，有两种实现方案 #

方案一：手动注册（适合开发阶段测试） #

• 右键任意.txt格式文件，依次点击「打开方式」→「选择其他应用」
• 滚动到列表最底部，点击「更多应用」→ 继续拉到底部点击「在这台电脑上查找其他应用」
• 找到你编译好的VB程序exe文件，选中后点击「打开」，此时你的程序就会出现在打开方式的可选列表中，勾选「始终使用此应用打开.txt文件」还可以直接设置为默认打开程序。

方案二：代码自动注册（适合打包发布给用户使用） #

本质是修改Windows注册表对应项，你可以在程序里加一个「关联TXT文件」的功能按钮，或者在安装包脚本里加入注册表写入逻辑，操作需要程序获得管理员权限：
需要写入的注册表路径为HKEY_CURRENT_USER\Software\Classes\Applications\你的程序名.exe\shell\open\command，默认值设置为"你的程序完整路径.exe" "%1"即可，其中%1是接收文件路径的系统占位符。
VB操作注册表的示例代码：

' 需要先引用Windows Script Host Object Model
Dim wshObj As New WshShell
wshObj.RegWrite "HKEY_CURRENT_USER\Software\Classes\Applications\MyEditor.exe\shell\open\command\", _
    """C:\Program Files\MyEditor\MyEditor.exe"" ""%1""", "REG_SZ"
Set wshObj = Nothing

不建议程序强制修改TXT文件的默认关联，只需要加入到打开方式列表即可，避免引起用户反感。

内容的提问来源于stack exchange，提问作者code360