1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim item1 As New ListViewItem
item1.Name = TextBox2.Text
item1.Text = TextBox1.Text
FrmBase.ListView1.Items.Add(item1)
My.Settings.FavList.Add(TextBox2.Text)
My.Settings.HistoriqueCombobox.Add(TextBox1.Text)
Me.Close()
End Sub
'pour ajouter le favoris - A cette partie tous fonctionne correctement, 'lorsqu'on click avec le code ci-dessous , tous fonctionne , sa navige etc. . .
Private Sub ListView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles ListView1.MouseUp
Try
Dim hti As ListViewHitTestInfo = ListView1.HitTest(e.Location)
Dim url As String = hti.Item.Name
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(url)
'pour ajouter le traiteur d'événement sur le click. - Tous MARCHE. C'est 'fantastique mais . . . lorsque j'arrive au save et que jouvre le browser a 'nouveau . . la c'est mon gros problème.
'J'avais essayer avec 2 save , 1 pour le name et l'autre pour le text ,
'mais sa donne que sa copie environ 2,3x fois
'les item qui sont dans my.settings . . .
For Each item As String In My.Settings.FavList
For Each itemm As String In My.Settings.HistoriqueCombobox
Dim item1 As New ListViewItem
item1.Name = item.ToString
item1.Text = itemm.ToString
ListView1.Items.Add(item1)
Next
Next |
Partager