Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminare con Unload processo attivo

Salve a tutti
è possibile quando si fa l'Unload, oltre a chiudere il programma, eliminare 
proprio il processo attivo, tipo come si fa da task manager? 

 eliminare proprio il processo attivo, tipo come si fa da task manager?
Immagino parli di VB6.
Hai ancora qalche form invisibile non scaricata.
Controlla la collection Forms
Ciao
-- 
Free .Net Reporting Tool - 
http://www.neodatatype.net
 

 Ciao
Ciao e grazie in anticipo 

mi diresti gentilmente come fare?
Basta una cosa cosě sul tuo form principale:
________________________
Private Sub Form_Unload(Cancel As Integer)
Dim frmForm As Form
 For Each frmForm In Forms
    Unload frmForm
    Set frmForm = Nothing
 Next
'qui se vuoi metti
' END
' ma non serve
End Sub 
__________
--
ciao
  Stefano

 ancora caricando io decido di terminare l'applicazione
Non conosco il Webbrowser ma a questo punto nella QueryUnload del form devi 
dirgli (ci sarà sicuramente un metodo) di interrompere il caricamento.


 dirgli (ci sarà sicuramente un metodo) di interrompere il caricamento.
se non erro e' questo: Webbrowser.Quit


> se non erro e' questo: Webbrowser.Quit
c'è, l'ho provato ma mi da questo errore se chiudo l'applicazione mentre sta 
caricando o si blocca sul caricamento di una pagina:
Errore dirun-time '-
2147467259
 (80004005)':
Metodo'Quit' dell'oggetto 'IWebBroser2' non riuscito'
l'ho inserito in questo modo
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Sicuro di voler uscire?", vbYesNo + vbInformation + 
vbDefaultButton2, "EXIT") = vbNo Then
    Cancel = 1
Else
    WebBrowser1.Quit
End If
End Sub 

 ha scritto nel messaggio news:4459f925$0$14791$4faf...@reader4.news.tin.it...

io l'ho usato e funzionava perfettamente,
dovresti controllare se non hai lasciato qualche oggetto appeso
in memoria; ti ricordo che gli oggetti istanziati con
un Set, vanno azzerati e poi
deallocati con Set xxx = Nothing
ciao

 ancora caricando io decido di terminare l'applicazione
Ficcaci un bell'END nell'evento unload della tua form.
-- 
BASIC is to computer programming as QWERTY is to typing.  - Seymour Papert
News 2002 [v 2.07] / StopDialer / PopDuster - 
http://www.socket2000.com
Akapulce portal: 
http://www.akapulce.net


gli vuoi consigliare l'opportunità di avere un bel
crash messagebox?

 crash messagebox?
Vedo che non hai mai usato il webbrowser...
-- 
Life would be so much easier if we could just look at the source code.



Sorry! L'ho usato, eccome!
Prima dell'avvento impetuoso della legge sulla privacy,
monitoravo gli studenti con un mio browser e registravo
su database tutti i links che cliccavano per intercettare
eventuali siti vietati e sanzionarli!!!
Ti allego la Forma_Load e la Form_UnLoad per una
eventuale consultazione!
buona lettura, ciao!
-----------------------
Private Sub Form_Load()
   Dim i As Integer, v As Integer, x As Integer
   Dim current_count As Integer
   Dim ItemsCount As Integer
   Dim item_domain As String
   Dim last_item As String
   Dim waLeft As Long
   Dim waTop As Long
   Dim waWidth As Long
   Dim waHeight As Long
   Dim Desk As RECT
   web.AddressBar = False
   web.FullScreen = False
   web.MenuBar = False
   web.StatusBar = False
   web.TheaterMode = False
   web.ToolBar = False
   If mNoHome Then
      GoAddress gsAboutBlank
   End If
   mWidth = Val(GetSetting(App.Title, "Setting", "MainWidth", ""))
   If mWidth <= 0 Then mWidth = Me.Width
   mHeight = Val(GetSetting(App.Title, "Setting", "MainHeight", ""))
   If mHeight <= 0 Then mHeight = Me.Height
   ret = SystemParametersInfo(SPI_GETWORKAREA, NILL, Desk, 0)
   If ret Then
      waTop = Desk.rTop * Screen.TwipsPerPixelY
      waLeft = Desk.rLeft * Screen.TwipsPerPixelX
      waWidth = (Desk.rRight - Desk.rLeft) * Screen.TwipsPerPixelX
      waHeight = (Desk.rBottom - Desk.rTop) * Screen.TwipsPerPixelY
   Else
      waTop = 0
      waLeft = 0
      waWidth = Screen.Width
      waHeight = Screen.Height
   End If
   skip_event = True
   Me.Width = mWidth
   Me.Height = mHeight
   If Me.Top + mHeight > waHeight Then
      Me.Top = waHeight - mHeight
   End If
   If Me.Left + mWidth > waWidth Then
      Me.Left = waWidth - mWidth
   End If
   skip_event = False
   Set prevItems = New Collection
   Set nextItems = New Collection
   Set comboItems = New Collection
   web.Left = 0
   CoolBar1.Bands(2).Style = cc3BandNormal
   CoolBar1.Bands(2).MinWidth = 580
   CoolBar1.Bands(2).Width = 580
   CoolBar1.Bands(2).Style = cc3BandFixedSize
   status.Panels(4).Text = "Internet"
   current_count = Val(GetSetting(App.Title, "Setting", "UrlCount", ""))
   For i = 1 To MaxFavItems - 1
      Load iPrev(i)
      iPrev(i).Visible = False
      Load iNext(i)
      iNext(i).Visible = False
   Next
   For i = 1 To MaxComboItems
      cboAddress.AddItem " "
   Next
   If current_count > 0 Then
      For i = current_count To 1 Step -1
         last_item = GetSetting(App.Title, "Setting", "Url" & CStr(i), "")
         If Len(last_item) Then
            item_domain = GetDomain(last_item)
            If Not ExistComboItem(item_domain) Then
               comboItems.Add last_item, item_domain
            End If
         End If
      Next
      ItemsCount = comboItems.Count
      For i = 1 To ItemsCount
         cboAddress.List(ItemsCount - i) = comboItems.Item(i)
      Next
   End If
   mnuRefresh2.Caption = mnuRefresh2.Caption & vbTab & "F5"
   Call Form_Resize
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   On Error Resume Next
   If web.Busy Then
      If MsgBox("Sistema occupato. Vuoi terminare comunque?", vbDefaultButton2 + vbInformation + vbYesNo, "Internet Explorer") =
