Cours VB.NET

Sub Main()

        Dim initForm As New Form1

        initForm.ShowDialog()

End Sub

Sub Main() 
' Démarre l' application et affiche une instance de Form1
Application.Run(New Form1())
End Sub

Class Form1

Public Shared Sub Main()

    .....

End Sub

..

End Classe

Module1

Sub Main()

...

End Sub

End Module

Function Main() As Integer
...
Return 0 ' Zéro signifie : tout est Ok.
End Function

Function Main(ByVal CmdArgs() As String) As Integer
...

Return 0 
End Function

If My.Application.CommandLineArgs.ToString <> "" Then

Dim i

For i = 0 To My.Application.CommandLineArgs.Count - 1

If mid(My.Application.CommandLineArgs(i).ToString,1,2)  "-o" Then 
' dans le cas ou la ligne de commande contient le nom du fichier à lancer et '-o'

FileName = Mid(My.Application.CommandLineArgs(i).ToString, 3)

OpenFile() ' charger les données

Exit For

End If

Next

End If

Dim FrmSplash As New Form1    'instance la fenêtre Splash 

Dim FrmPrincipal As New Form2 'instance la feuille principale

FrmSplash.ShowDialog()        'affiche la fenêtre Splash en Modale


FrmPrincipal.ShowDialog()     'a la fermeture de Splash,  affiche la fenêtre principale

End Sub

Private Sub Form1_Activated

Me.Refresh() 'pour afficher totalement la fenêtre.

'ici ou on fait plein de choses on ouvre des fichiers ou on perd du temps.

' s'il n'y a rien a faire on met un Timer pour que l'utilisateur admire la belle image.

Me.Close()

End Sub

Public Sub main() 


'création des formulaires frmmain and frmsplash avec le designer 

Dim frmsplash As New frmsplash 

Dim frmmain As New frmmain 

 

'on affiche la Splash

frmsplash.Show() 

Application.DoEvents() 

 

'On attend (3000 milliseconds) 

System.Threading.Thread.Sleep(3000) 

 

'On efface la Splash

frmsplash.Close() 

 

'On affiche le formulaire principal

Application.Run(frmmain)  

 

End Sub 

Me.Show()

Application.DoEvents()

System.Threading.Thread.Sleep(1000)

Partial Friend Class MyApplication
        
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Sub New()
            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
            Me.IsSingleInstance = false
            Me.EnableVisualStyles = true
            Me.SaveMySettingsOnExit = true
            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
        End Sub
        
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Protected Overrides Sub OnCreateMainForm()
            Me.MainForm = Global.WindowsApplication1.Form1
        End Sub
        
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Protected Overrides Sub OnCreateSplashScreen()
            Me.SplashScreen = Global.WindowsApplication1.SplashScreen1
            My.Application.MinimumSplashScreenDisplayTime = 2000 '<= A rajouter
        End Sub
    End Class

Me.Close()    'Ferme la fenêtre en cours

Application.Exit()    'Ferme l'application

Public Class Form2

Inherits System.Windows.Forms.Form 

End Class

Dim formSecondaire As New Form2()

formSecondaire.ShowDialog()  

Private ButtonCreerFormSecondaire_Click()

  Dim formSecondaire As New Form2()

  formSecondaire.ShowDialog()  

End Sub

Dim formSecondaire As New Form2()
formSecondaire.ShowDialog()  

Private ButtonCreerFormSecondaire_Click()
    Form2.ShowDialog()
End sub

 Form2.ForeColor = System.Drawing.Color.Coral
 Form2.BackColor = System.Drawing.Color.Cyan

Dim f As New Form2           

f.ShowDialog()

form2.ShowDialog()

Dim f As New Form2      

f.Show() 

form2.Show()

Private Button1_Click

Dim f As New Form2      

f.Show()      

End Sub

Class Form1

Dim f As New Form2   

 

Private Button1_Click   

    f.Show()      

End Sub

End Class

Class Form1
Private Buttonformsecondaire_Click ()    

    Dim formSecondaire As New Form2

End Sub
End Class

