Cours VB.NET

Private Sub Swap(Of ItemType) (ByRef v1 As ItemType, ByRef v2 As ItemType)

Dim temp As ItemType

temp = v1

v1 = v2

v2 = temp

End Sub

Swap(Of Integer)(v1, v2)

Swap(Of String)(v1, v2)

Public Class SomeClass(Of ItemType)

Private internalVar as ItemType    ' variable generic

Public Function SomeMethod(ByVal value As ItemType) As ItemType

'Fonction acceptant un generic comme paramètre
...
End Function

End Class

Imports System.Collections.Generic.



Dim l As New List(Of String)

l.Add("toto")    'On ajoute une string

Dim S As String = l.Item(0) ' l'item est bien typé : même avec 'Option Strict=on' 
'pas besoin de CType. 

index= Array.indexOf (Of Short)(monTab, 2) 

Dim l As New List(Of String)

Il s'agit d'une List avec Index.

l.Add("toto")    'On ajoute une string

Dim S As String = l.Item(0) ' l'item est bien typé : même avec 'Option Strict=on' 
'pas besoin de CType. 

Dim genericColl As New Dictionary(Of String, String)
genericColl.Add("PremiereClé", item1)

Dim Resultat = From Element In MyData _

Where Element.Nom = "Toto" _

Select Element

For Each P In Resultat

   ListBox1.Items.Add(P.NOM )

Next

' Execution immédiate avec ToList.
Dim ListPersonneAyantPrenomToto = (From Element In MyData _
Where Element.Nom = "Toto" _
Select Element).ToList()
' On retrouve la liste des eléments de MyData ayant le Prenom='Toto"

' Execution immédiate avec Count.
Dim NombrePersonneAyantPrenomToto = (From Element In MyData _
Where Element.Nom = "Toto").Count()
' On a compté le nombre d'élément ayant  pour Prenom="Toto".
'NombrePersonneAyantPrenomToto contient le résultat

' Execution différée .
Dim Resultat = From Element In MyData _
Where Element.Nom = "Toto" _
Select Element
' . . .
Dim Tableau = Resultat.ToArray()

Dim Resultat = From Element In MyData _

 Order By Element.Price Descending, Element.Nom _

 Select Element.Nom, Element.Price

Dim queryResults = From cust In customers, ord In orders _
                   Where cust.CustomerID = ord.CustomerID _
                   Select cust, ord

Dim custs = From cust In db.Customers _
            Where cust.Country = "France" _
                And (cust.CompanyName.StartsWith("F") _
                Or cust.CompanyName.StartsWith("V")) _
            Order By cust.CompanyName _
            Select cust.CompanyName, cust.City

DataGridView1.DataSource = custs

' La Data source: c'est un tableau d'Integer 

Dim numbers() As Integer = {0, 1, 2, 3, 4, 5, 6}

 

' Création de la requête.

'Pour chaque élément num dans la source

