FAQ VB.NETConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
Dim tableau As String() 
  
' Allocation de la mémoire pour ce tableau 
  
' Tableau non initialisé de dix strings. Dans ce cas chaque élément du tableau a la valeur par défaut du type. 
' Pour String c'est "". 
tableau = New String(9} {} 
' Tableau initialisé de deux strings. 
tableau = New String(1) {"Un", "Deux"}

Dim tableau As Integer() = New Integer(9) {}

1
2
3
4
5
6
Dim tableau As Integer() = new Integer(9) {10,  11,  12,  13, 14, 15, 16, 17, 18, 19} 
' Pour parcourir le tableau 
Dim i As Integer 
For i = 0 to tableau.GetUpperBound(0) 
    Debug.Writeline(tableau(i)) 
Next

Dim tableau As Integer(,) = new Integer(3, 2) {}

1
2
3
4
5
6
7
8
Dim tableau As Integer(,) = New Integer(2, 5) {{0, 1, 2, 3, 4, 5}, {6, 7, 8, 9, 10, 11}, {12, 13, 14, 15, 16, 17}} 
' Parcours du tableau 
Dim j,i As Integer 
For j = 0 To tableau.GetUpperBound(0) 
    For i  = 0 To tableau.GetUpperBound(1) 
        Console.WriteLine("({0},{1})={2}", j, i, tableau(j, i)) 
    Next 
Next

1
2
3
4
5
6
7
8
9
10
11
12
13
' Sans initialisation 
Dim tableau As Integer()() 
' Allocation mémoire 
tableau = New Integer(1) (){New Integer(2) {0,1,2}, New Integer(1) {0,1}} 
' Avec initialisation 
Dim tableau As Integer()() = {New Integer(2) {0, 1, 2}, New Integer(5) {0, 1, 2, 3, 4, 5}} 
' Parcours du tableau 
Dim i ,j As Integer 
For j = 0 to tableau.GetUpperBound(0) 
    For i = 0 To tableau(j).GetUpperBound(0) 
        Console.WriteLine("({0},{1})={2}", j, i, tableau(j)(i)) 
    Next 
Next

1
2
3
4
Dim s As String 
s = "Un" & _ 
  "Deux" & _ 
  "Trois"

Dim i As integer : i=5

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Imports  System 
Imports  System.Windows.Forms 
' ... 
Private Sub maSaisie_KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs) Handles maSaisie.KeyUp 
    ' Exemple après l'appui de la touche "Enter" 
    If e.KeyCode = Keys.Enter Then 
  
        ' Arrêter la capture d’événement clavier sur le contrôle 
        RemoveHandler Me.maSaisie.KeyUp, AddressOf Me.maSaisie_KeyUp 
  
        ' Traitements longs 
  
        ' Reprendre la capture d’événement clavier sur le contrôle 
        AddHandler Me.maSaisie.KeyUp, AddressOf Me.maSaisie_KeyUp 
  
    End If 
End Sub

1
2
3
Public Sub myFiltre(ByVal e As System.Windows.Forms.KeyPressEventArgs, ByVal autorise As String) 
    e.Handled = Not (Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar) Or e.KeyChar = autorise) 
End Sub

1
2
3
Private Sub myTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles myTextBox.KeyPress 
    myFiltre(e, ",") 
End Sub

myFiltre(e, "/")

1
2
Dim dt As New DateTime(1978, 5, 18) 
dt.ToString(param)

dt.ToString("dddd, le d MM yyyy")

Imports System.Text.RegularExpressions

1
2
3
4
5
6
7
8
9
Dim monTexte As String = "Une astuce de dvp.com ! Une astuce de dvp.com !"  
  
' Paramétrage de notre expression régulière :  
' Ici on spécifie que l'on ne veut pas tenir compte dela casse du  
' texte dans nos remplacements.  
Dim maRegEx As New Regex("\bdvp.com\b", RegexOptions.IgnoreCase)  
  
' Remplacement des occurences de "dvp.com" par "Developpez.com"  
monTexte = maRegEx.Replace(monTexte, "Developpez.com")

1
2
3
4
5
6
7
8
9
10
11
' Fichier MaClasse.1.vb 
Public Partial Class MaCLasse 
    Private infos As List(Of String) 
End Class 
  
' Fichier MaClasse.2.vb 
Public Partial Class MaCLasse 
    Public Sub New() 
        Me.infos = New List(Of String)() 
    End Sub 
End Class

Imports System.Diagnostics

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
' Instanciation d'un objet StopWatch 
Dim monStopWatch As New Stopwatch 
  
' Déclenchement du "chronomètre" 
monStopWatch.Start() 
  
' /////////////////////////////// 
' Placez ici le code que vous voulez évaluer, cela peut être par exemple  
' du code 'brut' ou alors l'appel d'un méthode... 
' /////////////////////////////// 
  
