IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Affichage des résultats du sondage: qlq un veut il m'aider ?

Votants
1. Vous ne pouvez pas participer à ce sondage.
  • xc

    1 100,00%
  • xcxc

    0 0%
VB.NET Discussion :

par quoi est remplacé l'évenement scroll d'une listbox ds vb6 dans vb.net


Sujet :

VB.NET

  1. #1
    Membre actif
    Inscrit en
    Décembre 2008
    Messages
    68
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 68
    Par défaut par quoi est remplacé l'évenement scroll d'une listbox ds vb6 dans vb.net
    bonjour
    je voudrais Synchroniser le défillement de plusieures listbox en utilisant vb.net mais je ne trouve pas léquivalent de l'évnement scroll dont j'ai l'habitude en vb6
    si qlq un veut bien m'aider je lui serai reconnaissant
    merçi

  2. #2
    Membre Expert Avatar de meziantou
    Homme Profil pro
    autre
    Inscrit en
    Avril 2010
    Messages
    1 223
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations professionnelles :
    Activité : autre
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2010
    Messages : 1 223

  3. #3
    Membre actif
    Inscrit en
    Décembre 2008
    Messages
    68
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 68
    Par défaut ScrollBar pour Listbox
    bonjour
    merçi pour ton aide meme si ce n'est pas la réponse voulue.
    j'ai 3 listbox et je voudrais lorsque je déplace par la souris le scrollbar d'une listbox les scrollbar des deux autres listbox suivent ce mouvent

  4. #4
    Membre Expert Avatar de meziantou
    Homme Profil pro
    autre
    Inscrit en
    Avril 2010
    Messages
    1 223
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations professionnelles :
    Activité : autre
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2010
    Messages : 1 223
    Par défaut
    Le principe est de passer les messages de scroll aux autres listbox par message. Tu trouvera plus de détails par la
    http://social.msdn.microsoft.com/for...-7879916f8b18/

    Il faut juste que tu l'adaptes un petit peu pour gérer 3 listbox

  5. #5
    Membre actif
    Inscrit en
    Décembre 2008
    Messages
    68
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 68
    Par défaut SendMessage_ListBox
    Bonjour
    tout d'abord je m'éxcuse pour le dérrangement!!
    Votre aide m'est trés précieuse et merçi beaucoup
    seulement j'ai encore un petit problème:
    voila j'ai 3 listbox et veux envoyer le message à partir de chaque listbox
    comme ci_dessous:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Private Sub Listbox1_Scroll(ByRef m As System.Windows.Forms.Message) Handles ListBox1.Scroll
            SendMessage(ListBox2.Handle, m.Msg, m.WParam, m.LParam)
            SendMessage(ListBox3.Handle, m.Msg, m.WParam, m.LParam)
        End Sub
     
        Private Sub ListBox2_Scroll(ByRef m As System.Windows.Forms.Message) Handles ListBox2.Scroll
            SendMessage(ListBox1.Handle, m.Msg, m.WParam, m.LParam)
            SendMessage(ListBox3.Handle, m.Msg, m.WParam, m.LParam)
        End Sub
     
        Private Sub ListBox3_Scroll(ByRef m As System.Windows.Forms.Message) Handles ListBox3.Scroll
            SendMessage(ListBox2.Handle, m.Msg, m.WParam, m.LParam)
            SendMessage(ListBox1.Handle, m.Msg, m.WParam, m.LParam)
        End Sub
    là le programme plante et m'envoie le message suivant
    Une exception non gérée du type 'System.StackOverflowException' s'est produite dans System.Windows.Forms.dll
    par contre si j'utilise une seule sub tout marche bien

    par conséquant j'aimerais que vous me donniez encore une petite aide et merçi
    je vous envoie le fichier pour voir!!
    Fichiers attachés Fichiers attachés

  6. #6
    Membre Expert Avatar de meziantou
    Homme Profil pro
    autre
    Inscrit en
    Avril 2010
    Messages
    1 223
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations professionnelles :
    Activité : autre
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2010
    Messages : 1 223
    Par défaut
    là le programme plante et m'envoie le message suivant "Une exception non gérée du type 'System.StackOverflowException' s'est produite dans System.Windows.Forms.dll"
    Quand tu scroll le listbox1 il envoie un message au listbox2 qui lui même va envoyer un message au listbox1 qui renvoie un message au listbox2 ....... D'où le stackoverflow.

    Il faut que tu fasses en sorte de ne pas renvoyer le message au listbox d'où le scroll a réellement été fait.

    Mon code est en c#
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    37
    38
    39
    40
     
    private List<object> from = null;
     
    public Form1()
    {
        InitializeComponent();
        for (int i = 0; i < 1000; i++)
        {
            myListBox1.Items.Add(i);
        }
        for (int i = 0; i < 1000; i++)
        {
            myListBox2.Items.Add(i);
        }
        for (int i = 0; i < 1000; i++)
        {
            myListBox3.Items.Add(i);
        }
     
        from = new List<object>();
        myListBox1.Scroll += new MessageHandler(myListBox1_Scroll);
        myListBox2.Scroll += new MessageHandler(myListBox1_Scroll);
        myListBox3.Scroll += new MessageHandler(myListBox1_Scroll);
    }
     
    void myListBox1_Scroll(object sender, Message m)
    {
        from.Add(sender);
     
        if (!from.Contains(myListBox1))
            SendMessage(myListBox1.Handle, m.Msg, m.WParam, m.LParam);
     
        if (!from.Contains(myListBox2))
            SendMessage(myListBox2.Handle, m.Msg, m.WParam, m.LParam);
     
        if (!from.Contains(myListBox3))
            SendMessage(myListBox3.Handle, m.Msg, m.WParam, m.LParam);
     
        from.Remove(sender);
    }
    PS : penses à mettre les balises code.

  7. #7
    Membre actif
    Inscrit en
    Décembre 2008
    Messages
    68
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 68
    Par défaut Messagehandler
    Bonjour
    Pardonnez moi encore ce dérrangement et merçi d'avance.
    je crois comprendre le message d'erreur à travers les lignes de code que vous m'avez envoyé.seulement si vous pouviez me traduire en VB je serais trés satisfait .
    mes respects à vous qui etes trés patient avec mes questions.

  8. #8
    Membre Expert Avatar de meziantou
    Homme Profil pro
    autre
    Inscrit en
    Avril 2010
    Messages
    1 223
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations professionnelles :
    Activité : autre
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2010
    Messages : 1 223
    Par défaut
    je crois comprendre le message d'erreur à travers les lignes de code que vous m'avez envoyé
    Quel est le message ?

    seulement si vous pouviez me traduire en VB je serais trés satisfait .
    http://www.developerfusion.com/tools.../csharp-to-vb/

  9. #9
    Membre actif
    Inscrit en
    Décembre 2008
    Messages
    68
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 68
    Par défaut
    Bonjour
    voila le code aprés migration vers Vb.net
    je reçois tjrs le meme message ,alors si vousvoulez bien me corriger l'erreur
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    Public Class Form1
        Private from As List(Of Object) = Nothing
        Private Declare Auto Function SendMessage Lib "user32.dll" (ByVal hdl As IntPtr, ByVal msg As Integer, ByVal wp As IntPtr, ByVal lp As IntPtr) As IntPtr
        Friend WithEvents MyListBox1 As MyListBox
        Friend WithEvents MyListBox2 As MyListBox
        Friend WithEvents MyListBox3 As MyListBox
     
        Private Sub myListBox1_Scroll(ByVal sender As Object, ByRef m As Message)
            from.Add(sender)
     
            If Not from.Contains(MyListBox1) Then
                SendMessage(MyListBox1.Handle, m.Msg, m.WParam, m.LParam)
            End If
     
            If Not from.Contains(MyListBox2) Then
                SendMessage(MyListBox2.Handle, m.Msg, m.WParam, m.LParam)
            End If
     
            If Not from.Contains(MyListBox3) Then
                SendMessage(MyListBox3.Handle, m.Msg, m.WParam, m.LParam)
            End If
     
            from.Remove(sender)
        End Sub
     
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
     
     
            MyListBox1 = New MyListBox
            MyListBox2 = New MyListBox
            MyListBox3 = New MyListBox
            Me.MyListBox1.Location = New System.Drawing.Point(300, 100)
     
            Me.MyListBox1.Name = "MyListBox1"
     
            Me.MyListBox1.Size = New System.Drawing.Size(182, 224)
     
            Me.MyListBox1.TabIndex = 0
     
            Me.MyListBox2.Location = New System.Drawing.Point(482, 100)
     
            Me.MyListBox2.Name = "MyListBox2"
     
            Me.MyListBox2.Size = New System.Drawing.Size(182, 224)
     
            Me.MyListBox2.TabIndex = 1
            Me.MyListBox3.Location = New System.Drawing.Point(664, 100)
     
            Me.MyListBox3.Name = "MyListBox3"
     
            Me.MyListBox3.Size = New System.Drawing.Size(182, 224)
     
            Me.MyListBox2.TabIndex = 2
            Me.Controls.Add(Me.MyListBox1)
            Me.Controls.Add(Me.MyListBox2)
            Me.Controls.Add(Me.MyListBox3)
            For i As Integer = 0 To 999
                MyListBox1.Items.Add(i)
            Next
            For i As Integer = 0 To 999
                MyListBox2.Items.Add(i)
            Next
            For i As Integer = 0 To 999
                MyListBox3.Items.Add(i)
            Next
     
            from = New List(Of Object)()
            AddHandler MyListBox1.Scroll, AddressOf myListBox1_Scroll
            AddHandler MyListBox2.Scroll, AddressOf myListBox1_Scroll
            AddHandler MyListBox3.Scroll, AddressOf myListBox1_Scroll
     
            'MyListBox1.Scroll += New MessageHandler(AddressOf myListBox1_Scroll)
            'MyListBox2.Scroll += New MessageHandler(AddressOf myListBox1_Scroll)
            'MyListBox3.Scroll += New MessageHandler(AddressOf myListBox1_Scroll)
     
        End Sub
    End Class
    Fichiers attachés Fichiers attachés

  10. #10
    Membre Expert Avatar de meziantou
    Homme Profil pro
    autre
    Inscrit en
    Avril 2010
    Messages
    1 223
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations professionnelles :
    Activité : autre
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2010
    Messages : 1 223
    Par défaut
    je reçois tjrs le meme message
    Quel est ce message ?

  11. #11
    Membre actif
    Inscrit en
    Décembre 2008
    Messages
    68
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 68
    Par défaut
    bonsoir
    le message que je reçois est encore
    Une exception non gérée du type 'System.StackOverflowException' s'est produite dans System.Windows.Forms.dll
    je dis seulement que le code ne donne rien et j'aimerais que vous donneriez encore un petit coup de main.
    le code que je vous ai envoyé est à corriger par vous et merçi

  12. #12
    Membre extrêmement actif
    Inscrit en
    Avril 2008
    Messages
    2 573
    Détails du profil
    Informations personnelles :
    Âge : 65

    Informations forums :
    Inscription : Avril 2008
    Messages : 2 573
    Par défaut syncroniser 3 listboxes avec event listbox.click
    bonjour sidisadmirable

    Fabulous click,c'est simple il peut te permettre avec la methode ListBox.Select() de synchroniser admirablement ya sidi 3 listboxes sans passer par SendMessage qui lui franchit les frontieres des processus.

    voici l'astuce vb.net mais il fallait y penser parbleu :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
     
    Public Class myForm1
        Public Sub New()
     
            ' Cet appel est requis par le Concepteur Windows Form.
            InitializeComponent()
     
            ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        End Sub
     
        Private Sub btnFillListBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFillListBox1.Click
     
            MyListBox1.Items.Clear()
            MyListBox2.Items.Clear()
            MyListBox3.Items.Clear()
            For i As Integer = 0 To 999
                MyListBox1.Items.Add(i)
            Next
            For i As Integer = 0 To 999
                MyListBox2.Items.Add(i)
            Next
            For i As Integer = 0 To 999
                MyListBox3.Items.Add(i)
            Next
     
     
        End Sub
     
        Private Sub MyListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyListBox1.Click
            MyListBox2.SetSelected(MyListBox1.SelectedIndex, True)
            MyListBox2.Focus()
            MyListBox3.SetSelected(MyListBox1.SelectedIndex, True)
            MyListBox3.Focus()
            MessageBox.Show(" MyListBox1")
        End Sub
     
        Private Sub MyListBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyListBox2.Click
            MyListBox1.SetSelected(MyListBox2.SelectedIndex, True)
            MyListBox1.Focus()
            MyListBox3.SetSelected(MyListBox2.SelectedIndex, True)
            MyListBox3.Focus()
            MessageBox.Show(" MyListBox2")
        End Sub
     
        Private Sub MyListBox3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyListBox3.Click
            MyListBox2.SetSelected(MyListBox3.SelectedIndex, True)
            MyListBox1.Focus()
            MyListBox1.SetSelected(MyListBox3.SelectedIndex, True)
            MyListBox1.Focus()
            MessageBox.Show(" MyListBox3")
        End Sub
    End Class
    bon code................

  13. #13
    Membre actif
    Inscrit en
    Décembre 2008
    Messages
    68
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 68
    Par défaut
    bonjour
    premièrement je vous remrçie pour ton aide , seulement moi , je voudrais que lorsque je déplace un un élément ds une listbox ce déplacement doit etre le meme ds les autres listbox c.à.d si je déplace par ex.l'élément d'indice 5 ds la listbox1 ,automatiquement l'élément du meme indice (5) se déplce ds les autres listbox et cela ds le meme sens.
    le code de mr.meziantou donne le résultat que j'espère mais seulemnt pour une seule listbox.
    le résultat que tu m'as donné je l'ai obtenu par les sub suivantes:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Private Sub MyListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyListBox1.Click
            MyListBox2.SelectedItem=MyListBox1.SelectedItem
            MyListBox3.SelectedItem=MyListBox1.SelectedItem
        End Sub
     
        Private Sub MyListBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyListBox2.Click
           MyListBox1.SelectedItem=MyListBox2.SelectedItem
            MyListBox3.SelectedItem=MyListBox2.SelectedItem
        End Sub
     
        Private Sub MyListBox3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyListBox3.Click
           MyListBox1.SelectedItem=MyListBox1.SelectedItem
            MyListBox2.SelectedItem=MyListBox1.SelectedItem
        End Sub
    je cherche à synchroniser les listbox par l'événement listbox.scroll

  14. #14
    Membre actif
    Inscrit en
    Décembre 2008
    Messages
    68
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 68
    Par défaut Problème résoulu
    bonjour
    le problème a été résoulu en corrigeant l'événement scroll au niveau de la
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    classe MylistBox
    Public Class MyListbox
     
        Inherits ListBox
        Public Event Scroll(ByVal sender As Object, ByRef m As Message)
        Private Const WM_VSCROLL As Integer = &H115
     
        Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
            If m.Msg = WM_VSCROLL Then RaiseEvent Scroll(Me, m)
            MyBase.WndProc(m)
        End Sub
     
    End Class
     
    Public class Form
    Private from As List(Of Object) = Nothing
        Private Declare Auto Function SendMessage Lib "user32.dll" (ByVal hdl As IntPtr, ByVal msg As Integer, ByVal wp As IntPtr, ByVal lp As IntPtr) As IntPtr
     
     Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
     
            LstCode = New MyListbox
            LstNom = New MyListbox
            LstLang = New MyListbox
     
            '
            'LstCode
            '
            Me.LstCode.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
            Me.LstCode.Font = New System.Drawing.Font("Arial", 10.0!, System.Drawing.FontStyle.Bold)
            Me.LstCode.FormattingEnabled = True
            Me.LstCode.ItemHeight = 16
            Me.LstCode.Location = New System.Drawing.Point(158, 286)
            Me.LstCode.Name = "LstCode"
            Me.LstCode.ScrollAlwaysVisible = True
            Me.LstCode.Size = New System.Drawing.Size(118, 250)
            Me.LstCode.TabIndex = 27
     
            '
            'LstNom
            '
            Me.LstNom.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
            Me.LstNom.Font = New System.Drawing.Font("Arial", 10.0!, System.Drawing.FontStyle.Bold)
            Me.LstNom.FormattingEnabled = True
            Me.LstNom.ItemHeight = 16
            Me.LstNom.Location = New System.Drawing.Point(276, 286)
            Me.LstNom.Name = "LstNom"
            Me.LstNom.ScrollAlwaysVisible = False
            Me.LstNom.Size = New System.Drawing.Size(310, 250)
            Me.LstNom.TabIndex = 28
            '
            'LstLang
            '
            Me.LstLang.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
            Me.LstLang.Font = New System.Drawing.Font("Arial", 10.0!, System.Drawing.FontStyle.Bold)
            Me.LstLang.FormattingEnabled = True
            Me.LstLang.ItemHeight = 16
            Me.LstLang.Location = New System.Drawing.Point(586, 286)
            Me.LstLang.Name = "LstLang"
            Me.LstLang.ScrollAlwaysVisible = False
            Me.LstLang.Size = New System.Drawing.Size(98, 250)
            Me.LstLang.TabIndex = 29
            Me.Controls.Add(Me.LstCode)
            Me.Controls.Add(Me.LstNom)
            Me.Controls.Add(Me.LstLang)
            from = New List(Of Object)()
            AddHandler LstCode.Scroll, AddressOf LstCode_Scroll
            AddHandler LstNom.Scroll, AddressOf LstCode_Scroll
            AddHandler LstLang.Scroll, AddressOf LstCode_Scroll
    end sub
     
    Private Sub LstCode_Scroll(ByVal sender As Object, ByRef m As Message)
            from.Add(sender)
     
            If Not from.Contains(LstCode) Then
                SendMessage(LstCode.Handle, m.Msg, m.WParam, m.LParam)
            End If
     
            If Not from.Contains(LstNom) Then
                SendMessage(LstNom.Handle, m.Msg, m.WParam, m.LParam)
            End If
     
            If Not from.Contains(LstLang) Then
                SendMessage(LstLang.Handle, m.Msg, m.WParam, m.LParam)
            End If
     
            from.Remove(sender)
        End Sub
    end classe
    merçi à syvc64

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Détecter par quoi est ouvert un fichier
    Par linkcr15 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 13/06/2012, 14h15
  2. par quoi est remplace le tag <html:cancel /> ?
    Par pcouas dans le forum Struts 2
    Réponses: 1
    Dernier message: 27/05/2009, 00h18
  3. Par quoi est liée la liste déroulante du frm ?
    Par sinecure dans le forum IHM
    Réponses: 1
    Dernier message: 11/05/2009, 16h06
  4. Scanner , par quoi la remplacer..
    Par yvkoe dans le forum Collection et Stream
    Réponses: 16
    Dernier message: 09/10/2007, 12h08
  5. [Choix] Par quoi je remplace le CMS phpnuke ?
    Par nouna dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 12
    Dernier message: 15/02/2006, 13h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo