DLL LISTBOX ET COMBOBOX MULTI COLONNES

Commentaire de Fraggy le 18/12/2003 01:59:03

Excellente idée ... dommage que cette source soit une fois de plus
une source .NET . Mais pourquoi toutes les meilleures choses se
trouvent que en .NET :(( (j'ai démaré VB6 y a environ 6 mois)

Sinon, sur le principe je mets 9/10 (et oui je ne peux pas tester)
Si il y a une identique en VB6, je suis prenneur ;)

Commentaire de Shivan0910 le 18/12/2003 14:40:22

mais le fait que ce soit une dll ne le rend pas exploitable sous vb6 ??
qu'est ce qu'il faudrait pour que ca marche sur vb6 ???
en tout cas toujours super bien !!

Commentaire de sibi12 le 18/12/2003 20:14:07

Salut,

VB6 peut implementer des DLL COM, DCOM, COM+ ou d truc comme ça, basé sur l'ATL.
Une DLL .Net  utilise une autre architecture donc pour pouvoir lire cette DLL tu dois le faire en utilisant le "bas niveau" avec tout une série de Declare Function tatata....
Donc très lourd à faire de plus tu doit t'assurer que la machine ou le programme est installé a le framework...
Je ne connais pas les fonctions pour implementer la DLL mais elle doivent, en principe,  se trouver sur le site microsoft

A+

Commentaire de dyka le 06/12/2005 17:57:43

On se demande bien pourquoi ce n'est pas un contrôle standard du framework. En tout les cas, les contrôles fonctionnent très bien. J'ai juste une question : est-il possible de modifier la position de la dropdown list.
Par défaut, elle a la taille de la combobox, on peut l'élargir mais j'aimerais que le rectangle soit dessiner de l'autre côté. Est-ce possible ?
Merci pour les infos

Commentaire de sidar le 28/04/2006 19:00:31

Voila mon problème, j'utilise actuellement une listbox pour afficher les données d'un ARRAYLIST (mesVariables) qui pour chaque enregistrement contient 3 données (AdresseVariable , MnemoVariable et CommentaireVariable), ce qui donne le code suivant:
For Each maVar In EcranPrincipal.mesVariables
    ListBox1.Items.Add(maVar.AdresseVariable & "  " & _
    maVar.MnemoVariable & "   " & maVar.CommentaireVariable)
Next
Bon ça marche mais question alligement des colonnes, c'est pas terrible et je n'ais pas forcemment l'intention de calculer la longueur de chaque donnée pour ajuster mon nombre d'espaces.
J'ai donc récupéré la DLL et je suis confronté à un petit problème:
je réussi bien à créer mes trois colonnes, le nombre d'enregistrements correspond bien au nombre d'enregistrements de mon ARRAYLIST, mais je ne réussi pas à afficher correctement le contenu de chaque AdresseVariable , MnemoVariable et CommentaireVariable dans les lignes de la listbox multicolonne (j'ai dans les 3 colonnes le nom du namespace de mes variables pour chacun des 8000 enregistrements, ce qui ne m'avance pas beaucoup).
Voici le code que j'ai mis en place et qui donne ce résultat:
With MultiListBox1
                .DataSource = EcranPrincipal.mesVariables
                .Columns.Add(New ListBoxComboxMulticolonne.MultiListBox.Column(100, "AdresseVariable", "Adresse"))
                .Columns.Add(New ListBoxComboxMulticolonne.MultiListBox.Column(100, "MnemoVariable", "Mnémo"))
                .Columns.Add(New ListBoxComboxMulticolonne.MultiListBox.Column(200, "CommentaireVariable", "Commentaire"))
            End With
Si quelqu'un peut me donner un coup de main, merci d'avance. Désolé si mes explications ne sont pas très claire, mes je ne suis qu'un informaticien amateur et je manque surement du bon vocabulaire pour être bien compris.

Commentaire de labout le 19/10/2006 15:28:00

merci

Commentaire de labout le 26/11/2006 14:30:45

L'exemple de mon source traite ce cas.
Voic les 3 cas traités:
recordset fichier xml
recordset SQL Serves
recordset ACCESS

Commentaire de sbaillamos2001 le 13/04/2007 19:05:52

salut tous le monde
j'ai besion d'un code qui me permet d'inserer un combobox multicolonnes en vb 6.0
merci d'avance

Commentaire de Herleci le 20/04/2007 07:37:20

Bonjour comment faire pour remplir la multicolonneListBox avec un datareader, car je ne veux pas la lier à une table mais plutôt à ma requete voila mon code:
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data source=C:\Documents and Settings\Antonio\Mes documents\Visual Studio 2005\Projects\SGI\SGI\RemonteTerrain2K3.mdb")
        'On crée une commande
'Une variable pour paramêtrer ma requête
        Dim RefDiff As Integer
        RefDiff = Form1.txtDiff.Text
        Dim Mycommand1 As OleDbCommand = MyConnexion.CreateCommand()
        Select Case RefDiff
            Case Is = 1, 2

                Mycommand1.CommandText = "select num_chaine, NOM_Chaîne,id_transpondeur from FormsChainePartranspondeur WHERE RefDiff like'" & RefDiff.ToString & "'"
            Case Else

                Mycommand1.CommandText = "select num_chaine, NOM_Chaîne,id_transpondeur from FormsChainePartranspondeur WHERE RefDiff <> 2"

        End Select
        MyConnexion.Open()
        'on crée le datareader et on stocke chaque résultat dans listbox1
        Dim Myreader1 As OleDbDataReader = Mycommand1.ExecuteReader()

A partir d'ici je ne sais pas comment on fait pour remplir la liste box

Commentaire de labout le 10/10/2008 18:09:41

c'est dans le code de la DLL DLL qu'il faut agir.
Mais ce n'est pas gagné car c'est prvu pour afficher
la valeur existante ou la première valeur quand il n'y en a pas.

Commentaire de labout le 21/10/2008 18:42:15

et bien il suffit d'ouvrir la DLL avec VB2005 puis de la recompiler. La version 2005 était téléchargeable gratuitement chez microsoft