begin process at 2012 02 17 05:54:18
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Control

 > COMMONDIALOG AVEC PREVIEW IMAGE [USERCONTROL]

COMMONDIALOG AVEC PREVIEW IMAGE [USERCONTROL]


 Information sur la source

Note :
9,6 / 10 - par 5 personnes
9,60 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Control Classé sous :commondialog, preview, prévisualisation, fichier, image Niveau :Débutant Date de création :20/04/2007 Date de mise à jour :21/04/2007 15:43:02 Vu / téléchargé :6 294 / 1 042

Auteur : mortalino

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (17)
Ajouter un commentaire et/ou une note


 Description

Cliquez pour voir la capture en taille normale
Un CommonDialog, tout ce qu'il y a de plus classique, avec un Preview sur les images..
(Voir Screen)

OCX fourni.

Source

  • "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
 "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

 Conclusion

Je mettrai à jour afin de faire une prévisualisation du son et d'une vidéo (si j'y arrive  :D )

 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

21 avril 2007 15:43:03 :
* ajout de commentaires * suppression de 3 lignes de code dans la procédure Show :D * Prise en compte du conseil de Manu (econs) sur le GoTo (ajout d'un MsgBox en cas d'erreur, pour informer l'utilisateur

 Sources du même auteur

Source avec Zip Source avec une capture MIDDLEBUTTON COPYPASTE [ADDIN VB6]
Source avec Zip Source avec une capture [CLASS] RESTREINDRE LE CURSEUR DE LA SOURIS À UNE ZONE DE CO...
Source avec Zip Source avec une capture [ADD-IN] COMPLÉMENT VB6 POUR CALCULER LE TEMPS D'EXÉCUTION D...
Source avec Zip Source avec une capture SUIVRE LE COURS D'UNE ACTION, POSSIBILITÉ D'AJOUTER LE MONTA...
Source avec Zip Source avec une capture FAIRE UN APERÇU DES APPLIS / FICHIERS OUVERTS DANS UNE FORM ...

 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

Source avec Zip Source avec une capture Source .NET (Dotnet) GADGET DIAPORAMA par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) RENOMMER FICHIERS AVEC VIEWER par Le Pivert
Source avec Zip Source avec une capture ENREGISTRER ET CHARGER LISTVIEW DANS FICHIER AVEC IMAGE ETC.... par draluorg
Source avec Zip Source avec une capture Source .NET (Dotnet) LISTEUR DE PROJET par winny68
Source avec Zip UTILISER COMMON DIALOG DANS VB/VBA D'UNE MANIÈRE SIMPLE SANS... par Squall____

Commentaires et avis

Commentaire de Exploreur le 20/04/2007 20:12:18

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

Commentaire de OneHacker le 20/04/2007 20:40:28

Miam j'adore les haggen dasz et les pattes à la bolognaise, par ici ! xd

Mortalino, franchement chapeau ! Je te met 9/10

Commentaire de econs le 21/04/2007 07:38:52 administrateur CS

OneHacker> Quitte à lui donner 9/10, cliques donc sur la note pour qu'elle existe vraiment ;op

mortalino> 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.

Commentaire de OneHacker le 21/04/2007 12:03:36

Désolé, ca avait pas bien marché la dernière fois.

Commentaire de mortalino le 21/04/2007 13:01:05

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
@++ ;)

Commentaire de mortalino le 21/04/2007 14:41:23

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,
++ ;)

Commentaire de OneHacker le 21/04/2007 18:52:27

Désolé mais je n'ai rien demandé et je sais pas ce que le combodrive.

Commentaire de mortalino le 21/04/2007 20:37:33

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  ;)
@++

Commentaire de OneHacker le 21/04/2007 21:20:02

En effet je m'apelle Manu(el) :p

Pas grave. Franchement je serait pas quoi dire sur cette source pour vous aider, désolé.

Commentaire de econs le 21/04/2007 21:32:08 administrateur CS

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)

Commentaire de OneHacker le 21/04/2007 21:39:53

Oh Manu ! Tu descend ?! XD

