Vb.net 如何将图标注册到文件关联？

有两个文件扩展名，分别是

.luo

和

.luda

。 当程序加载时，分配

.luo

和

.luda

。 变量

path

和

path2

包含图标的位置

Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim path, path2 As String
    path = Application.StartupPath & "ludafile.ico"
    path2 = Application.StartupPath & "luofile.ico"
    My.Computer.Registry.ClassesRoot.CreateSubKey(".luda").SetValue("", "Luda Solution (.luda)", Microsoft.Win32.RegistryValueKind.String)
    My.Computer.Registry.ClassesRoot.CreateSubKey(".luo").SetValue("", "Luda Page File (.luo)", Microsoft.Win32.RegistryValueKind.String)
    My.Computer.Registry.ClassesRoot.CreateSubKey("LudaCreate\shell\open\command").SetValue("", Application.ExecutablePath & " ""%l"" ", Microsoft.Win32.RegistryValueKind.String)
End Sub

上面的代码成功运行，但我想在这些文件中注册一个图标。

---

一个图标用于

.luda

，另一个图标用于

.luo
和
CreateSubKey（“.luda”）。SetValue（“，…）
可以在
类的根目录中创建一个条目，其中
（默认）
设置为
luda解决方案（.luda）
。相反，您应该添加对应用程序的引用
ProgID
（通常是
AppName.Association.Version
，例如
Luda.Solution.2
，
Luda.PageFile.2
）。这里，
（默认）
条目注册应用程序和关联的全名（例如，
Luda解决方案
，
Luda页面文件
）。
DefaultIcon
键存储相关图标的路径。它可以是
.ico
文件或程序集（
.exe
，
.dll
）：在这种情况下，您还可以指定要使用的图标索引。安装程序也可以提供此功能。请参见
项目->属性->发布->选项->文件关联
。它还将注册应用程序
CLSID
。