Chiusura

[keeper76]

Dovrei fare un bottone che una volta premuto, azzeri tutti i valori delle varie variabili e mi faccia uscire definitivamente dal mio programma scritto in vb6? Io ho provato con Unload Me ma non sembra funzionare bene per chiudere in maniera DEFINITIVA. Cosa posso fare?

[xegallo]

Originariamente inviato da keeper76
Dovrei fare un bottone che una volta premuto, azzeri tutti i valori delle varie variabili e mi faccia uscire definitivamente dal mio programma scritto in vb6? Io ho provato con Unload Me ma non sembra funzionare bene per chiudere in maniera DEFINITIVA. Cosa posso fare?

nella routine di unload
dopo aver settato tutti gli oggetti a nothing
setti anche il form stesso a nothing

[keeper76]

materialmente come devo fare? GRazie

[keeper76]

Questa e' la mia funzione, se all'interno di questa routine si verifica l'errore cod. 68 oltre a darmi il messaggio come faccio dovrebbe interrompere qualsiasi operazione, uscire dalla functione e uscire del tutto dal programma.


Public Function DrvLabel(disco As String) As String

On Error GoTo err_trap

ChDrive Left$(disco, 1)
DrvLabel = Dir(disco, vbVolume)

err_trap:

If Err.Number = 68 Then
Beep
MsgBox "Unità non disponibile", vbCritical + vbSystemModal
End If


End Function

[xegallo]

i titoli, attento a rispondere e non premere nuova discussione, e formatta il codice

Public Function DrvLabel(disco As String) As String 

On Error GoTo err_trap 

   ChDrive Left$(disco, 1) 
   DrvLabel = Dir(disco, vbVolume) 

err_trap: 

If Err.Number = 68 Then 
   Beep 
   MsgBox "Unità non disponibile", vbCritical + vbSystemModal 
   end 
End If 


End Function