Cours VB.NET

Buttom1.AutoEllipsis= True

With Button1
.Text= "Ok"

.Image= MonProgramme.My.Resources.Resources.BtOk

.TextImageRelation=TextBeforeImage 

.ImageAlign= MiddleRigth

.TextAlign= MiddleLeft
End With

 Button1.Padding = New Padding(30, 10, 10, 10)

Private Sub Button_Click(..)

End Sub

Dim g As New System.Drawing.Bitmap(Button1.Image)

g.MakeTransparent(System.Drawing.Color.Yellow)

Button1.Image = g

MyButton.BackGroundImageLayout= Stretch  'met le dessin à la taille du bouton.

MyButton.FlatStyle= Flat  'fait disparaître des éléments du bouton standard.

MyButton.BackColor= Transparent  'Efface le fond du bouton standard.

MyButton.Text= "Importer Image'  'met le texte.

Private Sub InitializeMonButton()
Dim button1 As New Button1()
button1.Text="Ok"
' Ajouter le bouton à la Form
Controls.Add(button1)
End Sub 

Private WithEvents Button1 As New Button

Sub OnClique ( sender As Objet, EvArg As EventArgs) Handles Button1

End Sub  

Dim nom As String

nom= txtNom.Text

 TextBox1.Text= "Bonjour" 'Affiche 'Bonjour' dans le contrôle.

TextBox1.Multiline = True
TextBox1.ScrollBars = ScrollBars.Both 'ou None, Horizontal, Vertical

TextBox1.MaxLength= 3 'limite la saisie à 3 caractères.

 'Affiche des ronds (caractère system)
 TextBox1.UseSystemPasswordChar = True
 
 'Affiche des étoiles
TextBox1.PasswordChar = "*"c

If textBox1.CanUndo = True Then
textBox1.Undo()
' Vider le buffer Undo.
textBox1.ClearUndo()
End If

textBox2.AppendText(MonText)

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
 Handles TextBox1.KeyUp
If e.Shift And e.KeyCode= Keys.A Then
    MsgBox ("La lettre 'A' a été tapée")
End If
End Sub

Dim tempArray() as String

tempArray = textBox1.Lines     'On utilise la collection Lines

T= textBox1.Lines(0)

TextBox1.SelectionStart=3 'position de départ

TextBox1.SelectionLength=4 'nombre de caractère sélectionné

TextBox1.MaxLength= 3 'limite la saisie à 3 caractères.

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = "A" Then e.KeyChar = CType("", Char)
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = "A" Then e.Handler = True
End Sub

Private Sub TextBox1_KeyPress
    If Not "<>=/*-+".Contains(e.KeyChar) Then e.KeyChar = Nothing
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) 
-Handles TextBox1.KeyPress

If IsNumeric(e.KeyChar) Then 

    e.Handled = False

Else

    e.Handled = True

End If

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = ControlChars.Back Then e.KeyChar = ControlChars.NullChar
    End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Char.IsNumber(e.KeyChar) = True Then e.Handled = True
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _ 
Handles TextBox1.KeyPress

Dim pos As Integer

pos = TextBox1.SelectionStart 'on mémorise la position du curseur

If e.KeyChar = "," Then

e.Handled = True 'on ne valide pas le caractère ',' qui n'apparaîtra pas.

TextBox1.Text = TextBox1.Text.Insert(pos, ".")'on insère un '.'

TextBox1.SelectionStart = pos + 1 'on avance le curseur d'un caractère

End If

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) 
_Handles TextBox3.KeyPress

    If e.KeyChar = "," Then e.KeyChar = CType(".", Char)

