begin process at 2012 02 13 08:07:45
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Control

 > UTILISATION DU COMPOSANT COMMONDIALOG

UTILISATION DU COMPOSANT COMMONDIALOG


 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 Niveau :Débutant Date de création :15/08/2002 Date de mise à jour :16/08/2002 13:24:20 Vu / téléchargé :5 282 / 392
Auteur : gg00xiv

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
voici un exemple bref des possibilités de ce composant

Source

  • Private Sub Command1_Click()
  • CommonDialog1.DialogTitle = "ouvrir un fichier sympatique ..."
  • CommonDialog1.Flags = cdlOFNFileMustExist + cdlOFNHelpButton
  • CommonDialog1.Filter = "Tous (*.*)|*.*|Fichiers texte (*.txt)|*.txt"
  • CommonDialog1.ShowOpen
  • If CommonDialog1.FileName <> "" Then 'annuler
  • Label1.Caption = CommonDialog1.FileName
  • End If
  • End Sub
  • Private Sub Command2_Click()
  • CommonDialog1.DialogTitle = "enregistrer un fichier sympatique ..."
  • CommonDialog1.Flags = cdlOFNPathMustExist + cdlOFNOverwritePrompt + cdlOFNHelpButton
  • CommonDialog1.ShowSave
  • If CommonDialog1.FileName <> "" Then 'annuler
  • Label2.Caption = CommonDialog1.FileName
  • End If
  • End Sub
  • Private Sub Command3_Click()
  • CommonDialog1.ShowColor
  • Picture1.BackColor = CommonDialog1.Color
  • End Sub
  • Private Sub Command4_Click()
  • CommonDialog1.Flags = cdlCFBoth
  • CommonDialog1.ShowFont
  • Label3.Font.Bold = CommonDialog1.FontBold
  • Label3.Font.Italic = CommonDialog1.FontItalic
  • Label3.Font.Name = CommonDialog1.FontName
  • Label3.Font.Size = CommonDialog1.FontSize
  • Label3.Font.Strikethrough = CommonDialog1.FontStrikethru
  • Label3.Font.Underline = CommonDialog1.FontUnderline
  • End Sub 
Private Sub Command1_Click()
    CommonDialog1.DialogTitle = "ouvrir un fichier sympatique ..."
    CommonDialog1.Flags = cdlOFNFileMustExist + cdlOFNHelpButton
    CommonDialog1.Filter = "Tous (*.*)|*.*|Fichiers texte (*.txt)|*.txt"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then 'annuler
        Label1.Caption = CommonDialog1.FileName
    End If
End Sub

Private Sub Command2_Click()
    CommonDialog1.DialogTitle = "enregistrer un fichier sympatique ..."
    CommonDialog1.Flags = cdlOFNPathMustExist + cdlOFNOverwritePrompt + cdlOFNHelpButton
    CommonDialog1.ShowSave
    If CommonDialog1.FileName <> "" Then 'annuler
        Label2.Caption = CommonDialog1.FileName
    End If
End Sub

Private Sub Command3_Click()
    CommonDialog1.ShowColor
    Picture1.BackColor = CommonDialog1.Color
End Sub

Private Sub Command4_Click()
    CommonDialog1.Flags = cdlCFBoth
    CommonDialog1.ShowFont
    Label3.Font.Bold = CommonDialog1.FontBold
    Label3.Font.Italic = CommonDialog1.FontItalic
    Label3.Font.Name = CommonDialog1.FontName
    Label3.Font.Size = CommonDialog1.FontSize
    Label3.Font.Strikethrough = CommonDialog1.FontStrikethru
    Label3.Font.Underline = CommonDialog1.FontUnderline
End Sub


 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


 Sources du même auteur

Source avec Zip Source avec une capture DÉMINEUR
GRAVITRON
Source avec Zip GRIDLAYOUT : UN GESTIONNAIRE DE MISE EN FORME
GESTION D'UNE PILE
Source avec Zip Source avec une capture BROWSER WEB ET FTP
Toutes les sources de gg00xiv

 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
Toutes les sources de la catégorie Control

Commentaires et avis

Commentaire de buzz31 le 25/09/2002 10:43:37

De cette façon, si l'utilisateur choisi un fichier puis clique sur annuler .... Et bien t'es baisé !! car ton ShowOpen sortira avec FileName&lt;&gt;" " .....  allez, cherche encore (j'en suis au meme point que toi...)

Commentaire de gg00xiv le 27/01/2003 01:23:46

faut, kan tu fe annuler filename renvoie "", fe un test avant de decrire ce genre de remarques stp ...

Commentaire de blinnit le 12/06/2004 08:22:13

Hummm a toi de faire un test, si tu a choisi un fichier avant d'annuler, ca renvois le nom du fichier, donc c pas bon...
Il y a une solution, je l'avais deja trouvée ici, mais je la retrouve plus et ca m'énerve...

Commentaire de lyoni le 25/06/2004 15:13:32

blinnit : quand tu cliques sur 'annuler' CommonDialog1.FileName n'est pas modifié : il contient la valeur qu'il avait avant le CommonDialog1.ShowOpen (le dernier fichier que t'as ouvert en cliquant sur 'ouvrir' en non 'annuler') et non le fichier sur lequel t'as cliqué avant de faire 'annuler'.

Voici donc une solution :

'pour vous convaincre de ce que j'ai dit ci-dessus...
MsgBox ("avant .showOpen : " & CommonDialog1.FileName)

CommonDialog1.FileName = Empty
    
CommonDialog1.ShowOpen
    
If CommonDialog1.FileName = Empty Then 'annuler
    MsgBox ("annuler")
    Exit Sub
End If

...  

Commentaire de TRAX44 le 03/05/2005 17:31:27

Oui pour .showOpen ou .ShowSave çà marche mais .ShowColor çà renvoir 0 donc noir. Pour l'instant le seul truc que j'ai trouvé, c'est de provoqué une erreur et de la detecté :


Private Sub Command1_Click()
On Error GoTo annule
com1.CancelError = True
com1.ShowColor
MsgBox com1.Color
GoTo fin
annule:
MsgBox "Annulé!"
fin:

End Sub


Si quelqu'un trouve quelque chose de mieux çà m'interesse !
Cordialement
TRAX

Commentaire de nihaoma le 10/08/2005 18:41:32

une ch'tite question....quelqu'un sait s'il existe une boite de dialogue commune (ou bien un flag sur le .ShowSave) qui permet d'enregistrer plusieurs fichiers dans un meme répertoire ?...en fait, que l'utilisateur ne voit pas le champ 'Nom du fichier' et 'Type de fichier' mais qu'il puisse choisir le lecteur et le dossier comme dans le .ShowSave.
Je pourais simplement créer une Form avec un Drive et un FileList et ca marcherait très bien, mais bon si y'a un truc déja fait, pourquoi réinventer la roue ? lol

merci pour vos réponses

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Photo aérienne de Saintes Maries de la Mer
Photo Monument Valley Utah known as The Mittens 

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

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

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)