Problème de Favoris - Webbrowser

Version imprimable

bonjours a toute la communauté,

Aujourd'hui, j'ai besoin de l'aide de tous pour résoudre mon problème.

voici ce que j'essaye de faire:

Crée des favoris de Webbrowser.

Bon , c'est très simple, le save fonctionne tous. mais le PROBLÈME est la:

Je veux avoir le favoris comme Text le Webbrowser.documenttitle
et lorsque l'on click dessus, le Webbrowser.url.tostring

Voici mon Codage en plusieur partie.

Code:

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

Alors, je vous le demande a nouveau a tous, Aidez moi, c'est le peu qu'il me reste.

Un gros merci encore

Bonjour,

Comme je vois le code dans My.Settings tu a créé 2 objet List(Of string)
Fais attention, les listes ne te donne pas la garantie d'être indexé dans l'ordre!
Dans ton code tu fais 2 boucles donc il est normal que tu obtienne des valeurs à double.

Je te conseil plutot de créer un dictionnaire dans My.Settings ou SortedDictonnary si il doivent être dans l'ordre alphabetique.
Ensuite:
My.Settings.MonDictionnaire = new Dictionnary(Of string,string)

Code:

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
 
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.MonDictionnaire.Add(TextBox2.Text,TextBox1.Text)
        Me.Close()
    End Sub
 
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)
 
For Each item as KeyValuePair(Of string,string) in My.Settings.MonDictionnaire
dim item1 as New ListViewItem
item1.Name = item..Key
item1.Text = item.Value
ListView1.Items.add(item1)
Next

Bonjour, MErci beacoup de prendre soin de mes petit problèmes,

Mais, je ne comprend pas vraiment, je veux dire je ne suis pas capable d'aller dans My.settings.dictionnary, le seul je peux prendre ses :
System.Collections.Specialized.StringDictionary

Avec celui-ci , je ne peux pas d'éclarer le code du début qu'il faut entrer :

Code:

My.Settings.MonDictionnaire = new Dictionnary(Of string,string)

et lorsque j'entre mon favoris, jai une erreur d'exeption : La référence d'objet n'est pas définie à une instance d'un objet. et sa souligne en jaune le code :

Code:

My.Settings.MonDictionnaire.Add(TextBox2.Text, TextBox1.Text)

Merci encore, Petite présision, j'utilise Vb 2008 express édition,
Et en plus , pendant que nous y sommes, comment faire que les Listview items s'add lors du démarage avec le code ci-dessous( je veux dire , que l'item prenne son Item.name et son Item.text)
Code:

1 2 3 4 5 6 7 8 For Each item As String In My.Settings.MonDictionnaire Dim item1 As New ListViewItem item1.Name = item.ToString item1.Text = item.ToString ListView1.Items.Add(item1) Next
Gros merci pour ton aide

17/12/2009, 16h23
bobo10

J'avais pas compris que tu était passé par le mode design du settings.

Le plus simple est de créer une variable dans ton application, idéalement membre de class avec le type dictionnary(Of string,string) et ensuite utiliser cette variable et ne plus utiliser my.settings.
Ou créer la variable ou une structure dans le namespace my mais là ça devient plus compliqué.

Cependant si tu veux que le listview se remplisse dès le démarrage il te faut le mettre dans ton Form_Load et tu as besoin d'une base de données externe pour stocké tes Url.(soit un DB ou un fichier Txt ou Xml)
17/12/2009, 16h32
icekev

Dans ce cas, comment faire si je veux utiliser disont un ficher XML pour ma base do donné?

Merci de m'éclairer la voie =D
17/12/2009, 16h38
icekev

DAns le fond , il n'y aurais pas une facon avec les variable Dictionnary de faire mes items. je veux dire, utiliser la variable dictionnaire pour le Item.name et un autre variable dictionnaire pour le ITem.Text

MErci de ton aide =D
17/12/2009, 16h51
bobo10

essai simplement de créer une datatable avec 2 colonnes.
Tu la rempli lors du click du bouton et ensuite tu la sauvegarde au format XML avec MaDatatable.WriteXML("Chemin du fichier")

Et dans le Form_Load tu fait l'inverse MaDataTable.ReadXML("Chemin du fichier")
17/12/2009, 18h52
icekev

ma question est:

comment fonctionne une Hastable? je n'ai jamais travailler avec une tel variable.

et, qu'arrive t-il si quelqu'un delete le fichier XML? sa procurerai surement des trouble.

Merci de ton aide encore =D
17/12/2009, 20h40
bobo10

Une Hastable est très ressemblant à un dictionnaire, la hastable ne nécéssite pas d'initialiser les type de données qui y sont inséré mais elle peut être utilisé dans le même style qu'un dictionnaire.

Bien sur si quelqu'un efface le fichier XML, il n'y aura plus de favories, il est bien évident que le meilleur moyen est d'utiliser une base de données tel que SQL, MySql ou autre, qui permet de gèrer les droits des utilisateurs.

Mais pour mieux comprendre que veux-tu faire exactement comme programme?
Doit-il fonctionner sur plusieurs PC?
17/12/2009, 22h42
icekev

je crée un webbrowser , et je veux ajouter des favoris.
le principle est tres simple si on en reste qu'a afficher le url comme texte.

moi, je veux que ce que lon voit le le webbrowser.documenttitle et que lorsque l'on click , sa soit le url.

Mon principle est simple. Le listviewitem.name = Url et Le listviewitem.text = Documenttitle.

Merci encore de ton aide.
18/12/2009, 04h49
icekev

Sinon , s'il n'y a pas manier de faire fonctionner le tous avec une ou plusieurs variable en n'importe quel type qui peut faire fonctionner le tous, on pourrait tu faire un codage qui:

Si le Fichier XML recherché n'existe pas, que le programme en crée un, et que si
le fichier XML et trouver qu'il importe ses donné,

Parcontre, le Fichier XML , je le trouve plutot non sécuritaire, je veux dire du delete la mauvaise chose par faute ou bien un virus t'attaque, tu perd tous les donnés qu'il contenait, alors , sa serai plus sécuritaire avec des Variable, a moin qu'il ait moyen de protégé le fichier =D

Merci beaucoup encore bobo10 et au reste qui ont peut-être une idée a mon problème =D.
18/12/2009, 09h30
bobo10

Biensur que le fichier peut-être effacé. Mais pour alimenter la variable il faut bien prendre les données à quelque part.

Dès que tu ferme ton programme, tout ce qui se trouve dans les variables part en fumée et à la prochaine ouverture les variables seront initialisé, donc Vide.

Si tu ne veux pas que les données se trouve dans un simple fichier pour des raisons de sécurité, il te faut dès lors installer une base de données. Soit tu le fait avec Access mais pour protèger la base c'est pas très convivial, moi je te conseil de le faire soit avec SQLExpress ou Mysql
18/12/2009, 14h19
icekev
Mhmm, pourtant, je reusis avec une variable de My.settings.collection.stringcollection.specialized de sauvgarder des données et elle y reste au demarage et avec ce code la, sa y reste
Code:

1 2 3 4 5 6 7 8 9 button_click . .. my.settings.add(textbox1.text) Form load For each item as string in my.settings.favlist dim item1 as listviewitem item1.text = item.tostring listview1.items.add(item1)
sinon, du mysql, je crois que sa devient trop compliquer la