[VB.NET]: Tasto chiusura e deallocazione form

[yandragon]

Ciao a tutti,avrei bisogno di un piccolo schiarimento urgente sulla mia applicazione...siccome ho uno slide di file swf,e questo slide avviene in un nuovo form ho un problema:
se presso in questo nuovo form il tasto X(tasto chiusura in alto a destra) in realtà nn chiude realmente il form ma è come se lo nascondesse(lo posso notare dal taskmanager)

Ora a me serve che si chiuda realmente perchè sull'evento form_unload ho delle azioni fondamentali del programma...

Sapreste illuminarmi?Prego ke ci sia qualcuno a quest'ora....

Grazie ciaoo

Ah dimenticavo,io sto lavorando su VB.NET

[alka]

Ciò che vedi nel Task Manager non è il form, ma il processo.

Devi concludere l'applicazione per consentire al processo di terminare; in una normale applicazione Windows Forms, generalmente, ciò avviene quando il form principale (MainForm) viene chiuso.

Ciao!

[yandragon]

ti spiego meglio qual'è il mio problema:
alla chiusura del form il programma scrive un file dove vi è il contenuto della listbox(la sequenza delle mie immagini) e all'apertura lo carica(cosi che salva sempre la mia lista personalizzata) e fino a qui tt alla perfezione...ma al momento ke faccio partire lo slide,e al momento della chiusura(tramite unico tasto disponibile della "X") nn mi salva le mie impostazioni! cm posso fare,illuminami...grazie x le risp tempestive.

[alka]

E' facile che il problema riguardi un errore nel codice.
Dovresti mostrarne almeno le parti significative.

[yandragon]

Questo riguardo lo slide dei swf:

Dim pb1 As New AxShockwaveFlashObjects.AxShockwaveFlash
Dim exir As New Button
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.KeyPreview = True
If ListBox1.Items.Count = 0 Then
MessageBox.Show("Inserisci almeno un filmato", "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button3)
Button1.Focus()
Exit Sub
End If
Dim crux As New Form
crux.WindowState = FormWindowState.Maximized
crux.Size = New Size(20, 20)
crux.MaximizeBox = False
crux.MinimizeBox = False
crux.BackColor = Color.Black
crux.Text = "Esempio"
pb1.Dock = DockStyle.Fill
pb1.BackColor = Color.Black
pb1.Size = New Size(30, 30)
crux.Controls.Add(pb1)
crux.Show()
Me.Hide()
Timer1_Timer()

End Sub

Questo invece è per l'apertura\chiusura:

Private Sub Form_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim s As Stream
Try
s = File.Open("listbox.bin", FileMode.Create, FileAccess.ReadWrite)
Catch ex As Exception
MessageBox.Show(ex.ToString(), "Errore durante il salvataggio della listbox.", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
Dim sf As New BinaryFormatter
For Each i As Object In ListBox1.Items
sf.Serialize(s, i)
Next
s.Close()
End Sub

Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim s As Stream
Try
s = File.Open("listbox.bin", FileMode.Open)
Catch ex As FileNotFoundException
'Se non c'è il file non dice nulla
Exit Sub
Catch ex As Exception
'Altrimenti protesta sonoramente
MessageBox.Show(ex.ToString(), "Errore durante il caricamento della listbox.", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
Dim sf As New BinaryFormatter
Do
Try
ListBox1.Items.Add(sf.Deserialize(s))
Catch ex As Exception
Exit Do
End Try
Loop
s.Close()
End Sub