Private Sub SetDisplay()
'Ajouter un titre à la fenêtre de la console
Console.Title = "Le titre de ma jolie console"
'Donner des dimensions agréables ET pratiques...
Console.BufferHeight = 300 : Console.WindowHeight = 42
Console.BufferWidth = 90 : Console.WindowWidth = 90
'Ajouter un peu de couleur dans ce monde binaire... Fond et texte !
Console.BackgroundColor = ConsoleColor.DarkBlue
Console.ForegroundColor = ConsoleColor.Yellow
'Une raz du buffer peut être utile pour que les nouvelles couleurs soient effectives !
Console.Clear()
'Et cerise sur le gâteau, une barre d'avancement quand un traitement doit être suivi!
Console.WriteLine( _
" Une console avec un titre, une taille adaptée et des couleurs !" & _
vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
" Avancement de la boucle...")
Console.BackgroundColor = ConsoleColor.Cyan
Console.SetCursorPosition(20, 7)
'Construction de la barre d'avancement avec temporisation
For i = 0 To 37 : Console.Write(" ") : Threading.Thread.Sleep(30)
Next
Console.BackgroundColor = ConsoleColor.DarkBlue
Console.SetCursorPosition(29, 10)
Console.WriteLine(" Boucle terminée...")
Console.ReadLine()
End Sub