Cours VB.NET

Dim T() As Integer
	T(0)=78
	..
	Array.Sort(T)

Public Class Form2
Inherits Systeme.Windows.Forms.Form 

End Class

Form2.Load
			
Form2.Show

Form2.DefInstance.Show()

Private Shared m_vb6FormDefInstance As form2
Private Shared m_InitializingDefInstance As Boolean
Public Shared Property DefInstance() As form2
	Get
		If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
			m_InitializingDefInstance = True
			m_vb6FormDefInstance = New form2()
			m_InitializingDefInstance = False
		End If
			DefInstance = m_vb6FormDefInstance
	End Get
	Set
			m_vb6FormDefInstance = Value
	End Set
End Property
#End Region

Dim F As New Form2
				
F.Show

Dim str As String = TextBox1

Dim str As String = TextBox1.Text

For i=0 to 100
	Dim Str As String 'Str est visible uniquement entre For et Next
	...
	next i

Structure MaStructure
	Public i As Integer
	Public c As String
End Structure

If Flag = False Then
   	AfficheMessage()
End If

Private Function MaFonction (Byval Chaine As String)
	Return Chaine.ToLower()
End Function

Public Property ThisProperty As String
    Get
      	ThisProperty = InternalValue
    End Get
    Set
        InternalValue = value
    End Set
End Property

Sub Mon Programme
	..
		Gosub Routine
	..
End SuB

Routine:
		Code de la routine
Return

Sub Mon Programme
	..
		Call Routine()
	..
		End Sub
		
Sub Routine()
		
    code de la routine
			
End Sub

' Copy the active window.

SendKeys.SendWait("{PRTSC}")

System.Threading.Thread.Sleep(1000)

Dim window As Bitmap

window = CType(Clipboard.GetDataObject().GetData("Bitmap"), Bitmap)

' Copy the entire screen.

SendKeys.SendWait("+{PRTSC}")

System.Threading.Thread.Sleep(1000)

Dim screen As Bitmap

screen = CType(Clipboard.GetDataObject().GetData("Bitmap"), Bitmap)

    Dim newForm1 As NewForm1
    newForm1.BackColor = System.Drawing.Color.Green
    newForm1.Show()

    Form1.ForeColor = System.Drawing.Color.Coral
    Form1.BackColor = System.Drawing.Color.Cyan
    Form1.Show()

maskedTextBox1.Mask = "LL"
 

0 Chiffre requis (lettres refusés) 
9 Chiffre ou espace optionnel. (lettres refusés) 
# Chiffre ou espace optionnel. (+) (-) sont permis. 
L Lettre requise. (chiffres refusés) 
? Lettre requise optionnelle. (chiffres refusés) 
& Caractère requis.(Chiffres et lettres permises)   
C Caractère, requis optionnel.(Chiffres et lettres permises %*& permis)  
A Alphanumérique requis opt.(Chiffres et lettres permises %*& refusés)  
. Point Decimal; celui de la culture. 
, Séparateur de millier; celui de la culture. 
: Séparateur de temps; celui de la culture. 
/ Séparateur de date; celui de la culture. 
$ Symbole monétaire; celui de la culture. 
< Convertir les caractères qui suivent en minuscule.  
>  Convertir les caractères qui suivent en majuscule. 
| Stop la conversion minuscule ou majuscule. 
\ Escape. Le caractère qui suit devient un littéral.“\\” affichera '\'. 

Dim returnValue As Boolean
returnValue = maskedTextBox1.MaskCompleted

Private Sub MaTextBox_TextChanged(sender As Object, _ 
  e As EventArgs) Handles MaTextBox.TextChanged
End Sub 

System.Collections.Generic.List(Of String)

Dim l As New System.Collections.Specialized.ListDictionary

Partial Class MaClasse

End Class

Public Structure height
    ...
    Public Shared Operator +(ByVal h1 As height, ByVal h2 As height)As height
        Return New height(h1.feet + h2.feet, h1.inches + h2.inches)
    End Operator
End Structure

Public Shared Operator IsTrue(ByVal e As Personne) As Boolean

If e Is Nothing Then

    Return False

Else

    Return e.Present

End If

End Operator

Public Shared Operator IsFalse(ByVal e As Personne) As Boolean

    Return Not e

End Operator

If e then.. 

Public Shared Widening Operator CType(ByVal e As Personne) As String

Return e.Nom + " " + e.Prenom

End Operator

 

Public Shared Widening Operator CType(ByVal  e As Personne) As Date

If e Is Nothing Then

    Return Nothing

Else

    Return e.DateDeNaissance

End If

End Operator

 

Public Shared Widening Operator CType(ByVal  e As Personne) As Boolean

    If e Is Nothing Then Return False Else Return e.Present

End Operator

Public Class employee
    Private salaryValue As Double
    Protected Property salary() As Double
        Get
            Return salaryValue
        End Get
        Private Set(ByVal value As Double)
            salaryValue = value
        End Set
    End Property
