DLL LISTBOX ET COMBOBOX MULTI COLONNES
cs_Fraggy
Messages postés
95
Date d'inscription
lundi 9 juin 2003
Statut
Membre
Dernière intervention
2 juin 2010
-
18 déc. 2003 à 01:59
guilleto Messages postés 256 Date d'inscription jeudi 23 octobre 2003 Statut Membre Dernière intervention 20 mars 2013 - 22 févr. 2013 à 17:06
guilleto Messages postés 256 Date d'inscription jeudi 23 octobre 2003 Statut Membre Dernière intervention 20 mars 2013 - 22 févr. 2013 à 17:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/18800-dll-listbox-et-combobox-multi-colonnes
https://codes-sources.commentcamarche.net/source/18800-dll-listbox-et-combobox-multi-colonnes
22 févr. 2013 à 17:06
@PWM63, Merci pour cette solution, mais je ne me vois pas créer une database juste pour un enregistrement !
Pour le moment (vu que ça presse) je vais utiliser à contre coeur un DataGridView ...
Encore merci pour vos réponses.
Olivier
22 févr. 2013 à 16:04
Pour éviter de simplement te dire que je ne sais pas, je te propose de remplir manuellement 1 Datatable.
'en même temps que ton 2 :
Dim table As DataTable = New DataTable()
Dim colonne As DataColumn
colonne = New DataColumn()
colonne.DataType = System.Type.GetType("System.Int32")
colonne.ColumnName = "Colonne1"
table.Columns.Add(colonne)
colonne = New DataColumn()
colonne.DataType = Type.GetType("System.String")
colonne.ColumnName = "Colonne2"
table.Columns.Add(colonne)
'3
Dim row As DataRow
row = table.NewRow()
row("Colonne1") = Valeur1
row("Colonne2") = Valeur2
table.Rows.Add(row)
MultiComboBox1.DataSource = table
MultiComboBox1.DisplayMember = "Colonne1"
MultiComboBox1.ValueMember = "Colonne2"
22 févr. 2013 à 15:55
22 févr. 2013 à 13:24
Tout d'abord, merci pour ta réponse.
Si je ne me trompe pas, ceci est pour ajouter des colonnes ! non ?
Moi ce que je cherche à faire c'est :
1°) Créer une ListBoxMultiColonnes (FAIT)
2°) Ajouter 2 colonnes nommées Colonne1 et Colonne2 (FAIT)
3°) Ajouter 1 ligne avec les éléments Valeur1 et Valeur2 => Là je bloque !
Attention, je dois pouvoir ajouter d'autres éléments par la suite.
Si tu as trouvé comment faire cela sans passer par une bdd : je suis preneur.
Par avance merci
Olivier
22 févr. 2013 à 11:42
Bonjour Olivier,
Essaye ainsi :
ListBoxComboxMulticolonne.MultiComboBox1.Columns.Add(New ListBoxComboxMulticolonne.MultiComboBox.Column(Column_Width1, Column_Member1))
ListBoxComboxMulticolonne.MultiComboBox1.Columns.Add(New ListBoxComboxMulticolonne.MultiComboBox.Column(Column_Width2, Column_Member2))
22 févr. 2013 à 11:00
Est-ce que quelqu'un sait comment ajouter un élément 'manuellement' ?
J'ai essayé ceci :
Dim MonItem As Object = {{"NomColonne1", "Valeur 1"}, {"NomColonne2", "Valeur 2"}}
.Items.Add(MonItem)
Sachant que NomColonne1 et NomColonne2 sont les noms des 2 champs de mon contrôle !
Par avance merci
Olivier
8 avril 2009 à 11:02
Mais dans ma version de VB, il ne faut pas les "_" :
CType(CType(CType(MultiComboBox1.Items(iIndex), Object), System.Data.DataRowView).Row, System.Data.DataRow).ItemArray(1).ToString()
7 avril 2009 à 18:24
Pour info, avec cette version, à la place MultiComboBox.ShowColumns True, il faut mettre MultiComboBox.DrawMode DrawMode.OwnerDrawFixed.
Par contre, je n'ai pas trouvé comment récupérer le contenu d'une colonne de la ligne sélectionnée dans la combobox ? (la méthode expliquée semble ne pas fonctionner avec cette version de VB).
21 oct. 2008 à 20:45
Cela fonctionne maitenant parfaitement !
Pour info, je fais ainsi :
Sub remplit_multicombobox(ByVal MultiComboBox As ListBoxComboxMulticolonne.MultiComboBox, ByVal DataSource As DataTable, ByVal DisplayMember As String, ByVal ValueMember As String, ByVal Columns() As structure_columns)
Dim DropDownWidth As Integer = 0
With MultiComboBox
.DataSource = DataSource 'Table
.DrawMode = DrawMode.OwnerDrawFixed
.DisplayMember = DisplayMember 'Champs affiché
.ValueMember = ValueMember 'Valeur du champs
.AspectLigneVerticale = ListBoxComboxMulticolonne.MultiComboBox.LargeurTrait.Fin
.HideColumnCle = True 'Clef cachée
.FormattingEnabled = True 'Aucune valeur par défaut
.SelectedValue = -1 'Aucune valeur par défaut
For Each Column As structure_columns In Columns 'Ajoute les colonnes
.Columns.Add(New ListBoxComboxMulticolonne.MultiComboBox.Column(Column.Width, Column.ColumnMember))
DropDownWidth += Column.Width
Next
.DropDownWidth = DropDownWidth 'Largeur
End With
End Sub
21 oct. 2008 à 18:42
13 oct. 2008 à 10:25
Après aide, pour ce qui concerne le Combobox, il s'agirait de la propriété FormattingEnabled, disponible uniquement à partir du Framework 2.0.
Et je suis en VB .Net 2003 qui n'accepte que le Framework 1.x.
Bref, c'est pas gagné !
Merci tout de même pour ta source !
Stéphane
10 oct. 2008 à 18:09
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.
10 oct. 2008 à 15:31
Je suis en VB .net 2003.
Je souhaite afficher 1 MultiComboBox avec 2 colonnes "Code" et Signification", obtenir le résultat "Code" après avoir choisi 1 occurrence, et conserver la valeur "Numéro Auto".
Ces 3 champs sont dans 1 table d'1 dataset que je remplis via 1 fichier xml.
Pour l'instant, tout correspond à mon besoin, mais j'ai 1 petit soucis :
le contrôle affiche obligatoirement une valeur,
or, j'aimerai que la multicombobox reste vide tant que je n'ai encore rien sélectionné dans la liste.
J'ai essayé selectedvalue = nothing, "", 0 ou -1 ainsi que text="" mais rien n'y fait.
Existe-t-il 1 solution à mon problème ?
Par avance, merci.
Stéphane
PS : Ci-dessous un extrait du code :
With Me.MultiComboBox1
.DataSource = Me.DataTable1
.DisplayMember = "Code"
.ValueMember = "Numéro Auto"
.DropDownWidth = 700
.Columns.Add(New ListBoxComboxMulticolonne.MultiComboBox.Column(110, "Code"))
.Columns.Add(New ListBoxComboxMulticolonne.MultiComboBox.Column(590, "Signification"))
End With
20 avril 2007 à 07:37
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
18 avril 2007 à 10:58
+1 (on attend une réponse)
Pas encore mater le code, mais je sens qu'il manque les Set pour items
Sinon, pourquoi tu ne hérite pas d'un listView (en mode list)? ça sera + simple pour les colums etc... (je suppose hein!)
13 avril 2007 à 19:05
j'ai besion d'un code qui me permet d'inserer un combobox multicolonnes en vb 6.0
merci d'avance
18 janv. 2007 à 14:11
Par contre j'ai un petit soucis pour la remplir avec des données non récupérées dans une BDD. Je voudrais y rentrer les données à la main, j'y arrive avec une colonne, mais pas avec deux.
j'ai essayé items.add en passant un tableau et j'obtients à l'exécution "(collection)" dans la liste déroulante.
Peux tu m'aider ?
Merci d'avance.
26 nov. 2006 à 14:30
Voic les 3 cas traités:
recordset fichier xml
recordset SQL Serves
recordset ACCESS
16 nov. 2006 à 17:11
Cependant je début en VB .NET, je voudrais charger une combo box multicolonne à l'aide d'un recordset ou au pire avec un .add mais je n'arrive pas avec le add à mettre plusieurs colonnes.
Merci d'avance
19 oct. 2006 à 15:28
13 oct. 2006 à 16:18
Je n'ai plus qu'à (comprendre comment) l'intégrer dans mon projet :)
En attendant, 10/10 !
28 avril 2006 à 19:00
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.
6 déc. 2005 à 19:10
6 déc. 2005 à 17:57
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
19 déc. 2003 à 13:05
18 déc. 2003 à 20:14
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+
18 déc. 2003 à 15:39
Pose la question sur le forum car je ne sais pas.
Salut et désolé.
18 déc. 2003 à 14:40
qu'est ce qu'il faudrait pour que ca marche sur vb6 ???
en tout cas toujours super bien !!
18 déc. 2003 à 09:17
Parceque VB.NET est appelé à remplacer VB. C'est un produit plus stable et qui offre beaucoup plus de possibilités. En conséquence je n'y investit plus de temps.
18 déc. 2003 à 01:59
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 ;)