'Si l'élément num est tel que num Mod 2=0 (condition pour qu'il soit pair)

'Selectionner num et le mettre dans réponses

 Dim réponses = From num In numbers _

                 Where num Mod 2 = 0  _

                 Select num 

 

' Exécution de la requête. 

' On utilise les réponses

For Each number In réponses 

    Console.Write(number & " ")

Next

Dim nombredepair = (From num In numbers _ 

                    Where num Mod 2 = 0 _ 

                    Select num).Count()

Console.Write(nombrepair) 'pour afficher 4

' Un string 

Dim MyString As String = "ABCjkjhkhs666KMOOP"

' Select les caractères qui sont des nombres
Dim Query = From ch In MyString _
Where ch.IsDigit(ch) _
Select ch


' Exécution de la requête
For Each c As Char In Query
  Console.Write(c & " ")
Next

' Combien y a t-il de nombres?
Dim count As Integer = Query.Count()
Console.WriteLine("Count = " & count)

Dim Query2 = MyString.TakeWhile(Function(c) c <> "6")

' Execute the second query
For Each ch In Query2
 Console.Write(ch)
Next

Dim Query2 = MyString.Except("6")

Dim text As String = "Ceci est un cours Visual Basic" & _
" pour les débutants et les autres"

Dim searchTerm As String = "Basic"

' Conversion de la String en Tableau de mots:.
Dim dataSource As String() = text.Split(New Char() {" ", ",", ".", ";", ":"}, _
StringSplitOptions.RemoveEmptyEntries)

' Création et exécution de la requête
' Utiliser ToLower pour  trouver "Basic " et "Basic" 
Dim Query = From word In dataSource _
Where word.ToLowerInvariant() = searchTerm.ToLowerInvariant() _
Select word

' Compter les 'Basic'.
Dim count As Integer = Query.Count()
Console.WriteLine(count )

' Soit 2 tableaux de Sting 
Dim nom1 As String() =  {"Philippe", "Paul"}
Dim nom2 As String() = {"Paul", "Jean"}




' Créer la requête.
Dim difference = nom1.Except(nom2)



' Executer
For Each name As String In difference
 Console.WriteLine(name)
Next

Dim ControlsEnabled = _
            From c In Me.Controls _
            Where CType(c, Control).Enabled _
            Select CType(c, Control)

' Type explicite pour une String
Dim Myname1 As String = "Rouge"

' Exploitation de l'inférence de type
Dim Myname2 = "Vert"

Dim MyCustomer = New Customer With {.Name = "Philippe"}

Dim AnomyneCustomer = New With {.Name = "Philippe"}

Dim namePriceQuery = From prod In products _ 

                     Select prod.Name, prod.Price

Sub QuickSort(ByVal debut As Integer, ByVal fin As Integer)

Dim pivot, gauche, droite, temp As Integer

Do

...

Loop Until gauche = droite

End Sub

#End Region

#if .. then

#else

#end if

#const Demo = True    'créer une constante conditionnelle

Class MaClasse
#if Demo then
  Sub F()
#else
  Sub G()
#end if

End Class

Class C
Sub F()
End Class

/define const Demo=True

<Obsolete("Sera enlevé à la prochaine version ")> Function Add(a as Integer, b as Integer) as Integer
Add = a + b - c
End Function

Imports System.ComponentModel    'Classe chargées du comportement des composants.

 

<Browsable(False)> Property Valide() As Integer

<ToolBoxBitMap("C:MonIcone")> Public Class MaClasse

<Serializable()> Public Class TestSimpleObject

Public member1 As Integer
Public member2 As String
Public member3 As String
Public member4 As Double

'Un member qui ne doit pas être sérialisé.
<NonSerialized()> Public member5 As String

A+1=B            'Erreur dans l'affectation

f.ShowDialogue   'Faute de frappe, il fallait taper ShowDialog

2 For... et un seul Next

Dim i As Integer: Label.Text= i  'Affectation d'un Integer à une propriété text qui attend une String.

....

Try

    'Instruction susceptible de provoquer une erreur.

Catch

    'Traitement de l'erreur

Finally

    'Code toujours exécuté    

End Try

Catch ex As Exception

Try

    sr= New StreamerReader (NomFichier)

Catch ex As DirectoryNotFoundException

    MsgBox("Répertoire invalide")

Catch ex As FileNotFoundException

    MsgBox("Fichier invalide")

Catch ex As Exception

    MsgBox(ex.Message)

End Try

Catch ex As FileNotFoundException

             When ex.Message.IndexOf ("Mon Fichier.txt") >0

                MsgBox ("Impossible d'ouvrir Mon Fichier.txt")

On Error GoTo RoutinedErreur 'Si une erreur se produit se rendre à 'RoutineErreur'
Dim x As Integer = 33
Dim y As Integer = 0
Dim z As Integer
z = x / y ' Crée une division par 0 !!

RoutinedErreur: ' La Routine d'erreur est ici (remarquer  ':' indiquant une etiquette).
Select Case Err.Number ' On regarde le numéro de l'erreur.
Case 6 ' Cas : Division par zéro interdite
    y = 1 ' corrige l'erreur.
Case Else
    ' autres erreurs....
End Select
Resume ' Retour à la ligne qui a provoqué l'erreur.

On Error Goto 0

On Error Resume Next

Kill (MonFichier)

On Error goto 0

Private Sub Button3_Click 

If String.IsNullOrEmpty(TextBox1.Text) Then 'on teste si l'utilisateur a tapé quelque chose

 MsgBox("Tapez quelque chose")

Else

 If Not IsNumeric(TextBox1.Text) Then 'on teste si l'utilisateur a tapé du numérique

    MsgBox("Tapez un chiffre")

 End If

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim i As Integer

Try

    i = CType(TextBox1.Text, Integer)

Catch

    MsgBox("saisir un nombre")

End Try

End Sub