End Class

Public Class MyClasse(Of t)
    Public Sub NewItem(ByVal newItem As t)
        Dim tempItem As t
        ' Insert code that processes an item of data type t.
    End Sub
End Class

Public UneClass As New MyClasse(Of Integer)
Friend stringClass As New MyClasse(Of String)

Dim hs As New HashSet(Of String)

Ajout d'éléments:

hs.Add("toto")

hs.Add("lulu")

hs.Add("titi"

Dim caMarche As Boolean = hs.Add("toto")  

hs.Count 

hs.Remove("lulu") 

hs.RemoveWhere( Adress Of Test) 

Private Shared Function Test(ByVal s As String) As Boolean  

    Return (Instr(s,"t")<>0) 

End Function 

hs.UnionWith(hs2) 

hs.IntersectWith(hs2) 

hs.ExceptWith(hs2) 

hs.SymmetricExceptWith(hs2) 

Dim b As Boolean= hs.IsSubsetOf(hs2) 

Dim b As Boolean= hs.IsSupersetOf(hs2) 

Dim per2 As New Personne

With per2

  .Nom = "Philippe"

  .Id = 2

End With

Dim per1 As New Personne ("Philippe", 2)

Dim per1 As New Personne With {.Nom = "Philippe", .Id = 2}

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

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

' 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

'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 reponses 

    Console.Write(number & " ")

Next

Dim nombredepair = (From num In numbers _ 

            Where num Mod 2 = 0 _ 

            Select num).Count()

Imports System.Runtime.CompilerServices

Module StringExtensions

    <Extension()> _
    Public Sub Print(ByVal aString As String)
        Console.WriteLine(aString)
    End Sub

End Module

Imports ConsoleApplication2.StringExtensions

Module Module1

    Sub Main()

        Dim exemple As String = "Bonjour"
        ' Appel de  l'extension method Print.
        exemple.Print()

        ' Appel de la méthode d'instance  'ToUpper'.
        exemple.ToUpper()
        exemple.ToUpper.Print()

    End Sub

End Module

<Extension()> _
Public Sub PrintPonctuation(ByVal aString As String,  ByVal punc As String)
    Console.WriteLine(aString & punc)
End Sub

Dim exemple As String = "Exemple" 
exemple.PrintPonctuation(".")

Dim ajoute1 = Function(num As Integer) num + 1

Console.WriteLine(ajoute1(5))   Affiche 6.

Console.WriteLine((Function(num As Integer) num + 1)(5))

Class Window1

Delegate Function ajoute(ByVal num As Integer) As Integer

Public ajoute1 As ajoute = Function(num) num + 1

 

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) _
 Handles Button.Click

    MsgBox(ajoute1(3).ToString)

End Sub

 
End Class

Module Module1
 Sub Main() 
'On appelle une fonction en envoyant une valeur et une fonction lambda.
' La ligne affiche "Success" car 4 est pair. 
testResult(4, Function(num) num Mod 2 = 0) 
' La ligne affiche "Failure" car 5 n'est pas > 10.
testResult(5, Function(num) num > 10)
 End Sub 
 
' Sub testResult a 2 arguments, 'value' un Integer  et 'fun' la fonction lambda 
' On teste la fonction lambda 'fun(value)' 
' en fonction du resultat True ou False on affiche "Success" ou "Failure"
Sub testResult(ByVal value As Integer, ByVal fun As Func(Of Integer, Boolean)) 
If fun(value) Then
 Console.WriteLine("Success") 
Else
 Console.WriteLine("Failure") 
End If 
End Sub 
End Module

Partial Private Sub MyMethode()
End Sub

Partial Class Product 
Private _Quantity As Integer 
Property Quantity() As Integer 
...
End Property
 
Partial Private Sub QuantityChanged() 
End Sub 
 
End Class

Partial Class Product</b>				

 Private Sub QuantityChanged()

     MsgBox("Quantity was changed to " & Me.Quantity) 

End Sub 

End Class

 

Dim contact1 As XElement = _
    <contact>
      <name>Patrick Dupont</name>
      <phone type="home">206-555-0144</phone>
      <phone type="work">425-555-0145</phone>
    </contact>

Dim contactDoc As XDocument = _
    <?xml version="1.0"?>
    <contact>
      <name>Patrick Dupont</name>
      <phone type="home">206-555-0144</phone>
      <phone type="work">425-555-0145</phone>
    </contact>

Dim MyNumber As String = "12345" 

Dim MyDate As String = "3/5/2006" 

Dim livre As XElement = _ 

<livre category="fiction" isbn=<%= MyNumber %>> <TheDate><%= MyDate %></TheDate> </livre>

Dim MyInteger As Nullable (Of Integer)

Dim MyInteger? As Integer

Dim MyInteger As Integer?

Dim MyBol As Boolean?

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

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

Dim namePriceQuery = From prod In products _ 

                     Select prod.Name, prod.Price