End Sub

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _ 
Handles TextBox3.KeyUp
If e.KeyCode = Keys.A Then ...(permet de voir si l'utilisateur a tapé sur la touche A.)

End If

Public Class Form1
    'Flag indiquant si la touche doit être supprimée
    Dim IsSuppress As Boolean

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        'Dans KeyDown qui survient avant KeyPress 
        If e.KeyCode = Keys.Back Then
            'Si la touche est 'Back'(effacement) IsSuppress=True
            IsSuppress = True
        Else
            IsSuppress = False
        End If

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        'Si la touche doit être supprimée, on la supprime
        If IsSuppress = True Then e.Handled = True
    End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _ 
Handles TextBox1.KeyPress

Select Case e.KeyChar
' Compte les  backspaces.
Case ControlChars.Back
    Nombrebackspace = Nombrebackspace + 1
' Compte les  'ENTER' .
Case ControlChars.Lf
    Nombrereturn = Nombrereturn + 1
' Compte les  ESC . 
Case Convert.ToChar(27)
    NombreEsc = NombreEsc + 1
' Compte les autres.
Case Else
    keyPressCount = keyPressCount + 1
End Select
End Sub

Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Validated
        Dim Contenu As String = TextBox1.Text
        '*** Enlever les blancs
        Contenu = System.Text.RegularExpressions.Regex.Replace(Contenu, "[\s]*", "")
        '*** N'accepter que les entiers ou les décimaux avec 3 chiffres derrière la virgule, positifs
        Dim pattern As String
        pattern = "^(([0-9]+)|(([0-9]+)(,)([0-9]{0,3}))?)$"
        If Contenu = System.Text.RegularExpressions.Regex.Match(Contenu, pattern).ToString AndAlso Contenu <> "" Then
            TextBox1.Text = Contenu
        Else
            Contenu = ""
            TextBox1.Text = ""
            TextBox1.Focus()
        End If

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
        Dim sDate As String = CType(sender, TextBox).Text
        Try
            'On tente de convertir la String saisie en Date
            If sDate <> "" Then sDate = CDate(sDate) 'si la conversion déclenche une exception c'est pas une date
        Catch
            e.Cancel = True ' on invalide la date
            CType(sender, TextBox).Text = "" 'on remets aussi le textbox=""
        End Try
        MsgBox(sDate)
End Sub

RichTextBox1.RTF= T        'T étant le texte enrichi

"{\rtf1\ansi 

 { \colortbl 

\red0\green0\blue0;

\red255\green0\blue0;

\red0\green255\blue0;}

{\fonttbl

{\fo\froman Symbol;}

{\f1\fswiss Arial;}

}

Ce qui suit est en \f1 \cf1 \i Arial Rouge Italique \f0 \cf0 \i0

} »

RichTextBox1.SelectionColor = System.Drawing.Color.Red

RichTextBox1.SelectionFont = New Font("Tahoma", 12, FontStyle.Bold)

richTextBox1.SaveFile(FileName, RichTextBoxStreamType.RichText)

0 Chiffre requis (lettres refusées) 
9 Chiffre ou espace optionnel. (lettres refusées) 
# 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 '\'. 
Autres caractères Littéraux. Affichés tels quels  

Dim returnValue As Boolean
returnValue = maskedTextBox1.MaskCompleted
 

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

Label1.Text="Label avec une bordure et un fond jaune"

Label1.BorderStyle=BorderStyle.FixedSingle

Label1.ForeColor=Color.Red

Label2.BackColor=Color.Yellow

Dim i As Integer

For i = 0 To 100

    Label1.Text = i.ToString

Next i

Dim i As Integer

For i = 0 To 100

    Label1.Text = i.ToString: Label1.Refresh()

Next i

LinkLabel1.text= "Visitez le site LDF"

LinkLabel1.LinkArea = New System.Windows.Forms.LinkArea(11, 4)

Private Sub LinkLabel1.LinkClicked…

End Sub

RadioButton3.Text="OUI"

RadioButton3.TextAlign= MiddleCenter 'Middle=hauteur, center = horizontale

RadioButton3.CheckAlign=MiddleRight

If RadioButton.Checked=True  Then ' Teste si le bouton est coché. 

End If

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) 
_Handles RadioButton1.CheckedChanged

End Sub