Class Form1
Public formSecondaire As New Form2
Private Buttonformsecondaire_Click ()    

    

End Sub
End Class

Class Form1

 

Sub MaRoutine()

    Dim formSecondaire As New Form2

    Text=formSecondaire.TextBox.Text

End Sub

 

Sub AutreRoutine()

..

End Sub

 

End Class

Private ButtonCreerFormSecondaire_Click()
    Form2.Show()
End sub

 Form2.ForeColor = System.Drawing.Color.Coral
 

Class Form1

Public Sub Imprime()

    Code d'impression

End Sub

End Class

Public Utilisateur As String

        If f Is Nothing Then    'Si f=rien 

            f = New Form2

            f.ShowDialog()

        Else

            If f.Visible = False Then

                f.Visible = True

            End If

            f.Activate()

        End If

        If Not IsNothing(F) Then
            'Si on en a pas déjà disposé
            If Not F.IsDisposed Then
                F.WindowState = FormWindowState.Normal  ' Optional
                F.BringToFront()  '  Optional
            Else
                F = New Form3
                F.Show()
            End If
        Else
            F = New Form3
            F.Show()
        End If

 ButtonOk.DialogResult= DialogResult.ok

 

 ButtonCancel.DialogResult= DialogResult.Cancel

Form2.ShowDialog()

If form2.DialogResult= DialogResult.ok then

    'l'utilisateur a cliqué sur le bouton ok

End if

form1.AcceptButton = buttonOk
form1.CancelButton = buttonCancel

Class Form1

Sub buttonCreerformsecondaire_Click

  Dim formSecondaire As New form2 ()    'On crée formSecondaire

  formSecondaire.ShowDialog()           'On ouvre formSecondaire

  label1.Text=formSecondaire.TextBox2.Text 'On récupère le texte de TextBox1

End Sub

 

End Class

Dim formSecondaireAs New Form2()

formSecondaire.ShowDialog()

label1.Text=formSecondaire.TextBox2.Text

formSecondaire.Close()

Class Form1

    Public formSecondaire As New Form2()

    

Sub buttoncreerformsecondaire_Click

  formSecondaire.ShowDialog()           'On ouvre formSecondaire

  label1.Text=formSecondaire.TextBox2.Text 'On récupère le texte de TextBox1

End Sub
    

End Class

Module MonModule

    Public formSecondaire As New Form2().

End Module




Class Form3

Sub Buttoncreerformsecondaire_Click

    formSecondaire.ShowDialog()
    'ou MonModule.formSecondaire.ShowDialog()
End Sub

 

Sub Button2_Click

    label1.Text= formSecondaire.TextBox2.Text

End Sub

 


End Class

Class Form2

Public Shared MonTextBox As TextBox

Private Sub Button2_Click 'Bouton quitter

MonTextBox = TextBox1    'On affecte à l'objet MonTexBox le TextBox1

Me.Close()

End Sub

End Class

Class Form1

Sub buttoncreerformsecondaire_Click

Dim formSecondaire As New form2 ()    'On crée formSecondaire

formsecondaire.ShowDialog()

Label1.Text = formsecondaire.MonTextBox.Text()

End Sub

End Class

Class Form2

Public ReadOnly Property LeText() As String
    Get
        Return TextBox2.Text
    End Get
End Property
End Class

Class Form1

Sub button1_Click

Dim formSecondaire As New form2 ()    'On crée formSecondaire

formsecondaire.ShowDialog()

Label1.Text = formsecondaire.LeText   'On utilise la property

End Sub

End Class

Module MonModule

    Public BAL As String     'Variable Public dite 'Boite aux lettres'

End Module

Class Form2

Private Sub Button2_Click 'Bouton quitter

BAL = TextBox2.Text    'On met TextBox1.Text dans BAL

Me.Close()

End Sub

End Class

 

Class Form1

Sub Button1_Click

    formSecondaire.ShowDialog()

    label1.Text= BAL    'On récupère ce qui est dans BAL

End Sub

 

End Class

Private ButtonCreerFormSecondaire_Click()
    Form2.Show()
End sub

 Label1.Text = Form2.TextBox2.Text

