https://github.com/dotnet/roslyn/blob/1ff27b046b5c03abb38bfeda44eb82da0b8df9de/License.txt</ref>"}},"i":0}}]}'>
Visual Basic .NET est un langage de programmation à la syntaxe similaire à celle de Visual Basic 6.
VB.NET permet de développer en .NET via Visual Studio, sur les systèmes d'exploitation Windows (98, 2000, XP, Vista, 7, 8, 8.1, 10 et 11). Comme tout autre langage de la plateforme .NET, VB.NET est compilé vers le langage intermédiaire CIL.
\n ''' <param name=\"Args\">Les arguments en ligne de commande passé au programme</param>\n Public Sub Main(ByVal Args As String())\n\n ' Écrire dans la console\n Console.WriteLine(\"Hello World!\")\n\n ' Attendre que l'utilisateur appuie sur une touche\n Console.ReadKey(False)\n\n End Sub\n\nEnd Module\n"}}'>
PublicModuleHelloWorld
' Les lignes qui suivent sont toutes facultatives, mais conseillées
' Elles sont automatiquement transformées en documentation
''' <summary>Point d'entrée du programme</summary>
''' <param name="Args">Les arguments en ligne de commande passé au programme</param>
PublicSubMain(ByValArgsAsString())
' Écrire dans la console
Console.WriteLine("Hello World!")
' Attendre que l'utilisateur appuie sur une touche
Console.ReadKey(False)
EndSub
EndModule
'
' Une simple condition IF
'
IfXCondition=3Then
' XCondition vaut 3
ElseIfYCondition<>4Then
' XCondition ne vaut pas 3
' YCondition ne vaut pas 4
ElseIfZConditionIsAnotherObject
' XCondition ne vaut pas 3
' YCondition vaut 4
' ZCondition et AnotherObject renvoient vers le même objet
Else
' Aucune des conditions précédentes n'a été rencontrée
EndIf
'
' Un Select Case optimisé (Switch en C#)
'
SelectCaseX
Case0
' X = 0
Case1
' X = 1
Case2
' X = 2
CaseElse
' X <> 1
Endselect
'
' Un SELECT CASE translaté en IF/ELSE IF à la compilation
'
SelectCaseY
CaseIs<3
' Y < 3
Case3
' Y = 3
CaseElse
' Y > 3 dans ce cas
EndCase
'
' Boucle WHILE
'
WhileImTrue
' ImTrue est vrai
' Ici on change la valeur de ImTrue
ImTrue=False
EndWhile
' ImTrue n'est plus vrai
'
' Boucle Do...Loop
'
ImFalse=False
Do
' Aucune condition n'a été appliquée si c'est la première fois
' Sinon, c'est que ImFalse n'est pas faux
' Dans cet exemple, le code n'est pas relancé une {{2e}} fois
LoopUntilImFalse=False
' ImFalse est bien faux
'
' Boucles For et For Each
'
ForXAsInteger=0to9
' Ce code sera exécuté 10 fois
Next
ForXAsInteger=10To1Step-1
' Ce code sera exécuté 10 fois en sens inverse
Next
ForEachElementAsElementTypeInArray
' Ce code sera exécuté autant de fois qu'il y a d'éléments de type ElementType dans Array
Next
\" />\n <% Next %></root>\n' Sauvegarde dans un fichier le document XML\nXMLDoc.Save(\"FileName.xml\")\n"}}'>' Retourne un énumérateur qui renvoie tous les noms des fenêtres enfants qui sont des éditeurs de texte
' Visual Studio 2008 trouve le type de la variable automatiquement, similaire au "var" du C#
DimAllText=FromCWinMyFormInstance.ChildWindows
WhereCW.GetType()isGetType(MyTextEditorWindow)
SelectCW.Text
' Crée un objet XML (un Document XML, pas une chaine de caractère)
' Visual Studio 2008 trouve le type de la variable automatiquement, similaire au "var" du C#
DimXMLDoc=_
<root><%ForEachIteminItems%>
<itemname="<%= Item.Name %>"/>
<%Next%></root>
' Sauvegarde dans un fichier le document XML
XMLDoc.Save("FileName.xml")
Exemple d'un événement simple
modifiermodifier le code