Embellir l'affichage en mode console
Contenu du snippet
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
Compatibilité : VB 2005, VB 2008
Disponible dans d'autres langages :
A voir également
- Embellir l'affichage en mode console
- Impossible d'executer le code en mode arrêt ✓ - Forum Visual Basic
- C# console pause ✓ - Forum C# / .NET
- [Catégorie modifiée .Net -> VBA] VBA Excel Erreur 17 suite fausse manip en pas à - Forum VBA Office (Excel, Word ...)
- Visual studio console - Forum C# / .NET
- Mode création excel ✓ - Forum VBA Office (Excel, Word ...)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.