[VB.NET] Gestione preferiti web browser

[nico95]

Ciao a tutti non riesco a venire a galla di un problema con la gestione dei breferiti del mio web browser.
Allora il funzionamento è abbastaza semplice:
Attraverso un bottone vado ad aggiungere a MySetting.Preferiti e alla ListBox1 il sito CODICE -->

Try             
My.Settings.Preferiti.Add(CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Url.AbsoluteUri)             
ListBox1.Items.Add(CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Url.AbsoluteUri)             
My.Settings.Save()         
Catch ex As Exception         
End Try 

Però come posso fare per rimuoverli??? perchè utilizzando:

Try             My.Settings.Preferiti.Remove(CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Url.AbsoluteUri)             ListBox1.Items.Remove(CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Url.AbsoluteUri)             
My.Settings.Save()         
Catch ex As Exception         
End Try 

li rimuove soltanto se il Web Browser è puntato sull indirizzo del preferito.
Grazie anticipatamente per l'aiuto

[Jeremy75]

Fa esattamente quello che gli chiedi di fare

My.Settings.Preferiti.Remove(CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Url.AbsoluteUri

Facci sapere...
Ciao

[nico95]

Si ma... se io devo rimuovere dai preferiti www.google.it e ora sono su www.html.it questo codice non me lo permettte... in quanto dovrei "interrompere" la navigazione e tornare appunto su google

[Jeremy75]

questo codice non me lo permettte...

A questo ci ero arrivato anche io ....
devi modificare il tuo codice per ottenere quel risultato, e non mi sembra neanche tanto difficile arrivarci....

 My.Settings.Preferiti.Remove("www.google.it")

Facci sapere...
Ciao

[nico95]

Scusami avevo interpretato male il post adesso provo...

[nico95]

funziona... ma avrei un altra domanda
Ho anche fatto un tasto che permette di cancellare tuttii preferiti con una msgbox che chiede se continuare ma sia che prema cancel o ok lui cancella e chiude il frame

MsgBox("La funzione cancellerà tutti i segnalibri proseguire?", MsgBoxStyle.OkCancel,"Attenzione!")         
If MsgBoxResult.Ok Then             
Try                 
My.Settings.Preferiti.Clear()                 
ListBox1.Items.Clear()                 
My.Settings.Save()             
Catch ex As Exception             
End Try         
End If         
If MsgBoxResult.Cancel Then             
Me.SplitContainer1.Panel1Collapsed = True         
End If     
End Sub 

invece io vorrei che se si preme ok cancellasse

Try                  My.Settings.Preferiti.Clear()                  ListBox1.Items.Clear()                  My.Settings.Save()              Catch ex As Exception              End Try 

e se si volesse tornare indietro

Me.SplitContainer1.Panel1Collapsed = True 

[Jeremy75]

MsgBoxResult , è un semplice enumeratore nel quale sono presenti, in forma Simbolica, dei valori numerici.
In questo caso, MsgBoxResult.Ok, vale 1, pertanto, è come se scrivessi

If 1 then
...
end if

il che .... lo capisci anche da te .... non ha senso.
Devi modificare il codice in questo modo.

Dim Result as MsgBoxResult = Msgbox("La funzione cancellerà tutti i segnalibri proseguire?", MsgBoxStyle.OkCancel,"Attenzione!")          
If Result = MsgBoxResult.Ok Then              
Try                  
My.Settings.Preferiti.Clear()                  
ListBox1.Items.Clear()                  
My.Settings.Save()              
Catch ex As Exception              
End Try          
End If          
If Result = MsgBoxResult.Cancel Then              
Me.SplitContainer1.Panel1Collapsed = True          
End If      
End Sub

Facci sapere...
Ciao

[nico95]

Perfetto ora funziona tutto...