Cours VB.NET

Module Module1

    Sub Main()
        Console.SetWindowSize(65, 35) 'Dimension de la fenêtre
        Console.Title = "test"        'Titre 
        Console.BackgroundColor = ConsoleColor.Blue'Couleur du fond
        Console.Clear()  'Applique la couleur du fond
        Console.ForegroundColor = ConsoleColor.Red 'Couleur du texte
        Console.SetCursorPosition(10, 20) 'Position du curseur
        Console.Write("Tapez un texte") 'ecrire sur la console
        Dim ligne As String = Console.In.ReadLine() 'récupérer le texte tapé, le mettre dans 'ligne'
        Console.Beep  'emettre un Beep
        Console.Beep(800, 1000) 'emettre un son de 800Herz pendant 1000 MilliSecondes
        Console.Read()      'lire à partir de la console
        'Cela permet de figer la fenêtre (sinon elle s'efface instantanément) 
        'et de lire jusqu'à ce qu'on tape une touche
    End Sub

End Module

Console.write (A+1)

Button1.Text="OK"   'Permet par exemple de modifier la propriété Text d'un bouton.

ButtonOk.Text= "Ok" 

ButtonOk.Enabled=False

ButtonOk.Visible=False 'fait disparaître le bouton.

TextBox1.Font = New Font("Courier New", 12, FontStyle.Italic)

ButtonOk.ForeColor=  System.Drawing.Color.Blue

Button.Size = New Size(100, 100) 'Les dimensions sont contenues dans un objet Size que l'on crée.

Button.Width = 150  'ici on donne directement la valeur de la largeur en pixels

Button1.Location = New Point(100, 100)

'ou pour simplement modifier X:
Button.Location.X = 32

Button.Left = 32

Button.SetBounds(100, 100, 45, 45)

Private Sub BtOkClick (ByVal sender As System.Objet, ByVal e As System.EventArgs)  Handles BtOk.Click

End Sub

Click

DoubleClick

GotFocus     Prise du focus

LostFocus    Perte du focus

KeyUp        Remontée d'une touche clavier

KeyPress     Pression d'une touche clavier

KeyDown      Appuie sur une touche clavier

MouseUp      Lacher le bouton gauche de la souris

MouseDown    Appuie sur le bouton gauche de la souris

MouseMove   La souris passe sur le contrôle.

Resize      Modification de la taille (pour un formulaire°

Private Sub BtOkClick ()

Private Sub BtOkClick (ByVal sender As System.Objet, ByVal e As System.EventArgs)  Handles BtOk.Click

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Couleur=sender..ForeColor '<=  ERREUR

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Couleur=CType(sender, Form).ForeColor

End Sub

Form1.Text = "Nouveau texte"

Dim MyIcon As Drawing.Icon = New System.Drawing.Icon("C:\euro.ico")
 Me.ShowIcon =True
 Me.Icon = MyIcon

Me.Cursor = Cursors.Cross

Me.WindowState =FormWindowState.Maximized 

Me.FormBorderStyle =FormBorderStyle.Sizable 

Me.StartPosition =FormStartPosition.CenterScreen 

    Me.Location = New Point(100, 100) 'c'est un objet 'point' (et non les coordonnés)

Me.Opacity= 50

Dim i As Integer
For i = 0 To Me.Controls.Count - 1

...Me.Controls.Item(i).GetType... 

Next i

Me.Controls.Item(i).Name
 

 Me.Controls.Add(MyButton)

Me.FormBorderStyle= Sizable

Me.ControlBox=False

Me.Size = New Size(100, 100)

Me.StartPosition = FormStartPosition.CenterScreen

Me.Opacity= 0.75
Me.Text = "Exemple" 

            Dim f As New Form2()

            f.ShowDialog()      

f.Show()  

Private Sub Form1_Load (..)

    ' Code initialisant les variables, chargeant les listbox..

End Sub

Private Sub Form1_Load()

TextBox1.Text= "bonjour"

End Sub

Private Sub Form1_Load(

MsgBox("hello")

End Sub

Private Sub Form1_Load 
Me.Show() 'affiche la form1

MsgBox("hello")' affiche la messagebox

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Couleur As New Color =CType(sender, Form).ForeColor

End Sub

Public Class Form1

End Class

Public Class Form1
Public Sub New()

'  Cet appel est requis par le Concepteur Windows Form.

InitializeComponent()    '<=======Appel d'une routine qui 'initialise les composants de la form

' ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().

End Sub
End Class

Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(26, 64)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(107, 44)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        Me.Button1.UseVisualStyleBackColor = True
				

  Me.TopMost = True

Imports System.Drawing.Drawing2D
Public Class Form1

    Public Sub New()

        ' Cet appel est requis par le concepteur.
        InitializeComponent()
        Dim Gr As New GraphicsPath()
        Gr.AddEllipse(0, 0, 250, 350)
        Me.Region = New Region(Gr)
      

    End Sub
End Class

Dim Gr As New GraphicsPath()
Dim Points() As New Point{ New Point(10,10), New Point(20,30)....}
Gr.AddLines( Points        
Me.Region = New Region(Gr)