Association de fichiers pour ma propre application Visual Basic

Question

J'ai fait ma demande qui peut lire une extension spécifique de la charge dans Visual Basic 2017.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     If Environment.GetCommandLineArgs(1).ToString = My.Application.Info.DirectoryPath.ToString + "\" + My.Application.Info.AssemblyName + ".exe" Then 

     Else 
      If System.IO.Path.GetExtension(Environment.GetCommandLineArgs(1)) = ".myOwnExt" Then 
       Dim fileReader As String 
       fileReader = My.Computer.FileSystem.ReadAllText(Environment.GetCommandLineArgs(1).ToString) 
       MsgBox(fileReader) 
      End If 
     End If 
    End Sub 

Mais je veux faire mon défaut de programme pour cette extension et je veux Définir mon icône pour ces fichiers. Est-il possible de le faire avec Visual Basic?

Answer 1

Votre code ressemblerait à quelque chose comme ça ...

My.Computer.Registry.ClassesRoot.CreateSubKey(".myOwnExt").SetValue("", _ 
      "myOwnExt", Microsoft.Win32.RegistryValueKind.String)  
My.Computer.Registry.ClassesRoot.CreateSubKey("MyProgramName\shell\open\command").SetValue("", _ 
      Application.ExecutablePath & " ""%l"" ", Microsoft.Win32.RegistryValueKind.String) 

Answer 2

Voici un exemple complet sur la façon de le faire dans VB .NET. Comme mentionné ci-dessus, vous devez modifier certains paramètres de registre.

https://www.codeproject.com/Articles/18594/File-Association-in-VB-NET

Sur un rapide coup d'œil à votre code de GetCommandLineArgs(1) doit être changé à GetCommandLineArgs(0) pour obtenir ce travail.