"pour appeler le CDialog et vérifier la touche Annuler :" With ucDlg1 .Show If Not .Cancel Then MsgBox "Chemin et nom du fichier : " & .FileNameFull & _ vbCrLf & "Nom du fichier : " & .FileNameShort End With
Télécharger le zip
Salut Mortalino,Tu es comme Violent-Ken et d'autres, toi!!! Un puit d'idées sans fond.... Il me tarde ta version définitive..Bon allez, je vais préparer les pattes à la bolo... j'ai fini la glace haggen !!!Ps: Je passe bientôt au péage !! lol...A+Exploreur
Miam j'adore les haggen dasz et les pattes à la bolognaise, par ici ! xdMortalino, franchement chapeau ! Je te met 9/10
OneHacker> Quitte à lui donner 9/10, cliques donc sur la note pour qu'elle existe vraiment ;opmortalino> Bien sympathique ce contrôle, bien que je n'aime pas trop son design (notamment la toute petite combo de sélection de drive). Code impec comme d'hab, dommage qu'il n'y ait pas de commentaire ...J'suis pas fan (on ne me referra pas) du "On Error Goto X" avec aucune action dans X. Au minimum, tu peux notifier à l'utilisateur qu'un truc louche s'est produit.
Désolé, ca avait pas bien marché la dernière fois.
Merci pour les comms,oui, il y a de l'amélioration à faire (et des commentaires à mettre^^), je prends tout ça en compte pour les futures MAJ ;)Pour le On error.., on m'a dit plusieur fois d'éviter son utilisation, je vais essayer de le contourner.Bonne glace :D@++ ;)
Pour Manu, j'ai longuement réfléchi et ton comm m'intrigue sur le ComboDrive.Qu'est ce qui ne te plait pas ?Vois-tu autre chose pour le remplacer afin d'avoir un contrôle plus sympa ?Je vais aussi fouiller qques sources pour avoir des idées ;)Merci en tout cas,++ ;)
Désolé mais je n'ai rien demandé et je sais pas ce que le combodrive.
Salut OneHacker ;)Manu c'est Econs. Si tu t'appelles pareil, c'est un hasard, désolé !Sinon, le comboDrive, c'est le comboBox avec les noms des lecteurs (C:, D:, etc..)N'hésite pas d'ailleurs, si t'as des idées esthétiques, je suis preneur ;)@++
En effet je m'apelle Manu(el) :pPas grave. Franchement je serait pas quoi dire sur cette source pour vous aider, désolé.
Marrant ce quiproquo.Ce qui me gêne est purement esthétique. Il y a trop de vide dans le haut du usercontrol, et le bas aussi.J'avais vu un site qui parlait de dimensionnement et ajustement des contrôles avec le nombre d'or pour faire des choses harmonieuses. Faudrait que je le retrouve, c'était vachement chouette.Bref ... trop de vide à mon goût.Pour une fois, le vide prend de la place ... dans mes comments :o)
Oh Manu ! Tu descend ?! XD
Ok, j'ai déplacé certains controles pour qu'il y ait moins de vide.Je galère un peu avec le contrôle Animation, il ne m'affiche aucun avi :(Je vais voir ça autrement (vais faire une petite fouille des sources pour avoir une idée) ;)++
Bonjour Mortalino,j' ai vu ta source et je n' ai pas encore compris pourquoi un usercontrolcar je ne retrouve pas sur la feuille...!Quoiqu' il en soit voici quelques recommandations1° Initialisation du Pattern'soit lors du chargement soit dans la propriété List du ComboPrivate Sub Form_Load() Combo1.AddItem "*.bmp ( images bitmaps )" Combo1.AddItem "*.cur ( curseurs )" Combo1.AddItem "*.ico ( icones ) Combo1.AddItem "*.jif ( images jif )" Combo1.AddItem "*.jpg ( images jpg )" Combo1.AddItem "*.jpeg ( Images jpeg ) " Combo1.AddItem "*.wmf ( Métafichiers )" Combo1.AddItem " Tous" '(espace +Tous) ' Tous = Tous les formats d' ilages et non tous les types des fichiers ' ce qui est logique puiqu' on est censé avoir un aperçu d' imageEnd Sub2° changement du du Pattern de la FileListBoxPrivate Sub Combo1_Click() Fichier="" If Combo1.Text = " Tous" Then File1.Pattern = "*.bmp;*.cur ;*.ico ; *.jif ;*.jpg;*.jpeg;*.wmf" Else File1.Pattern = Mid(Combo1.Text, 1, 5) End IfEnd Sub' Personnellement je n' utiliserais pas Private Sub Combo1_Change3° Gestion de l' erreur du lecteur non prête (disquette ou autre)Private Sub Drive1_Change() ' Change la directory de DirListBox par rapport à la sélection de la ComboDrive On Error GoTo diskerreur: Dir1.Path = Drive1.Drive Exit Subdiskerreur: MsgBox "Lecteur non prêt ! ", vbOKOnly + vbCriticalEnd Sub4° Dans Private Sub File1_Click et File1_DblClick (voir File1_KeyUp pour Enter) 'tester d' abord si elle n' est pas vide If File1.ListCount = 0 Then Exit Sub5° Ne pas oublier de réinitialiser lavariable Fichier et Picture1.Picture avant chaque traitement et après la gestion d' erreur6° Si tu veux des bouts de codes à propos de Couper/Copier/Coller/Supprimer/NpuveauDossierfais moi signe, je t' enverrai ça en MP..Bonne continuation et bonne journée
bonjourtrés bien pour ton controle,mais j'ai un petit sousisQuand je click sur File1 l'image ne s'affiche pasdans la pictureBox !!!aurez tu une idée ?petchy
Rec'est bon j'ai trouvé.encore trés bien pour ton controle,je vais l'utlisé dans un prog.cordialementpetchy
Salut Chaibat05,Si si, c'est bien un UserControl. Sur la Form Test, ce n'est pas un CommonDialog Window, c'est bien mon UserControl, j'ai reproduit l'image ;)Je fais même en sorte qu'il soit visible en mode Design, mais pas en mode exécution. (visibleAtRun)Pour ton 1°) C'est effectivement une possibilité, mais si l'utilisateur souhaite trier les extensions images, ça l'oblige à connaitre le format de celui-ci, et de modifier le Combo1 au besoin.Je préfère mettre TOUT les formats images en un seul groupe.(puisqu'apres viendra le groupe "vidéo", et le groupe "sons")D'où le Combo1.AddItem "*.bmp;*.cur;*.ico;*.jif;*.jpg;*.jpeg;*.wmf"S'il choisi cette possibilité, Toutes les images lui seront accessibles, alors qu'avec ta façon de procéder, il faut choisir par exemple *.jpg, et les bmp ne seront pas visibles.Après tu me dis :' Tous = Tous les formats d' images et non tous les types des fichiers' ce qui est logique puiqu' on est censé avoir un aperçu d' imageOui et non, à l'origine, c'est un CommonDialog, l'aperçu image est la cerise sur la gâteau, mais il faut bien permettre à l'utilisateur de pouvoir sélectionner un type de fichier style .exe, ou .xls, peu importe. Je ne veux pas que mon CommonDialog ne se limite qu'aux images :p2°) Tu dis : "Personnellement je n' utiliserais pas Private Sub Combo1_Change"Oui, tu as raison, omis de le virer, en fait au début je voulais aussi laisser l'opportunité à l'utilisateur de faire son propre filtre, mais dès que tu tapes le point-virgule, une erreur se produit. Faut que je l'enlève, merci ;)3°) bien vu, je l'ai modifié ;)4°) Eh eh, j'ai pas testé vide, je le rajoute. Merci ;)5°) Ok, je vais fouiller un peu tout ça ;)6°) Pour le moment, je cherche pour la vidéo (galère galère), j'ai testé le MMC, l'API mci, un controle animation, rien n'y fait :(Donc je verrai ta proposition (intéressante d'ailleurs) après avoir régler mon problème ;)Merci en tout cas pour tes remarques constructives ;)Salut Petchy ;) Fais toi plaisir avec, n'hésite pas à le modifier selon tes besoins ;)@++mortalino
Ok mortalino,En ce qui concerne la vidéo, si je trouve quelque chose je te ferais signe.En attendant, et comme je te l' ai dit en MP, je posterais ma source.Regardes si tu peux en tirer quelque chose...C' est pas un UserControl mais elle est pleine de fonctionnalités qui puurrontt' inspirer pour enrichir ta source.Bonne prog A++
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte