FAQ VB.NETConsultez toutes les FAQ

1
2
Dim ver As FileVersionInfo = FileVersionInfo.GetVersionInfo(Environment.GetCommandLineArgs()(0)) 
Dim MyVer as String = ver.FileMajorPart & "." & ver.FileMinorPart & "." & ver.FileBuildPart & "." & ver.FilePrivatePart

1
2
3
'Version Framework 
Dim ver as Version = Environment.Version 
Console.WriteLine("Version Framework = {0}", ver)

1
2
3
'Version du système d'exploitation 
Dim ver as Version = Environment.OSVersion 
Console.WriteLine("Version Framework = {0}", ver)

1
2
3
4
5
' Chemin de l'éxécutable 
' Pour les WinForm, on peut aussi utiliser Application.ExecutablePath 
Dim exepath As String = Environment.GetCommandLineArgs()(0) 
' Répertoire de l’exécutable 
Dim exedir As String = exepath.Substring(0, exepath.LastIndexOf("\"c))

1
2
' Répertoire courant 
Console.WriteLine("Le répertoire courant est : {0}", Environment.CurrentDirectory)

1
2
' Répertoire système 
Console.WriteLine("Répertoire système = {0}", Environment.SystemDirectory)

Console.WriteLine("Nom utilisateur = {0}", Environment.UserName)

Console.WriteLine("Mémoire allouée au process en cours = {0} octets", Environment.WorkingSet)

Console.WriteLine("La ligne de commande est : {0}", Environment.CommandLine)

1
2
3
4
5
6
7
8
'Arguments de ligne de commande 
Console.WriteLine("Arguments de ligne de commande") 
Dim i As Integer 
Dim args As String() = Environment.GetCommandLineArgs() 
Dim j As Integer = args.Length 
For i = 0 To j - 1 
    Console.WriteLine("Args({0}) = {1}", i, args(i)) 
Next

1
2
3
4
5
6
7
8
Dim env As IDictionary = Environment.GetEnvironmentVariables() 
' Pour afficher une variable dont on connait le nom 
Console.WriteLine("USERNAME = {0}", env("USERNAME")) 
' Pour lister toutes les variables 
Dim en As IEnumerator = env.Keys.GetEnumerator() 
While en.MoveNext 
    Console.WriteLine("{0} = {1}", en.Current, env(en.Current())) 
End While

1
2
3
4
5
6
' Répertoires spéciaux 
Console.WriteLine("Répertoires spéciaux") 
Dim specfolderenum As Array = [Enum].GetValues(GetType(Environment.SpecialFolder)) 
For i As Integer = 0 To specfolderenum.Length - 1 
    Console.WriteLine(Environment.GetFolderPath(CType(specfolderenum.GetValue(i), Environment.SpecialFolder))) 
Next

1
2
3
4
5
6
' Lecteurs logiques 
Console.WriteLine("Lecteurs logiques") 
Dim drives() As String = Environment.GetLogicalDrives() 
For i As Integer = 0 To drives.Length - 1 
    Console.WriteLine(drives(i)) 
Next

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Imports System.Threading 
  
Class SingleInstanceApp 
    Implements IDisposable 
  
    Private _siMutex As Mutex 
    Private _siMutexOwned As Boolean 
  
    Public Sub New(ByVal name As String) 
        _siMutex = New Mutex(False, name) 
        _siMutexOwned = False 
    End Sub 
  
    Public Function IsRunning() As Boolean 
        _siMutexOwned = _siMutex.WaitOne(0, True) 
        Return Not (_siMutexOwned) 
    End Function 
  
    Public Sub Dispose() Implements System.IDisposable.Dispose 
        If _siMutexOwned Then 
            _siMutex.ReleaseMutex() 
        End If 
    End Sub 
  
End Class

1
2
3
4
5
6
7
8
9
10
11
12
Shared Sub Main() 
    Dim app As SingleInstanceApp = New SingleInstanceApp("{123456789 - ABCD - EFEG - XXXX}") 
    Try 
        If app.IsRunning Then 
            MessageBox.Show("Application déjà lancée") 
        Else 
            Application.Run(New Form1) 
        End If 
    Finally 
        CType(app, IDisposable).Dispose() 
    End Try 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
  
    ' Dim rnd As New Random(100) ' Pour générer toujours la même séquence, on passe la même valeur au constructeur. 
  
    ' Initialisation par défaut basée sur le temp. La séquence est différente à chaque fois. 
    Dim rnd As New Random 
  
    ' Génération de 15 nombres aléatoires compris entre 0 et 255 (Type Byte) 
    Dim rndNumbers As Byte() = New Byte(14) {} 
    rnd.NextBytes(rndNumbers) 
    ListBox1.Items.Clear() 
    For i As Byte = 0 To 14 
        ListBox1.Items.Add(rndNumbers(i)) 
        ' On peut aussi faire un modulo pour n'obtenir que des nombres entre 0 et 100 par exemples 
        ListBox2.Items.Add(IIf(rndNumbers(i) > 100, rndNumbers(i) Mod 100, rndNumbers(i))) 
    Next 
  
    ' Pour Générer des nombres aléatoires de type Integer 
    Dim i As Integer = rnd.Next() 
    Dim j As Integer = rnd.Next(500, 1000) 'j sera compris entre 500 et 1000 
  
    ' Pour générer des nombres aléatoires de type Double 
    ' d sera compris entre 0,0 et 1,0. 
    ' Il suffit de combiner cet appel à celui de Next() pour avoir des doubles supérieurs à 1,0 
    Dim d As Double = rnd.NextDouble() 
End Sub

1
2
3
4
5
6
7
8
9
10
'Instance de la classe Process 
Dim proc As New System.Diagnostics.Process() 
' Nom de l'executable à lancer 
proc.StartInfo.FileName = "iexplore.exe" 
' Arguments à passer à l'exécutable à lancer 
proc.StartInfo.Arguments="http://www.developpez.com" 
' Démarrage du processus 
proc.Start() 
' On libère les ressources dont on a plus besoin. 
proc.Close() 'Attention Close ne met pas fin au processus.

1
2
3
4
5
6
7
8
'Instance de la classe System.Diagnostics.Process 
Dim proc As New Process() 
' Nom du fichier dont l'extension est connue du shell à ouvrir 
proc.StartInfo.FileName = "monfichier.txt" 
' Démarrage du processus. Notepad (si il est associé aux fichiers .txt) sera alors lancé et ouvrira le fichier monfichier.txt 
proc.Start() 
' On libère les ressources 
proc.Close()

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim proc As New Diagnostics.Process 
' On désactive le shell 
proc.StartInfo.UseShellExecute = False 
' On redirige la sortie standard 
proc.StartInfo.RedirectStandardOutput = True 
' On définit la commande 
proc.StartInfo.FileName = "mem.exe" 
' Démarrage de la commande 
proc.Start() 
' Lecture de la sortie de la commande 
Dim output As String = proc.StandardOutput.ReadToEnd() 
Console.WriteLine(output) 
' Attente de la fin de la commande 
proc.WaitForExit() 
' Libération des ressources 
proc.Close()

1
2
3
4
' Pour tous les processus en cours sur l'ordinateur local 
Dim prc as System.Diagnostics.Process() = Process.GetProcesses() 
' Pour tous les processus notepad en cours sur l'ordinateur local 
Dim prc as System.Diagnostics.Process() = Process.GetProcessesByName("notepad")

1
2
3
' Pour les applications consoles 
proc.Kill() 
proc.Close() ' Libération des ressources

1
2
3
' Pour les applications avec une interface graphique (et donc une pompe de messages) 
proc.CloseMainWindow() ' Si l'appel échoue, on peut alors forcer la fermeture avec Kill. 
proc.Close() ' Libération des ressources

1
2
3
4
5
6
7
'Conversion d'un entier vers une chaine de caractère 
Dim i as Integer = 10 
Dim s as string = Convert.ToString(i) 
  
' Conversion d'une chaine vers un entier 
i = Convert.ToInt32(s) 
' Notez que si la conversion ne peut se faire, une exception est levée. Ce serait le cas si s = "NonNumérique"

1
2
Dim s as String = "35000" 
Dim i as Integer = Integer.Parse(s)

1
2
Dim s as string = "35000" 
Dim i as Integer = CType(s, Integer)

1
2
Dim s as String = "35000" 
Dim i As Integer = CStr(s)

1
2
3
4
5
6
7
8
9
10
11
Public Class SaisiTexte 
  
    Private Shared _Texte As String 
  
    Public Shared Sub Main() 
        Console.WriteLine("Saisissez un texte: ") 
        _Texte = Console.ReadLine 
        Console.WriteLine("Vous avez écrit : " + _Texte) 
    End Sub 
  
End Class

System.GC.Collect()

1
2
3
4
5
6
7
8
9
Imports System.Runtime.InteropServices 
  
Class Class1 
  
    Private Declare Function FlashWindow Lib "user32.dll" ( _ 
    ByVal hwnd As Integer, _ 
    ByVal bInvert As Integer) As Integer 
  
End Class

Dim c As Char = Convert.ToChar(0)

1
2
3
4
5
6
Public Function CheckIpAddr(ByVal ipAddress As String) As Boolean 
  
    Dim re As String = "^(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3}$" 
    Return Regex.IsMatch(ipAddress, re) 
  
End Function

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Function CheckIpAddrNoRegex(ByVal ipAddress As String) As Boolean 
  
    Dim ipPartList As String() 
  
    If ipAddress Is Nothing OrElse ipAddress = "" Then 
        Return False 
    End If 
  
    ipPartList = ipAddress.Split("."c) 
    If Not (ipPartList.Length = 4) Then 
        Return False 
    End If 
  
    Try 
        Dim ipPartNumber As Byte = Convert.ToByte(ipPartList(0)) 
        ipPartNumber = Convert.ToByte(ipPartList(1)) 
        ipPartNumber = Convert.ToByte(ipPartList(2)) 
        ipPartNumber = Convert.ToByte(ipPartList(3)) 
    Catch 
        Return False 
    End Try 
  
    Return True 
  
End Function

1
2
3
4
Imports System.Reflection 
  
Dim nameSpc As String = Reflection.Assembly.GetExecutingAssembly.GetName.Name.ToString 
Dim tempStream As Stream = Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream(NameSpc & "." & "fichier.txt")

1
2
3
4
5
6
Try 
    ' instructions à exécuter 
Catch ex As Exception 
    ' écrire l'erreur 
    MonJournal.WriteEntry(ex.Message,EventLogEntryType.Error) 
End Try

1
2
3
4
5
' Emet un simple bip 
Console.Beep() 
' Émet un bip à la fréquence 15000Hz pendant 2 secondes 
' A noter que la gamme audible de l'oreille humaine va de 16 à 20000Hz 
Console.Beep(15000, 2000)

1
2
3
' Nom de la machine 
Dim MachineName As String = Environment.MachineName  
Console.WriteLine("Nom de la machine = {0}", MachineName)

1
2
3
' Nombre d'écrans connectés 
Dim MonitorCount As Integer = SystemInformation.MonitorCount  
Console.WriteLine("Nombre d'écrans connectés à l'ordinateur = {0}", MonitorCount)

1
2
3
4
5
6
7
8
9
' Parcours de la liste des disques durs 
For Each CurrentDrive As DriveInfo In DriveInfo.GetDrives  
    ' Vérification qu'on a bien affaire à un disque dur de l'ordinateur 
    If CurrentDrive.DriveType = DriveType.Fixed Then  
        ' Calcul du pourcentage d'espace disque libre 
        Dim pourcentageLibre As Double = (CType(CurrentDrive.AvailableFreeSpace, Double) / CurrentDrive.TotalSize) * 100  
        Console.WriteLine("Espace libre de {0} >> {1}%", CurrentDrive.Name, Convert.ToInt16(pourcentageLibre))  
    End If  
Next

1
2
3
4
5
6
7
8
9
10
11
12
' Mode de démarrage de la machine 
Select Case SystemInformation.BootMode 
    Case BootMode.Normal  
        Console.WriteLine("Tout est ok !")  
  
    Case BootMode.FailSafe  
        Console.WriteLine("Attention, on est en mode sans échec !")  
  
    Case BootMode.FailSafeWithNetwork  
        Console.WriteLine("Attention, on est en mode sans échec mais on a accès au réseau !")  
  
End Select

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim monDrive As String = "D:/"  
  
Try  
    Dim monDriveInfo As DriveInfo = New DriveInfo(monDrive)  
  
    ' Vérification qu'on a bien affaire à un lecteur CD/DVD 
    If monDriveInfo.DriveType = DriveType.CDRom Then  
        ' Vérification si il y a un cd dans le lecteur 
        If monDriveInfo.IsReady = True Then   
            Console.WriteLine("Lecteur identifié avec CD : {0}", monDriveInfo.VolumeLabel)  
        Else  
            Console.WriteLine("Lecteur identifié sans CD : {0}", monDriveInfo.Name)  
        End If  
    Else  
        Console.WriteLine("Ce lecteur n'est pas un lecteur CD/DVD !")  
    End If  
  
Catch generatedExceptionVariable0 As Exception  
    Console.WriteLine("Ceci n'est pas un lecteur !")  
End Try

1
2
3
' Nombre de processeurs de la machine 
Dim countProc As Integer = Environment.ProcessorCount  
Console.WriteLine("Nombre processeurs = {0}", countProc)

1
2
3
4
5
6
7
' Vérification si un utilisateur appartient à un groupe de domaine donné 
Dim wp As WindowsPrincipal = New WindowsPrincipal(WindowsIdentity.GetCurrent)  
If wp.IsInRole("Developpez\Moderateur") = True Then  
    Console.WriteLine("L'utilisateur fait bien partie du groupe Developpez\Moderateur")  
Else  
    Console.WriteLine("L'utilisateur ne fait pas partie du groupe Developpez\Moderateur")  
End If

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim p As Process = Nothing 
Try 
    p = New Process 
    p.StartInfo.UseShellExecute = False 
    p.StartInfo.RedirectStandardOutput = True 
    p.StartInfo.FileName = "defrag" 
    p.StartInfo.Arguments = "c: -a" 
    p.Start() 
    If p.WaitForExit(60 * 1000) Then 
        MessageBox.Show(p.StandardOutput.ReadToEnd(), "StandardOutput") 
        p.Dispose() 
        p = Nothing 
    End If 
Catch ex As Exception 
    MessageBox.Show(ex.Message, "Exception") 
Finally 
    If p IsNot Nothing Then 
        If Not p.HasExited Then 
            p.Kill() 
        End If 
        p.Dispose() 
        p = Nothing 
    End If 
End Try