' Arrêt du "chronomètre" 
monStopWatch.Stop() 
  
' Le temps écoulé peut être récupéré très facilement avec un membre de StopWatch, 
' de la façon suivante. Le résultat est exprimé en millisecondes 
Dim tempsExecution As Long 
tempsExecution = monStopWatch.ElapsedMilliseconds

1
2
3
4
5
6
7
8
9
Public Shared Function ByteArray2Image(ByVal BArray As Byte()) As Image 
    Try 
        Dim mstImage As MemoryStream = New MemoryStream(BArray) 
        Dim img As Image = Image.FromStream(mstImage) 
        Return img 
    Catch ex As Exception 
        Return Nothing 
    End Try 
End Function

1
2
3
4
5
6
7
8
9
10
Public Shared Function Image2ByteArray(ByVal img As Image) As Byte() 
    Try 
        Dim mstImage As MemoryStream = New MemoryStream 
        img.Save(mstImage, System.Drawing.Imaging.ImageFormat.Jpeg) 
        Dim bytImage As Byte() = mstImage.GetBuffer 
        Return bytImage 
    Catch ex As Exception 
        Return Nothing 
End Try 
End Function

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Module Module1 
    <Flags()> Enum MonEnum As Integer 
        PosUn = 1 
        PosDeux = 2 
        PosTrois = 3 
        PosQuatre = 4 
    End Enum 
  
    Sub Main() 
        Dim MaVar As MonEnum = MonEnum.PosUn Or MonEnum.PosDeux 
        Console.WriteLine(MaVar.ToString) 
    End Sub 
  
End Module

1
2
3
4
5
6
<Flags()> Enum MonEnum As Integer 
    PosUn = 1 
    PosDeux = 2 
    PosTrois = 4 
    PosQuatre = 8 
End Enum

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Class Personne 
  
    Private m_Nom, m_Prenom As String 
    Private m_BirthDay As Date 
  
    Public Sub New(ByVal Nom As String, ByVal Prenom As String, ByVal Birthday As Date) 
        m_Nom = Nom 
        m_Prenom = Prenom 
        m_BirthDay = Birthday 
    End Sub 
  
    Public ReadOnly Property Identite() As String 
        Get 
            Return Me.m_Nom & " " & Me.m_Prenom 
        End Get 
    End Property 
  
    Public ReadOnly Property Age() As Int32 
        Get 
            Return DateDiff(DateInterval.Year, m_BirthDay, Now.Date, FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1) 
        End Get 
    End Property 
  
End Class

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Class HappyBirthDayEventArgs 
    Inherits System.EventArgs 
  
    Private m_Age As Int32 
  
    Public Sub New(ByVal MonAge As Int32) 
        m_Age = MonAge 
    End Sub 
  
    Public ReadOnly Property Age() As Int32 
        Get 
            Return m_Age 
        End Get 
    End Property 
End Class

1
2
3
4
5
Public Class Personne 
  
Delegate Sub HappyBirthDayEventHandler(ByVal sender As Object, ByVal e As HappyBirthDayEventArgs) 
Public Event HappyBirthDayEvent As HappyBirthDayEventHandler 
...

1
2
3
4
5
6
7
8
Public ReadOnly Property Age() As Int32 
    Get 
        If Me.m_BirthDay.Day = Now.Day AndAlso Me.m_BirthDay.Month = Now.Month Then 
            RaiseEvent HappyBirthDayEvent(Me, New HappyBirthDayEventArgs(DateDiff(DateInterval.Year, m_BirthDay, Now.Date, FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1))) 
        End If 
            Return DateDiff(DateInterval.Year, m_BirthDay, Now.Date, FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1) 
    End Get 
End Property

1
2
3
4
5
6
7
8
9
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim bidou As New Personne("Rabilloud", "Jean-Marc", #10/12/1967#) 
    AddHandler bidou.HappyBirthDayEvent, AddressOf Anniversaire 
    Dim MonAge As Int32 = bidou.Age 
End Sub 
  
Private Sub Anniversaire(ByVal sender As Object, ByVal e As HappyBirthDayEventArgs) 
    MsgBox("aujourd'hui " & CType(sender, Personne).Identite & " a " & e.Age.ToString & " ans") 
End Sub

Friend WithEvents txtEntree1 As System.Windows.Forms.TextBox

Private Sub cmdSomme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSomme.Click

1
2
Private Sub txtEntree_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)  
  Handles txtEntree1.KeyPress, txtEntree2.KeyPress

1
2
3
4
5
6
7
8
9
10
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    ' Je m'abonne 
    AddHandler Button1.Click, AddressOf BoutonUnClick 
End Sub 
  
Private Sub BoutonUnClick(ByVal sender As System.Object, ByVal e As System.EventArgs) 
    MsgBox("ce bouton ne marche qu'une fois") 
    ' Je me désabonne 
    RemoveHandler Button1.Click, AddressOf BoutonUnClick 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
Public Class ChaineVideException 
    Inherits ApplicationException 
  
    Public Sub New() 
        MyBase.New() 
    End Sub 
  
    Public Sub New(ByVal message As String) 
        MyBase.New(message) 
    End Sub 
  
End Class

1
2
3
4
5
Sub New(ByVal NomCle As String, ByVal Valeur As String) 
    MyBase.New() 
    If Valeur.Length = 0 Then Throw New ChaineVideException("Vous ne pouvez pas attribuer une chaine vide comme valeur de clé") 
    MyBase.Add(NomCle, Valeur) 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Imports System.Globalization 
  
Private Shared Function SetFormat(ByVal d As Decimal, ByVal nfi As NumberFormatInfo) As String 
    Dim format As String= "N" 
    Dim sep As String 
    sep = CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator 
  
    Try 
        Dim s As String = d.ToString() 
        Dim i As Integer = s.IndexOf(sep) 
  
        If i >= 0 Then: format &= (s.Length - i - 1).ToString() 
        Else: format &= 0.ToString() 
        End If 
    Catch(ex As Exception) 
        Console.WriteLine(ex.Message) 
    End Try 
    Return d.ToString(format,nfi) 
End Function

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Configuration 
  
    Private Shared _StringConnection As String = "" 
  
    Public Shared Property StringConnection() As String 
        Get 
            Return _StringConnection 
        End Get 
        Set(ByVal value As String) 
            _StringConnection = value 
        End Set 
    End Property 
  
End Class

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class A 
  
    Private _MaVariable As String = "" 
  
    Public Property MaVariable() As String 
        Get 
            Return _MaVariable 
        End Get 
        Set(ByVal value As String) 
            _MaVariable = value 
        End Set 
    End Property 
  
End Class

1
2
3
4
5
6
7
8
9
10
11
12
<rd:Recordbook xmlns:rd="http://myexemple/myschema/record"> 
    <rd:Records> 
        <rd:Record> 
            <rd:FirstValue>10</rd:FirstValue> 
            <rd:SecondValue>51</rd:SecondValue> 
        </rd:Record> 
        <rd:Record> 
            <rd:FirstValue>25</rd:FirstValue> 
            <rd:SecondValue>38</rd:SecondValue> 
        </rd:Record> 
    </rd:Records> 
</rd:Recordbook>

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
27
28
29
30
31
32
33
34
35
36
Imports System.Collections.Generic 
Imports System.Xml 
Imports System.Xml.XPath 
  
Private Function GetXmlNamespaceManager(ByVal nav As XPathNavigator) _ 
    As XmlNamespaceManager 
    Dim mgr As XmlNamespaceManager = Nothing 
  
    nav.MoveToFirstChild 
    For Each keyPair As KeyValuePair(Of String, String) In _ 
        nav.GetNamespacesInScope(XmlNamespaceScope.Local) 
        If mgr Is Nothing Then 
            mgr = New XmlNamespaceManager(nav.NameTable) 
        End If 
        mgr.AddNamespace(keyPair.Key, keyPair.Value) 
    Next 
    nav.MoveToRoot 
    Return mgr 
End Function 
  
Private Sub TraiteXml(ByVal fileName As String) 
    Dim doc As XPathDocument = New XPathDocument(fileName) 
    Dim nav As XPathNavigator = doc.CreateNavigator 
    Dim mgr As XmlNamespaceManager = GetXmlNamespaceManager(nav) 
  
    If Not (mgr Is Nothing) Then 
        Dim iter As XPathNodeIterator = nav.Select _ 
        ("rd:Recordbook/rd:Records/rd:Record", mgr) 
        While iter.MoveNext 
            Dim firstValue As String = iter.Current.SelectSingleNode _ 
            ("rd:FirstValue", mgr).Value 
            Dim secondValue As String = iter.Current.SelectSingleNode _ 
            ("rd:SecondValue", mgr).Value 
        End While 
    End If 
End Sub

Dim monTexte As String = "du texte" & Environment.NewLine & "du texte ..."

1
2
3
4
5
6
7
8
' Créer le FileStream sur le fichier monimage.jpeg 
Dim photoStream As FileStream = New FileStream("C:\monimage.jpeg", FileMode.Open) 
' Affecter l'image à pictureBox1 
pictureBox1.Image = Image.FromStream(photoStream) 
' Libérer les ressources 
photoStream.Close 
' Supprimer le fichier monimage.jpeg 
File.Delete("C:\monimage.jpeg")

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Imports System.Management 
  
Dim disque As ManagementObject = New ManagementObject("win32_logicaldisk.deviceid="c:"") 
disque.Get() 
  
' Afficher toutes les propriétés du disque 
Dim strProp As String = "" 
For Each d As PropertyData In disque.Properties 
    strProp &= d.Name & "" & Environment.NewLine & "" 
Next 
  
MessageBox.Show(strProp) 
  
' Obtenir une propriété en particulier 
strProp = disque.GetPropertyValue("VolumeSerialNumber").ToString 
MessageBox.Show("n° série volume : " & strProp)

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
27
28
29
30
31
32
33
34
35
36
''' <summary> 
'''      Méthode résursive qui affiche tous les dossiers, sous-dossiers 
'''      et fichiers d'un répertoire 
''' </summary> 
''' <param name="folder">String : chemin du dossier à explorer</param> 
''' <param name="indent"> 
    '''  Int32 : représente le nombre d'espaces à écrire pour indentation 
''' </param> 
Private Shared Sub WriteFileEntries(ByVal folder As String, ByVal indent As Int32) 
    ' Créer une indentation du texte 
    Dim tab As StringBuilder = New StringBuilder([String].Empty) 
    For i As Integer = 0 To indent - 1 
        tab.Append(" ") 
    Next 
    ' Afficher les dossiers présents et leur contenu par récursivité 
    Dim subdirs As String() = Directory.GetDirectories(folder) 
  
    ' SI le dossier contient des sous-dossiers 
    If subdirs.Length <> 0 Then 
        For Each s As String In subdirs 
            ' Afficher le nom du dossier à explorer 
            Console.WriteLine(tab.ToString() + Path.GetFileName(s)) 
            ' Utiliser la récursivité avec une indentation 
            WriteFileEntries(s, indent + 3) 
        Next 
    End If 
  
    ' Afficher les noms des fichiers présents 
    Dim files As String() = Directory.GetFiles(folder) 
    ' Si le dossier contient des fichiers 
    If files.Length <> 0 Then 
        For Each s As String In files 
            Console.WriteLine(tab.ToString() + Path.GetFileName(s)) 
        Next 
    End If 
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Imports System.Collections 
  
Public Class MyString 
    Implements System.Collections.IEnumerable 
    Implements System.Collections.IEnumerator 
  
    Private string_ As String 
    Private i As Integer 
  
    Sub New() 
        string_ = "" 
        i = -1 
    End Sub 
  
    Sub New(ByVal c As String) 
        string_ = c 
        i = -1 
    End Sub 
  
    Public Function GetEnumerator() As System.Collections.IEnumerator 
        Implements System.Collections.IEnumerable.GetEnumerator 
        Return Me 
    End Function 
  
    Public ReadOnly Property Current() As Object Implements 
        System.Collections.IEnumerator.Current 
        Get 
            Return string_(i) 
        End Get 
    End Property 
  
    Public Function MoveNext() As Boolean Implements 
        System.Collections.IEnumerator.MoveNext 
        If i < string_.Length - 1 Then 
            i = i + 1 
            Return True 
        End If 
        Return False 
    End Function 
  
    Public Sub Reset() Implements System.Collections.IEnumerator.Reset 
    End Sub 
End Class 
  
Module Module1 
  
    Sub Main() 
        Dim maChaine As New MyString("abcd") 
        Dim c As Object 
        For Each c In maChaine 
            Console.WriteLine(c) 
        Next 
    End Sub 
  
End Module

1
2
3
4
5
6
7
8
9
10
11
Shared Sub Main()  
     MaFonctionVariableEnType("Bonjour")  
     MaFonctionVariableEnType("Bonjour", 2007)  
     MaFonctionVariableEnType("Bonjour", 2007, True)  
     MaFonctionVariableEnType("Bonjour", 2007, True, 10.1)  
End Sub  
Shared Sub MaFonctionVariableEnType(ByRef ParamArray MesParams As Object())  
    For Each courantObject As Object In MesParams  
        Console.WriteLine("Valeur du paramètre : {0}", courantObject)  
    Next  
End Sub

1
2
3
4
5
6
7
8
9
10
Shared Sub Main()  
    MaFonctionVariable("Bonjour")  
    MaFonctionVariable("Bonjour", "Au revoir")  
End Sub  
  
Shared Sub MaFonctionVariable(ByRef ParamArray MesParams As String())  
    For Each courantString As String In MesParams  
        Console.WriteLine("Valeur du paramètre : {0}", courantString)  
    Next  
End Sub

const int maConstante = 2007;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim SharedValue As Integer = 100 
  
' Addition 
Interlocked.Add(SharedValue, 10)  
' Soustraction 
Interlocked.Add(SharedValue, -10) 
' Incrémentation 
Interlocked.Increment(SharedValue)  
' Décrémentation 
Interlocked.Decrement(SharedValue) 
' Copie 
Dim SharedValue2 As Integer = 50  
Interlocked.Exchange(SharedValue, SharedValue2)  
  
' Comparaison et Copie 
' Comparaison entre paramètres 1 et 3 
' si égalité, SharedValue = 100 
Interlocked.CompareExchange(SharedValue, 100, 50)  
  
' Lecture 
Dim SharedValueLong As Long = 30  
Dim ValueSafe As Long = Interlocked.Read(SharedValueLong)

Thread.Sleep(0)

1
2
3
NotInheritable Class ClassImpossibleAHeriter  
   ' ... 
End Class

1
2
3
4
5
6
7
8
9
' Création de la pile 
Dim maPile As Stack = New Stack  
  
' Ajout de 2 entiers 
maPile.Push(5)  
maPile.Push(10)  
' Affiche succesivement 10 puis 5 
Console.WriteLine("Valeur {0}", maPile.Pop)  
Console.WriteLine("Valeur {0}", maPile.Pop)

1
2
' maValeurHexa contient 64 
Dim maValeurHexa as Integer = 0x40;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Class ExempleMe  
    Private MonString As String  
  
    Public Sub New()  
        MonString = "Hello"  
    End Sub  
  
    Private Function ReturnWorld() As String  
        Return "World"  
    End Function  
  
    Public Sub DisplayHelloWorld()  
        Dim message As String = Me.MonString & " " & Me.ReturnWorld  
        Console.WriteLine(message)  
    End Sub  
End Class

1
2
3
4
5
6
7
' Met un verrou sur this 
Monitor.Enter(Me)  
  
' ... 
  
' Retire le verrou sur this 
Monitor.Exit(Me)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Shared Sub Main()  
    For Each Mi As MemberInfo In GetType(Customer).GetMembers  
        If Mi.MemberType = MemberTypes.Method Then  
            Console.WriteLine("Méthode : {0}", Mi.ToString)  
        Else  
            If Mi.MemberType = MemberTypes.Field Then  
                Console.WriteLine("Champs : {0}", Mi.ToString)  
            Else  
                If Mi.MemberType = MemberTypes.Constructor Then  
                    Console.WriteLine("Constructeur : {0}", Mi.ToString)  
                End If  
            End If  
        End If  
    Next  
End Sub  
  
Public Class Customer  
    Public Id As Integer  
    Public Name As String  
  
    Public Sub MethodA(ByVal paramA As String, ByVal paramB As Integer)  
    End Sub  
End Class

1
2
3
4
5
6
7
Dim monString As String = "Ceci est un test !"  
  
If TypeOf monString Is String Then  
    Console.WriteLine("monString est bien de type String !")  
Else  
    Console.WriteLine("monString n'est pas de type String !")  
End If

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Class Customer  
End Class  
  
Class Vendor  
End Class  
  
Public Shared Sub Main()  
    Dim obj As Object = New Vendor  
    Dim testCustomer As Object = CType(ConversionHelpers.AsWorkaround(obj, GetType(Customer)), Customer)  
    Dim testVendor As Object = CType(ConversionHelpers.AsWorkaround(obj, GetType(Vendor)), Vendor)  
  
    If testCustomer Is Nothing Then  
        Console.WriteLine("L'objet testé n'est pas de type Customer !")  
    Else  
        Console.WriteLine("L'objet testé est de type Customer !")  
    End If  
    If testVendor Is Nothing Then  
        Console.WriteLine("L'objet testé n'est pas de type Vendor !")  
    Else  
        Console.WriteLine("L'objet testé est de type Vendor !")  
    End If  
End Sub

1
2
3
4
5
6
7
Dim maMesureDeTemps As Stopwatch = New Stopwatch  
' Démarrage de l'intervalle de temps 
maMesureDeTemps.Start  
' ... 
' Fin de l'intervalle de temps 
maMesureDeTemps.Stop  
Console.WriteLine("L'exécution du code a pris : {0}", maMesureDeTemps.Elapsed.ToString)

1
2
3
4
5
6
7
8
9
' Création de la file 
Dim maFile As Queue = New Queue  
  
' Ajout de 2 chaînes de caractères 
maFile.Enqueue("Bonjour")  
maFile.Enqueue("Au revoir")  
' Affiche succesivement "Bonjour" puis "Au revoir" 
Console.WriteLine("Valeur {0}", maFile.Dequeue)  
Console.WriteLine("Valeur {0}", maFile.Dequeue)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Class DifferentsMain  
  
    ' Méthode sans paramètres 
    ' Ni code de retour 
    Public Shared Sub Main()  
    End Sub  
  
    ' Méthode sans paramètres 
    ' Avec code de retour 
    Public Shared Function Main() As Integer  
        Return 0  
    End Function  
  
    ' Méthode avec paramètres 
    ' Mais sans code de retour 
    Public Shared Sub Main(ByRef ParamArray param As String())  
    End Sub  
  
    ' Méthode avec paramètres 
    ' Et code de retour 
    Public Shared Function Main(ByRef ParamArray param As String()) As Integer  
        Return param.Length  
    End Function  
End Class

1
2
3
4
5
Dim DateCourante As DateTime = DateTime.Now  
Dim DateCreationquestion As DateTime = New DateTime(2007, 1, 3)  
  
Dim Ts As TimeSpan = DateCourante - DateCreationquestion  
Console.WriteLine("Il s'est écoulé {0} jour(s) depuis la création de cette question !", Ts.Days)

1
2
3
4
5
6
Const maConst As Integer = 2007  
ReadOnly monReadOnly As String  
  
Public Sub New(ByVal monParam As String)  
    monReadOnly = monParam  
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim value As Integer = 8  
Dim res As Integer  
  
Console.WriteLine("La valeur de départ vaut {0}", value)  
  
' Décalage vers la gauche 
' res est multiplié par 2 
res = value << 1  
Console.WriteLine("Après un décalage de 1 vers la gauche, res vaut {0}", res) 
  
' Décalage vers la droite 
' res est divisé par 2 
res = value >> 1 
Console.WriteLine("Après un décalage de 1 vers la droite, res vaut {0}", res) 
  
' Décalage vers la gauche 
' res est multiplié par 4 
res = value << 2 
Console.WriteLine("Après un décalage de 2 vers la gauche, res vaut {0}", res)

1
2
3
4
5
6
7
8
9
10
' Création du tableau de 3 bits 
' Les 3 valeurs sont initialisées à false 
Dim monTableauBits(3) As BitArray  
  
' Accès à l'index 1 
monTableauBits(1) = True  
' Affiche false, true puis false 
For Each curBool As Boolean In monTableauBits  
    Console.WriteLine("Valeur : {0}", curBool)  
Next

1
2
3
4
5
6
7
8
9
10
11
Class Employee  
    Private PrenomNom As String  
  
    Public Sub New(ByVal param_PrenomNom As String)  
        PrenomNom = param_PrenomNom  
    End Sub  
  
    Public Sub New(ByVal param_Prenom As String, ByVal param_Nom As String)  
        MyClass.New(param_Prenom + " " + param_Nom)  
    End Sub  
End Class

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Namespace ConsoleApplication1 
    Public Class Test 
    End Class 
  
    Class Program 
        Private Shared Sub Main(ByVal args As String()) 
            ' Récupération du type à instancier dynamiquement 
            Dim objType As System.Type = GetType(Test) 
  
            ' Instance dynamique à partir du type donné 
            Dim objInstanceDynamique As Object = System.Activator.CreateInstance(objType) 
  
            ' Casting de l'objet 
            Dim objTest As Test = TryCast(objInstanceDynamique, Test) 
        End Sub 
    End Class 
End Namespace

1
2
3
4
5
6
7
8
Dim monObject As Object 
Dim monInt As Int32 
  
monInt = 100 
  
monObject = monInt 
  
monInt = monObject

monInt = CType(monObject, Int32)

1
2
3
4
5
6
7
8
9
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        Dim ResultatSansAccent As String = SansAccent("j'ai été en vacances à Noel où j'ai bien rigolé") 
        'Resultat : ResultatSansAccent = "j'ai ete en vacances à Noel ou j'ai bien rigole" 
    End Sub 
    Private Function SansAccent(ByVal Chaine As String) As String 
        Dim aOctets() As Byte = System.Text.Encoding.GetEncoding(1251).GetBytes(Chaine) 'converti en byte la chaine avec accents 
        Dim sEnleverAccents As String = System.Text.Encoding.ASCII.GetString(aOctets) 'converti en string la chaine sans accents 
        Return sEnleverAccents 'retourne le résultat 
    End Function

1
2
3
Dim g As System.Drawing.Graphics = TextBox1.CreateGraphics() ' Crée un objet Graphics 
Dim objSizeF As System.Drawing.SizeF = g.MeasureString(TextBox1.Text, TextBox1.Font) ' Récupère la taille  
MessageBox.Show(String.Format("Votre texte '{0}' a une longueur de {1} pixels.", TextBox1.Text, objSizeF.Width)) ' Affiche le résultat

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
' Création de la requête 
Dim objWebRequest As System.Net.WebRequest = System.Net.HttpWebRequest.Create("http://dotnet.developpez.com") 
' Envoi de la requête au serveur 
Dim objWebResponse As System.Net.WebResponse = objWebRequest.GetResponse() 
' Stream pour récupérer le résultat 
Dim objStreamReader As System.IO.StreamReader = Nothing 
  
Try 
    ' Récupération du résultat 
    objStreamReader = New System.IO.StreamReader(objWebResponse.GetResponseStream()) 
    ' Lecture du résultat 
    TextBox1.Text = objStreamReader.ReadToEnd() 
Finally 
    ' Fermeture de la connexion 
    If Not objWebResponse Is Nothing Then 
        objWebResponse.Close() 
    End If 
End Try

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Namespace ConsoleApplication1 
    Public Interface IMonInterface 
    End Interface 
  
    Public Class Test 
        Implements IMonInterface 
    End Class 
  
    Class Program 
        Shared Sub Main(ByVal args() As String) 
            Dim objType As System.Type = Type.GetType(Test) 
            Dim objTypeInterface As System.Type = objType.GetInterface("ConsoleApplication1.IMonInterface", False) 
  
            If Not objTypeInterface Is Nothing Then 
                System.Console.WriteLine("La classe 'Test' implémente l'interface 'IMonInterface' !") 
            Else 
                System.Console.WriteLine("La classe 'Test' n'implémente pas l'interface 'IMonInterface' !") 
            End If 
        End Sub 
    End Class 
End Namespace

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Namespace ConsoleApplication1 
    Public Class Test 
    End Class 
  
    Class Program 
        Private Shared Sub Main(ByVal args As String()) 
            ' Récupération du type à instancier dynamiquement à partir d'une chaîne de caractères 
            Dim objType As System.Type = System.Type.[GetType]("ConsoleApplication1.Test") 
  
            ' Vérification si le type a bien été retrouvé 
            If objType IsNot Nothing Then 
                ' Instance dynamique à partir du type donné 
                Dim objInstanceDynamique As Object = System.Activator.CreateInstance(objType) 
  
                ' Casting de l'objet 
                Dim objTest As Test = TryCast(objInstanceDynamique, Test) 
            Else 
                System.Console.WriteLine("Le type semble être incorrect!") 
            End If 
        End Sub 
    End Class 
End Namespace

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
<Serializable()> _ 
Public Class classA 
    Private m_MembreInt As Integer = 0 
    Private m_B As classB = Nothing 
  
    Public Property MembreInt() As Integer 
        Get 
            Return m_MembreInt 
        End Get 
        Set 
            m_MembreInt = value 
        End Set 
    End Property 
  
    Public Property B() As classB 
        Get 
            Return m_B 
        End Get 
        Set 
            m_B = value 
        End Set 
    End Property 
End Class 
  
<Serializable()> _ 
Public Class classB 
    Private m_MembreFloat As Single = 0 
    Private m_A As classA = Nothing 
  
    Public Property MembreFloat() As Single 
        Get 
            Return m_MembreFloat 
        End Get 
        Set 
            m_MembreFloat = value 
        End Set 
    End Property 
  
    Public Property A() As classA 
        Get 
            Return m_A 
        End Get 
        Set 
            m_A = value 
        End Set 
    End Property 
End Class

1
2
3
4
5
6
7
Dim objA As New classA() 
Dim objB As New classB() 
  
objA.B = objB 
objB.A = objA 
  
Serialize(objA)

Référence circulaire détectée lors de la sérialisation d'un objet de type ConsoleApplication2.classA.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<System.Xml.Serialization.XmlIgnore()> _ 
Public Property B() As classB 
    Get 
        Return m_B 
    End Get 
    Set 
        m_B = value 
    End Set 
End Property 
  
  
<System.Xml.Serialization.XmlIgnore()> _ 
Public Property A() As classA 
    Get 
        Return m_A 
    End Get 
    Set 
        m_A = value 
    End Set 
End Property

1
2
3
4
5
6
7
8
9
' S'abonne à l'évènement permettant d'être averti qu'un thread génère une exception 
AddHandler System.Windows.Forms.Application.ThreadException, AddressOf Application_ThreadException 
  
''' <summary> 
'''     Lancé lorsque un thread n'intercepte pas une exception qu'il a généré 
''' </summary> 
Shared Sub Application_ThreadException(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs) 
    MessageBox.Show("L'exeption générée est : " + e.Exception.Message) 
End Sub

1
2
3
4
Dim val As Integer = 510 
Dim binaryVal As String = Convert.ToString(val, 2) 
  
MsgBox("The value of " & val & " is " & binaryVal & ".", MsgBoxStyle.Information)

Imports Microsoft.Win32

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Public Function AGetExtentionDescription(ByVal ext As String) As String 
    Dim description As String = GetExtentionDescription(ext) 
    If description Is Nothing OrElse description = "" Then 
        Return [String].Format("Fichier {0}", ext) 
    Else 
        Return description 
    End If 
End Function 
  
Public Function GetExtentionDescription(ByVal ext As String) As String 
    If ext Is Nothing OrElse ext = "" OrElse ext = "." Then 
        Return Nothing 
    End If 
  
    Dim description As String = "" 
  
    Try 
        Dim keyDesc As RegistryKey = Registry.ClassesRoot.OpenSubKey(ext, False) 
        If keyDesc Is Nothing Then 
            Return Nothing 
        Else 
            Try 
                If keyDesc.GetValueKind("") <> RegistryValueKind.[String] Then 
                    Return Nothing 
                Else 
                    description = TryCast(keyDesc.GetValue(""), String) 
                    If description Is Nothing OrElse description = "" Then 
                        Return Nothing 
                    End If 
  
                    Dim optionnalRedirection As RegistryKey = Registry.ClassesRoot.OpenSubKey(description, False) 
                    If optionnalRedirection Is Nothing Then 
                        Return description 
                    Else 
                        Try 
                            If optionnalRedirection.GetValueKind("") <> RegistryValueKind.[String] Then 
                                Return description 
                            Else 
                                Return TryCast(optionnalRedirection.GetValue(""), String) 
                            End If 
                        Finally 
                            If Not optionnalRedirection Is Nothing Then 
                                optionnalRedirection.Close() 
                            End If 
                        End Try 
                    End If 
                End If 
            Finally 
                If Not keyDesc Is Nothing Then 
                    keyDesc.Close() 
                End If 
            End Try 
        End If 
    Catch 
        Return Nothing 
    End Try 
End Function 
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click 
    MessageBox.Show(AGetExtentionDescription(".exe")) 
    MessageBox.Show(AGetExtentionDescription(".jpg")) 
    MessageBox.Show(AGetExtentionDescription(".dat")) 
    MessageBox.Show(AGetExtentionDescription(".iso")) 
    MessageBox.Show(AGetExtentionDescription(".bmp")) 
End Sub

1
2
3
4
5
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 
    If e.Control And e.KeyCode = Keys.M Then 
        MsgBox("Vous avez appuyer sur Ctrl + M") 
    End If 
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
27
28
29
30
31
32
33
34
Imports MX = Microsoft.Office.Interop.Access.Dao 
Imports System.Environment 
  
Public Function getMsAccessFileVersion2() As String 
  
        Dim dbe = New MX.DBEngine() 
        Dim db As MX.Database 
  
        Dim openDialog As New OpenFileDialog 
        Dim fileName As String 
  
        Dim result As String 
  
        With openDialog 
            .Multiselect = False 
            .Title = "Select a MS Access file ..." 
            .InitialDirectory = GetFolderPath(SpecialFolder.MyDocuments) 
            .Filter = "MS Access File|*.mdb;*.mde;*.accdb;*.accde;*.accdr" 
            .ShowDialog() 
            fileName = .FileName 
        End With 
  
        db = dbe.OpenDatabase(fileName, False, False, "") 
  
        result = db.Properties("AccessVersion").Value 
  
        db.Close() 
  
        db = Nothing 
        dbe = Nothing 
  
        Return result 
  
    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
26
27
28
29
30
31
32
33
34
35
36
37
' interface publique (contrôle immédiat des arguments) 
Public Function SplitEvery(str As String, chunkSize As Integer) As IEnumerable(Of String) 
    If str Is Nothing Then Throw New ArgumentNullException("str") 
    If chunkSize < 0 Then Throw New ArgumentOutOfRangeException("chunkSize") 
    ' appel au bloc itérateur 
    Return SplitEveryIterator(str, chunkSize) 
End Function 
  
' bloc itérateur privé (permet l'évaluation tardive) 
Private Iterator Function SplitEveryIterator(str As String, chunkSize As Integer) As IEnumerable(Of String) 
    If str.Length <= chunkSize Then 
        ' si le texte est plus court que la taille demandée ; le renvoyer directement 
        Yield str 
    Else 
        ' bien veiller à utiliser la division entière \ plutôt que la divison flottante / 
        Dim chunkCount = str.Length \ chunkSize ' nombre de morceaux 
        Dim remainingSize = str.Length Mod chunkSize ' taille du morceau final 
  
        For offset = 0 To chunkCount - 1 
            Yield str.Substring(offset * chunkSize, chunkSize) 
        Next 
  
        ' renvoyer le morceau final s'il existe 
        If remainingSize > 0 Then Yield str.Substring (chunkCount * chunkSize, remainingSize) 
    End If 
End Function 
  
' exemple d'utilisation 
For Each str In SplitEvery("hello", 2) 
    Console.WriteLine(str) 
Next 
  
' affichera : 
  
' he 
' ll 
' o