[VB 2010 win form] chiudere console senza uscire dal programma

[eternauta]

Ciao a tutti,

Una volta aperta una console, c'è un modo per richiuderla senza uscire dal programma lanciato?

..so che può apparire una domanda stupida ma sul totem sono arrivato solo a pagina 100!

[tas]

Se il tuo progetto è WinForm non vedo la necessità di usare la console... basta avviare il debug da VisualStudio!

[eternauta]

ciao,

uso la console per vedere/comprendere il comportamento dell'array di classe che ho fatto. In realtà, il fine ultimo è salvare questo array con il metodo della serializzazione, quindi voglio controllare che una volta ricaricato l'array abbia i dati inseriti l'ultima volta..

per miglior comprensione posto il codice; i tasti

Imports System.IO
Imports System.Collections
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization


..
..
..




    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'procedura per vedere l'array di classi 

        AllocConsole()
        For i = 0 To sale - 1
            Console.WriteLine("sala numero " & i + 1 & " posti " & cinema(i).capienza & " sala 3d " & cinema(i).s3d & " digitale " & cinema(i).sdg & " 35mm " & cinema(i).s35mm)
        Next
        Console.ReadKey()

    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    
        Dim File As New FileStream("cinema.dat", IO.FileMode.Create)


        Try
            Formatter.Serialize(File, cinema)
            MsgBox("salvato!")
        Catch ex As SerializationException
            MsgBox("non ci si riesce perchè.. " & ex.Message)
            Throw
        Finally
            File.Close()
        End Try


    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click


        Dim fs As New FileStream("cinema.dat", FileMode.Open)
        Try
            Dim formatter As New BinaryFormatter

  
            cinema = DirectCast(formatter.Deserialize(fs), Array)
        Catch ex As SerializationException
            MsgBox("non ci si è riusciti perchè.. " & ex.Message)
            Throw
        Finally
            fs.Close()
        End Try
    End Sub


End Class