Dim formSecondaire As New Form2 

f.ShowDialog(Me)

    Label1.text=Me.Owner.ToString

Dim f As Form1 = CType(Me.Owner, Form1)

Label1.Text() = f.Button1.Text

Dim FormSecondaire As New Form2(Me) 
FormSecondaire .ShowDialog(Me) 'affichage modal de la form2

 Private FormProp As Form1
    Public Sub New(ByVal NomForm As Form1) 
        MyBase.New() 
        FormProp = NomForm 
        
        InitializeComponent() 

    End Sub

FormProp.MaRoutine()

MyTextBox.Text= My.Application.OpenForms("Form3")

MyTextBox.Text= My.Application.OpenForms(0)

For Each F As System.Windows.Forms.Form In My.Application.OpenForms
F.Text += "[ouvert]"
Next

MyTextBox.Text= My.Forms.Form1.Text

Dim f As New Form1

f.Text = "hello"

f.Show()

TextBox1.Text = My.Forms.Form1.Text 
 

TextBox2.Text = My.Application.OpenForms("Form1").Text    

'Affiche 'hello' qui est le texte de l'instance f

 Sub ButtonOk_Click
 ButtonOk.DialogResult= DialogResult.ok
End Sub

'On ouvre le formulaire Dialog1
Dialog1.ShowDialog()

If Dialog1.DialogResult= DialogResult.Ok then

    'l'utilisateur a cliqué sur le bouton ok

End if

Module StandartGénéral

Public FrmMDI as Form1

Sub Main()

    FrmMDI.ShowDialog()

End sub

End Module

Dim MDIFilleActive As Form2

Protected Sub MDIChildNouvelle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
_Handles MenuItem2.Click

   MDIFilleActive = New Form2()

   'Indique à la fenêtre fille son 'parent'.

   MDIFilleActive.MdiParent = Me

   'Affiche la fenêtre fille

   MDIFilleActive.Show()

End Sub

If Not Me.ActiveMdiChild Is Nothing then    'elle existe

Private Sub Form1_MdiChildActivate..

    MDIFilleActive=Me.ActiveMdiChild

End Sub

 MDIFilleActive.label1.text

Dim ff As Form2

For Each ff In Me.MdiChildren

...

Next

dim i_form as Form ' on utilise une variable Form :formulaire 

dim i_form3 as form3
dim i_form2 as form2

For Each i_form  In Me.mdichildren
    if typeof  i_form is form2 then
        i_form2 = ctype(i_form,form2)
        msgbox i_form2.property_du_form2
    end if

if typeof  i_form is form3 then
        i_form1 = ctype(i_form,form3)
        msgbox i_form3.property_du_form3
    end if
next

Dim form As Form

For Each form In Me.MdiChildren

form.Close()

Next

MDIFilleActive.Affiche()

Protected Sub CascadeWindows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

   Me.LayoutMdi(System.Windows.Forms.MdiLayout.Cascade)

End Sub

Public Class MDIParent1

Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, 
	_NewToolStripButton.Click, NewWindowToolStripMenuItem.Click

' Créer une nouvelle instance du formulaire enfant.

Dim ChildForm As New System.Windows.Forms.Form

' Make it a child of this MDI form before showing it.

ChildForm.MdiParent = Me

m_ChildFormNumber += 1

ChildForm.Text = "Window " & m_ChildFormNumber

ChildForm.Show()

End Sub

Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) 
_Handles ExitToolStripMenuItem.Click

'Quitter l'application

Global.System.Windows.Forms.Application.Exit()

End Sub

Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) 
_Handles CascadeToolStripMenuItem.Click

'Positionnement des formulaires enfant

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Private Sub TileVerticleToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) 
_Handles TileVerticalToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) 
_Handles TileHorizontalToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) 
_Handles ArrangeIconsToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.ArrangeIcons)

End Sub

Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) 
_Handles CloseAllToolStripMenuItem.Click

' Ferme tous les formulaires enfant

For Each ChildForm As Form In Me.MdiChildren

ChildForm.Close()

Next

End Sub

Private m_ChildFormNumber As Integer = 0

End Class