FAQ ASP.NET/VB.NET

System.Diagnostics.Process

					Dim Processus As New System.Diagnostics.Process
					Processus.StartInfo.FileName = "MonApplis.exe"
					Process.StartInfo.Arguments = "Monargument"
					Processus.Start() 'retourne un booléen confirmant le démarage du process
				

Processus.Close()

					Dim strAAfficher As String = strEncode.Replace("" & Microsoft.VisualBasic.Chr(13) & "", "<br/>")
				

					Dim ver As Version = Environment.Version
					Console.WriteLine("Version Framework = {0}", ver)
				

					Sub NomMethode()
					SyncLock Me
					' Code à verrouiller
					End SyncLock
					End Sub

				

					Dim min As Integer = 0
					Dim max As Integer = 20
					Rnd.Next(min, max)
				

					Dim maDateChaine As String = "03/06/2005 17:06:00"
					Dim maDate As DateTime = DateTime.Parse(maDateChaine)
				

					container.Controls.Add(New LiteralControl("<br/>"))
				

					Dim diff As TimeSpan = date1 - date2
				

					Private Shared increment As Integer = 64

					Public Shared Function ToBaseN(ByVal nombre As Integer, ByVal _base As Integer) As String
					Dim reste As Integer
					Dim chaine As String = String.Empty
					While nombre >= _base
					reste = nombre Mod _base
					nombre = (nombre - reste) / _base
					If reste > 9 Then
					chaine = CType((reste - 9 + increment), Char).ToString + chaine
					Else
					chaine = reste.ToString + chaine
					End If
					End While
					If nombre > 9 Then
					chaine = CType((nombre - 9 + increment), Char).ToString + chaine
					Else
					chaine = nombre.ToString + chaine
					End If
					Return chaine.ToUpper
					End Function
				

					Public Class SessionTransfert

					Public Class Exemple1

					Public Shared Property Teacher_Name() As String
					Get
					If Not (HttpContext.Current.Session("Teacher_Name") Is Nothing) Then
					Return HttpContext.Current.Session("Teacher_Name").ToString
					Else
					Throw New SessionUndefinedException("Teacher_Name")
					End If
					End Get
					Set
					HttpContext.Current.Session("Teacher_Name") = value
					End Set
					End Property

					Public Shared Property Teacher_FirstName() As String
					Get
					If Not (HttpContext.Current.Session("Teacher_FirstName") Is Nothing) Then
					Return HttpContext.Current.Session("Teacher_FirstName").ToString
					Else
					Throw New SessionUndefinedException("Teacher_FirstName")
					End If
					End Get
					Set
					HttpContext.Current.Session("Teacher_FirstName") = value
					End Set
					End Property
					End Class

					Public Class NewSchool

					Public Shared Property School_Id() As Integer
					Get
					If Not (HttpContext.Current.Session("School_Id") Is Nothing) Then
					Return Convert.ToInt32(HttpContext.Current.Session("School_Id"))
					Else
					Throw New SessionUndException("School_Id")
					End If
					End Get
					Set
					HttpContext.Current.Session("School_Id") = value
					End Set
					End Property
					End Class
					End Class
				

					
Public Shared Function IsEven(ByVal hexString As String) As Boolean
  If (hexString.Length Mod 2 = 0) Then Return True Else Return False
End Function

Public Shared Function ToEvenByteStrings(ByVal hexString As String) As String()
  If Not IsEven(hexString) Then hexString = "0" & hexString

  Dim currentChar As Integer = 0
  Dim index As Integer = 0
  Dim max As Integer = hexString.Length
  Dim byteStrings() As String = New String(Convert.ToInt32(max / 2) - 1) {}

  While (currentChar < max)
     byteStrings(index) = hexString.Substring(currentChar, 2)
     index += 1
     currentChar += 2
  End While

  Return byteStrings
End Function 

				

					
Public Shared Function ToByteFromHex(ByVal byteString As String) As Byte
   Dim byte1 As Byte = Convert.ToByte(Uri.FromHex(byteString.Chars(0)))
   Dim byte2 As Byte = Convert.ToByte(Uri.FromHex(byteString.Chars(1)))
   Return Convert.ToByte((byte1 * 16) + byte2)
End Function 

				

					
Public Shared Function BytesFromHex(ByVal hexString As String) As Byte()
   Dim bytes() As Byte = Nothing
   Dim max As Integer = hexString.Length

   If (max > 0) Then
     If (max = 1) Then : bytes = New Byte() {ToByteFromHex("0" & hexString)}
     Else
        Dim index As Integer = 0
        Dim byteStrings() As String = ToEvenByteStrings(hexString)
        Dim byteString As String

        bytes = New Byte(byteStrings.Length - 1) {}
        For Each byteString In byteStrings
           bytes(index) = ToByteFromHex(byteString)
           index += 1
        Next
     End If
   End If
   Return bytes
End Function 

				

					
Public Shared Function ObjectToControl(ByVal obj As Object) As Control
    Dim typeName As String = obj.GetType.ToString
    Dim a As Assembly = Assembly.GetAssembly(GetType(Form))
    Dim t As Type = a.GetType(typeName)
    Dim c As Control = CType(Activator.CreateInstance(t), Control)
    c = CType(Convert.ChangeType(obj, t), Control)
    Return c