vbNo Then
         Cancel = True
         Exit Sub
      End If
      web.Quit
   End If
   SaveSetting App.Title, "Setting", "MainWidth", CStr(mWidth)
   SaveSetting App.Title, "Setting", "MainHeight", CStr(mHeight)
   Unload fabout
   Unload fHtml
   Set prevItems = Nothing
   Set nextItems = Nothing
   Set comboItems = Nothing
   Set web2 = Nothing
   Set rs = Nothing
   Set db = Nothing
End Sub

[CUT]
fatte diverse prove ma niente....
ti posto come ho scritto io
Codice:
Option Explicit
Private Sub fStart()
    'Pagina 1
    Dim url1 As String
     url1 = "
https://indirizzo1
"
    WebBrowser1.Navigate2 url1
    Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
        DoEvents
    Loop
    'Pagina 2
    Dim url2 As String
    Call clear
    url2 = "
http://indirizzo2
"
    WebBrowser1.Navigate2 url2
    Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
       DoEvents
    Loop
    Dim d As IHTMLDocument
    Set d = WebBrowser1.Document
    If Not d.getElementById("campo1") Is Nothing Then
        d.getElementById("campo1").Value = testo1
        d.getElementById("campo2").Value = testo2
        WebBrowser1.Navigate2 "javascript:check1;"
        Pause (2)
        Dim url3 As String
        url3 = "
http://indirizzo3
"
        WebBrowser1.Navigate2 url3
        'attende il caricamento della pagina
        Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
            DoEvents
        Loop
    else
        url3 = "
http://indirizzo3
"
       WebBrowser1.Navigate2 url3
      'attende il caricamento della pagina
       Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
           DoEvents
       Loop
   End If
End Sub
Private Sub Pause(sec As Single)
    Dim t As Single
    t = Timer
    While Timer <= t + sec
        DoEvents
    Wend
End Sub
Private Sub Form_Load()
    Call fStart
End Sub
Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Sicuro di voler uscire?", vbYesNo + vbInformation + 
vbDefaultButton2, "EXIT") = vbYes Then
        Unload Me
    Else:
        Cancel = 1
        Exit Sub
    End If
End Sub
Se le pagine non vengono caricate per problemi ovvi del server, e io decido 
di chiudere il programma, l'applicazione appunto rimane ancora in 
esecuzione.
P.S.
qual'è la differenza tra Form_Unload e Form_QueryUnload
Grazie in anticipo

 eventuali siti vietati e sanzionarli!!!
Ok, però io ho parlato di END nell'evento UNLOAD...
Prova e vedrai che non ci sarà nessun crash.
-- 
Never put off till run-time what you can do at compile-time.  - D. Gries
News 2000 [v 2.06] - 
http://www.akapulce.net/socket2000

 Prova e vedrai che non ci sarà nessun crash.
pare che così funziona
Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Sicuro di voler uscire?", vbYesNo + vbInformation + 
vbDefaultButton2, "EXIT") = vbYes Then
        Unload Me
        End
    Else:
        Cancel = 1
        Exit Sub
    End If
End Sub
Va bene dove ho messo l'End? o lo devo mettere prima dell'Unload Me


 End Sub
"unload me" puoi toglierlo visto che sei già nel thread di chiusura 
form e l'end comunque ripulisce la memoria, i riferimenti agli 
oggetti e scarica i form.
-- 
RAM DISK is not an installation procedure!
