VB.NET

En attendant que le service de veille se réveille. Microsoft annonce un "Early Access build" du Framework 4.8. La version officielle du Framework va sortir en 2019. Compatible avec Windows 10 Anniversary Update et les versions subséquentes, et Windows Server 2016 et Windows Server 1709.

Source, incluant le lien de téléchargement : [URL="https://blogs.msdn.microsoft.com/dotnet/2018/06/06/announcing-net-framework-4-8-early-access-build-3621/"]Blog de Microsoft ...

Pour l'exemple j'ai codé une application type Windows Forms (Framework 4.0 ciblé) nommée "TestApp" dans laquelle j'ai ajouté 2 boutons (Button1 et Button2).
Lorsqu'on clique sur Button1 ça affiche une msgBox.

---> Dans un premier temps on récupère le handle du processus et on vérifie qu'il existe bien :

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim processes As Process() = Process.GetProcessesByName("TestApp")
If Not processes Is Nothing AndAlso Not processes.Length

...

[URL="https://blogs.msdn.microsoft.com/dotnet/2017/02/01/the-net-language-strategy/"]Dans un billet de Blog[/URL], Microsoft a annoncé que les nouveautés de C# ne seront pas obligatoirement intégrées à VB.net et vice-versa.

Ce que tu souhaites faire débute ici :
https://www.codeproject.com/articles...ociation-class

1- Dans un premier temps tu créés un installeur pour ton application car cette dernière devra toujours être exécuté depuis le même chemin (%program files%) comme tout autre programme qui sont associés à une extension sur ton système d'exploitation Windows.
2- Tu penses à placer dans le chemin de ton application un fichier icône (.ico) qui sera utilisé lors de l'association ...

Il existe cette classe très simple d'usage :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Text
 
Public Class Ini
 
#Region "Natives Methods"
 
    Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" (lpApplicationName As String,

...