AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 04 18:07:20
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

COMMONDIALOG AVEC PREVIEW IMAGE [USERCONTROL]


Information sur la source

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é: 5 186 / 938
Auteur : mortalino Site perso
Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
9,6 / 10 - par 5 personnes
9,60 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

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

Pour les "Membres Club", vous pouvez 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

Commentaires et avis

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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.

signaler à un administrateur
Commentaire de OneHacker le 21/04/2007 12:03:36

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

signaler à un administrateur
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
@++ ;)

signaler à un administrateur
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,
++ ;)

signaler à un administrateur
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.

signaler à un administrateur
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  ;)
@++

signaler à un administrateur
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é.

signaler à un administrateur
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)

signaler à un administrateur
Commentaire de OneHacker le 21/04/2007 21:39:53

Oh Manu ! Tu descend ?! XD

signaler à un administrateur
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)  ;)

++

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Console Sony Playstation 3 80GB
Entre 398€ et 425€


Visiter le guide achat

Photothèque Nouveau !

Photo alphabet langue des sourdsPhoto friends
Photo cascades de plitvicePhoto main henne

Visiter la 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
Temps d'éxécution de la page : 0,484 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.