Commentaire de mortalino le 21/04/2007 21:45:44

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)  ;)

++

Commentaire de chaibat05 le 22/04/2007 07:24:57

Bonjour Mortalino,
j' ai vu ta source et je n' ai pas encore compris pourquoi un usercontrol
car je ne retrouve pas sur la feuille...!
Quoiqu' il en soit voici quelques recommandations

1° Initialisation du Pattern
'soit lors du chargement soit dans la propriété List du Combo
Private 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' image
End Sub

2° changement du du Pattern de la FileListBox
Private 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 If
End Sub

' Personnellement je n' utiliserais pas Private Sub Combo1_Change

3° 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 Sub
diskerreur:
    MsgBox "Lecteur non prêt  !     ", vbOKOnly + vbCritical
End Sub

4° 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 Sub

5° Ne pas oublier de réinitialiser lavariable Fichier et Picture1.Picture avant
     chaque traitement et après la gestion d' erreur

6° Si tu veux des bouts de codes à propos de Couper/Copier/Coller/Supprimer/NpuveauDossier
fais moi signe, je t' enverrai ça en MP..

Bonne continuation et bonne journée

Commentaire de petchy le 22/04/2007 08:16:13

bonjour
trés bien pour ton controle,mais j'ai un petit sousis
Quand je click sur File1 l'image ne s'affiche pas
dans la pictureBox !!!
aurez tu une idée ?
petchy

Commentaire de petchy le 22/04/2007 10:13:30

Re
c'est bon j'ai trouvé.
encore trés bien pour ton controle,je vais l'utlisé dans un prog.

cordialement
petchy

Commentaire de mortalino le 22/04/2007 14:33:23

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' image

Oui 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  :p

2°) 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

Commentaire de chaibat05 le 22/04/2007 15:40:35

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 puurront
t' inspirer pour enrichir ta source.

Bonne prog
A++

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Preview de fichier [ par benoit_epfl ] Bonjour,Je recherche une solution pour afficher l'image visible dans l'explorateur de fichier lorsque l'on est en mode d'affichage "Miniatures".Pour s Preview de fichier dans une application [ par bfjmn ] Bonjour à tous et merci d'avance Ma question est simple, je voudrais savoir comment réaliser un preview d'un fichier dans une application vb6. Je m'ex Dessin d'image [ par panicq ] Bonjour à tous,Voila j'ai un petit probleme j'ai sur ma form deux bouton et un picture box. Voila mon code: Dim Save As IntegerPrivate Sub Command1_Cl ComonDialog [ par molbento ] Bonjour je développe en vb6. J'utilise une commonDialog pour sauvegarder un fichier. Une fois que l'utilisateur a choisit son emplacement ou mettre so picture preview [ par Ahmed tunisien ] salut à tout le mondeje sais comment charger une image dans un controlle picture preview mais le problème se pose quand le chemin d'une image n'existe Encodage de fichiers image [ par badmike95 ] Salut à tous,  Bon voila, depuis plusieurs mois je développe un jeu mmorpg et j'ai consacré un énorme temps dans les ressources graphiques.Le problème extraire image resource vers fichier [ par greg38bj ] Bonsoir à tous,J'utilise la formule suivante pour extraire les fichiers contenus dans les ressources de mon projet :Public Sub ExtraireResource(ByVal Attributs Fichier Image [ par Flocreate ] Bonjour a tous.Un oncle attentioné m'a montré une chose étonante, le logiciel power point permet de sauver une diapositive au format JPG.Cela est une Avoir le chemin absolu [ par soulkeum ] Bonjour,j'ai utilisé COMMONDIALOG, pour ouvrir des fichier que je dois envoyer comme paramettre avec une procedure stockée.le probleme c'est que orsqu Détection image binaire [ par fr3br0 ] Bonjour ,Sois un fichier image (gif, jpg) de X pixels sur Y pixels stocké sur le PC.Je désire que mon exécutable charge ce fichier et scanne la mémoir


Nos sponsors


Sondage...

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,749 sec (4)

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