begin process at 2012 02 16 23:00:13
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Control

 > CONTROLE PERMETTANT LA SELECTION A PARTIR D'UNE LISTE PLUS INTERESSANT QUE LE COMBOBOX HABITUEL

CONTROLE PERMETTANT LA SELECTION A PARTIR D'UNE LISTE PLUS INTERESSANT QUE LE COMBOBOX HABITUEL


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Control Classé sous :ocx, combobox, rowsource, event, liste Niveau :Initié Date de création :10/05/2006 Date de mise à jour :11/05/2006 13:53:40 Vu / téléchargé :6 123 / 1 189

Auteur : asimengo

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Il s'agit d'un contrôle permettant la selection à partir d'une liste en spéifiant ses proprétés RowSourceType et RowSource. Les elements de la liste peuvent être envoyés à la propriété sous forme de liste avec séparateur ";" ou par le texte sql de la commande qui permet d'accéder à la base de données. ce qui est interessant est qu'il reproduit une copie locale de la base de données sans connection à la base de données d'origine.
Le gros du travail se trouve dans la DLL incluse dont je me donnerai plus le tard le temps de commenter.
Je pense qu'il s'agit d'un contrôle très interessant qui satisfairait tous les niveaux.

Vous pouvez spécifier le masque de saisie voir Contrôle "Microsoft Masked edi ontrol 6.0 (SP3)", la touche clavier F9 permet de lancer la liste ou le clic sur le bouton "...". Afin de faire la selection vous avez possibilité de faire des tris et filtre.

Source

  • Option Explicit
  • Dim Cnx As ADODB.Connection
  • Private Sub Command1_Click()
  • With [SNAComboBox1]
  • .ColumnCount = -1 'Reconnaissance automatique du nombre de colonne
  • .RowSourceType = rt_Query
  • .TextColumn = 2
  • .RowSource = "select * from T_Products"
  • .LimitToList = True
  • End With
  • End Sub
  • Private Sub Command2_Click()
  • With [SNAComboBox1]
  • .RowSourceType = rt_List
  • .ColumnCount = 2
  • .RowSource = "-1;True;0;False"
  • .TextColumn = 2
  • .LimitToList = False
  • End With
  • End Sub
  • Private Sub Form_Load()
  • Set Cnx = New ADODB.Connection
  • With Cnx
  • .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATA ASIMENGO.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=2CST"
  • .Open
  • End With
  • Set [SNAComboBox1].DefaultConnection = Cnx
  • End Sub
  • Private Sub Form_Unload(Cancel As Integer)
  • Set Cnx = Nothing
  • End Sub
Option Explicit
Dim Cnx As ADODB.Connection


Private Sub Command1_Click()
    With [SNAComboBox1]
        .ColumnCount = -1  'Reconnaissance automatique du nombre de colonne
        .RowSourceType = rt_Query
        .TextColumn = 2
        .RowSource = "select * from T_Products"
        .LimitToList = True
    End With
End Sub

Private Sub Command2_Click()
    With [SNAComboBox1]
        .RowSourceType = rt_List
        .ColumnCount = 2
        .RowSource = "-1;True;0;False"
        .TextColumn = 2
        .LimitToList = False
    End With
End Sub

Private Sub Form_Load()
    Set Cnx = New ADODB.Connection
    With Cnx
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATA ASIMENGO.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=2CST"
        .Open
    End With
    Set [SNAComboBox1].DefaultConnection = Cnx
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set Cnx = Nothing
End Sub

 Conclusion

Je serais heureux de vos critiques et je vous laisse libre de le modifier, je serais ravi d'avoir vos modifications. Je me suis interessé à l'essentiel chacun ajoutera les propriétés qui le conviendront pour les couleurs et évènements et autre.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

11 mai 2006 13:53:40 :
Ajout de la DLL manquante lors de la première publication Ajout de la gestion de quelques évènements clavier et souris

 Sources du même auteur

Source avec Zip Source avec une capture INTEGRATION AUTOMATIQUE DE LA ROULETTE/MOLETTE DE LA SOURIS ...
Source avec Zip Source avec une capture DECOMPOSITION SQL - ALGORITHME SIMPLE ET EFFICACE
Source avec Zip GESTION DYNAMIQUE DES ITEMS - BIEN PLUS INTERESSANT QUE LES ...
Source avec Zip Source avec une capture DLL POUR EXECUTER LES FONCTIONS ET PROCEDURES EXTERNES A TON...
Source avec Zip Source avec une capture UTILISATION INTELLIGENTE DE WORD POUR REALISER LES ETATS

 Sources de la même categorie

Source avec Zip COMMUNICATION MODBUS MASTER par sergelapointe
Source avec Zip Source avec une capture DÉPLACEMENT AVEC FLÈCHES DANS UN PAVÉ DE TEXTBOX 9X9 DYNAMIQ... par EhJoe
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLSTARS EN RÉPONSE À JAKNIGHT007 par bigboss9
Source avec Zip Source avec une capture Source .NET (Dotnet) CALENDRIER ANNUEL NORME ISO par Prog1001
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLE STARS par jaknight007

 Sources en rapport avec celle ci

ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde
Source avec Zip Source avec une capture OCX INCOMBOVIEW (SORTE DE MÉLANGE COMBOBOX, LISTVIEW) par Prog1001
Source avec Zip Source avec une capture Source .NET (Dotnet) ENREGISTRER UNE NOUVELLE SAISIE DANS UN COMBOBOX. par Gwendal3
Source avec Zip OCX: CONNECTEUR / DECONNECTEUR INTERNET RAS par lumesh
Source avec Zip LISTE MULTICOLONNES SANS OCX par ZTPdiffusion

Commentaires et avis

Commentaire de VB le 10/05/2006 22:41:08

WAouw....Génial comme idée
Je trouve surtout que sa optimise drôlement le serveur de db.

juste une tite question qu'est ce t' as voulu dire par: "Le gros du travail se trouve dans la DLL incluse" ?
c'est une ocx pas une dll non?

enfin bref...

c'est bien pensé comme idée
Je te met 10/10

Commentaire de asimengo le 11/05/2006 10:19:01

Hum, la note ne s'affiche pas, si tu recommençais, lol

La DLL incluse est indispensable pour la modification du contrôle, j'imagine que chacun voudrait le personnaliser avec ses couleurs et autre, sinon l'OCX en lui même est suffisant pour utilisation.

A+

Commentaire de VB le 11/05/2006 21:48:42

c'est bizarre mais le bouton noter ne marche pas ?

j'ai sélectionné 10 puis en cliquand sur valider rien ne se passe.
? pourquoi?

Commentaire de BruNews le 11/05/2006 23:21:18 administrateur CS

C'est bon, j'ai noté pour toi.

Commentaire de Alighieri76 le 11/12/2006 10:12:21

Est ce que je pourrais avoir le mot de passe de la base de donnée s'il te plait?.T'as oublié de le mettre dans un fichier texte!

Commentaire de asimengo le 12/12/2006 09:54:43

@ALIGHIERI76: le mot de passe est bien precise dans le code "2CST" en majuscule

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

items des comboBox sous VBA [ par pearl ] j'ai initialisé mon form en ajoutant une liste d'item à mon combo.N'ayant pas la liste complete de tous les items, je voudrais que quand l'utilisateur Combo Box [ par riton ] Tout le monde connaît le contrôle COMBOBOX !!!Pour faire défiler la liste on utilise la souris ou la touche F4. Mais si on veut faire défiler la liste Property Get & Let dans un OCX [ par glg ] J'aimerai proposer dans cette procédure une liste de valeurs définies sous forme de liste dans l'ocx.L'exemple de visualbasic n'est pas très claire. Important:Liste deroulante dans un Combobox [ par banton_two ] Messieurs, je vous prie d'accepter mes excuses pour ce petit derangement mais je voudrais savoir si vous vous y connaissez bien an VBA et si vous seri Rien dans la liste de la Combobox [ par Nico ] N'y arrivant pas avec une Datacombo, j'essaie maintenant avec une Combobox mais j'obtiens ce message: Variable objet non définie... Kess'ki manque ? L Liste des disques dans un combo box [ par Patrik ] Salut,Je suis à la recherche de code source pour afficher ds un comboBox la liste, des disques amovibles et des graveurs disponibles sur le PC. La Com ComboBox modifiable [ par Patrik ] Salut,Je suis à la recherche du code source me permettant De gérer le contrôle ComboBox ayant une liste (propiété List ; ou résultat d'une requête SQL Liste de choix [ par filou ] Salut le forum,Je veux faire une petite liste de selection non modifiable par l'utilisateur (saisie d'informations) J'ai essayé avec une combobox ! Av Word et VBA [ par mir ] j'aimerais savoir comment dans un combobox d'un userform de word , créer une référence de liste qui est dans un classeur excel.Private sub userform_i Fichier->Tableau->ComboBox [ par iubito ] Bonjour @ tous !Voilà g 1 truc à faire que je sais bien faire en Access (base de données+formulaire+VBA) mais pas en VB pur.J'ai dans un fichier .txt


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,686 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales