Empêcher la fermeture automatique de la console en VB.NET.

Version imprimable

15/04/2021, 22h00
PouleFauna

Empêcher la fermeture automatique de la console en VB.NET.

Bonjour,

Comment peut on faire pour empêcher la fermeture automatique d'un formulaire console en VB.NET. En effet, je souheterais que l'ont puissent ne lafermer que en cliquant sur la crois ou en écrivant dans la console fermer.

Merci
15/04/2021, 22h20
Phil Rob

Bonjour
Peut-être que si tu places un Console.Readkey() comme dernière ligne du code de ton Main() cela devrait résoudre ton problème.
... :)
16/04/2021, 08h16
PouleFauna

J'y ai pensé, mais il faut que l'ont puisse fermer que sur la croix ou en écrivant fermer dans la console. Sinon, merci beaucoup pour la fonction
16/04/2021, 08h23
PouleFauna

Sinon, cela marche partiellement, en effet, la fermeture se produit après la fonction + Quand je tape une lettre. Ce qu'il faudrait, c'est l'équivalent du

Code:

:main

et

Code:

goto :main

en batch.

Code:

1
2
3
4
while (true)
{
if (console.Readline() == "fermer" ) break;
}

16/04/2021, 13h56
PouleFauna

Merci beaucoup !!! C'est du C# mais j'ai un convertissseur :D:D:D

Bonjour,

Le code marche enfin, je l'ai convertit en VB.NET.

Code:

1
2
3
While True
    If Console.ReadLine() = "fermer" Then Exit While
End While

Mais, maintenant, une fois que je suis dans la boucle de while mon autre code (les fonctions permettant à l'utilisateur d'interagir avec l'application) ne marche plus.

Je vous passe le code (while est en bas)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Imports System
 
 
Module Program
    Dim txt = Console.ReadLine()
    Sub Main()
 
        Console.WriteLine("KittyDOS à démarrer !!!")
 
 
 
        If txt = "cls" Then
            Console.Clear()
        ElseIf txt = "clear" Then
            Console.Clear()
        ElseIf txt = "version" Then
 
            Console.WriteLine("Nom : KittyDOS")
            Console.WriteLine("Version : 1.0")
            Console.WriteLine("Nom de code : Persan")
            Console.WriteLine("Description : Amusez vous avec les fonctions de MS-DOS... Sans utiliser MS-DOS")
 
 
 
        Else
 
            Console.WriteLine("Cette commande n'est pas répertorié.")
 
        End If
 
        While True
            If Console.ReadLine() = "fermer" Then Exit While
        End While
 
    End Sub
End Module

Merci