End Function

				

					
Public Shared Function ToHexString(ByVal [byte] As Byte) As String
   Return [byte].ToString("X2", Nothing)
End Function
Public Shared Function ToHexString(ByVal [uint16] As UInt16) As String
   Return [uint16].ToString("X4", Nothing)
End Function
Public Shared Function ToHexString(ByVal [uint32] As UInt32) As String
   Return [uint32].ToString("X8", Nothing)
End Function
Public Shared Function ToHexString(ByVal [uint64] As UInt64) As String
   Return [uint64].ToString("X16", Nothing)
End Function 

				

					
Public Shared Function ToHexString(ByVal [sbyte] As SByte) As String
   Return ToHexString(Convert.ToByte([sbyte]))
End Function
Public Shared Function ToHexString(ByVal [int16] As Short) As String
   Return ToHexString(Convert.ToUInt16([int16]))
End Function
Public Shared Function ToHexString(ByVal [int32] As Integer) As String
   Return ToHexString(Convert.ToUInt32([int32]))
End Function
Public Shared Function ToHexString(ByVal [int64] As Long) As String
   Return ToHexString(Convert.ToUInt64([int64]))
End Function 

				

					
Imports System

Public Class MyEventArgs
  Inherits EventArgs
  Private myArg1 As Boolean
  Private myArg2 As Integer
  Public ReadOnly Property Arg1 As Boolean
    Get
       Return Me.myArg1
    End Get
  End Property
  Public ReadOnly Property Arg2 As Integer
    Get
       Return Me.myArg2
    End Get
  End Property
  Public Sun New(ByVal arg1 As Boolean, ByVal arg2 As Integer)
    MyBase.New()
    Me.myArg1 = arg1
    Me.myArg2 = arg2
  End Sub
End Class 

				

					
Public Delegate Sub MyEventHandler(ByVal sender As Object, ByVal e As MyEventArgs ); 

				

					
Public Class MyClass
 ' ...
  Public Event MyEvent As MyEventHandler
 
  ' la méthode protégée dérivable OnMyEvent invoque les délégués.
  ' L'émetteur (sender) est ici "Me", l'instance courante de la classe.
  Protected Overridable Sub OnMyEvent(ByVal e As MyEventArgs)
    If Not(MyEvent Is Nothing) Then RaiseEvent MyEvent(Me, e)
  End Sub

End Class 

				

					
boolValue As Boolean = True
intValue As Integer = 0
Me.OnMyEvent(New MyEventArgs(boolValue, intValue))
' ou alors directement
RaiseEvent MyEvent(Me, New MyEventArgs(boolValue, intValue)) 

				

					
Public Class Main
  Private mc As New MyClass()
  Public Sub New()
     ' on assigne notre Delegate à l'évènement de l'objet
     AddHandler Me.mc.MyEvent, AddressOf Me.MyDelegate
  End Sub

  Private Sub MyDelegate(ByVal sender As Object, Byval e As MyEventArgs)
    ' traitement à effectuer
  End Sub 

				

					
My.Computer.Audio.Play("c:\unFichier.wav")

				

					
Imports System 
'... 
Private Const libelle As String = "Vous avez recherché : Le "; 
'... 
Private Sub Valider_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Valider.Click 
  Dim lannee As Integer 
  With Me 
    'Verifier si la saisie est bien numérique 
    'Recuperer l'année saisie 
    With .anneeValue 
      If IsNumeric(.Text) Then 
        lannee = CType(.Text, Integer) 
      Else : Exit Sub 
      End If 
    End With 

    'Imposer une date référencée au 01/01/ de l'année 
    Dim dateRef As New DateTime(lannee, 1, 1) 

    With .semaineValue 
      'Recuperer le choix de la semaine 
      Dim week As Double = CType(.Value, Double) 
      'Ajuster le nombre de jours/semaine à la date référencée 
      If week > 1 Then dateRef = dateRef.AddDays((week - 1) * 7) 
    End With 

    With .jourValue 
      'Recuperer le choix du jour 
      Dim day As Double = CType(.Value, Double) 
      'Recuperer le jour de la semaine de la date référencée 
      Dim j As Integer = CType((dateRef.DayOfWeek), Integer) 
      'Ajuster en fonction de la difference des deux 
      Select Case j 
        Case Is > day : dateRef = dateRef.AddDays(-(j - day)) 
        Case Is < day : dateRef = dateRef.AddDays(day - j) 
      End Select 
    End With 
    
    'Afficher le resultat 
    With .resultat 
      .Text = String.Empty 
      .Text &= libelle 
      .Text &= dateRef.ToLongDateString 
    End With 

  End With 
End Sub 

				

					
Dim monNombre As Double
Dim max As Double
Dim min As Double
Dim texte As String = String.Empty
For each monNombre in MaListe
   min = Math.Floor(monNombre)
   max = Math.Ceiling(monNombre)
   texte &= monNombre.ToString & " est compris entre " & min.ToString & " et " & max.ToString
   texte &= System.Environment.NewLine
Next
Me.Label1.Text = texte