Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 21:05:26

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par casy

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

RE : FORMAT PERSONNEL DANS UN TEXTBOX. par PCPT

+ de logiciels à télécharger

1 464 846 membres
338 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 010 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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 !

MULTISELECT AVEC COMMONDIALOG

Information sur la source

Catégorie :Divers Niveau : Débutant Date de création : 08/01/2003 Date de mise à jour : 08/01/2003 23:46:08 Vu : 4 203

Auteur : Sphaxs

Site perso

Ecrire un message privé

Note :

10,00 / 10

Commentaire sur cette source (13)

Ajouter un commentaire et/ou une note

Description

Voici la façon que j'ai utilisée pour effectuer un multiselect avec un commondialog... Peut etre qu'il existe une façon plus simple mais je n'ai pas trouvé.
De plus celle-çi fonctionne très bien.
Si ça peut servir à quelqu'un...

Source

Dim Fichier() As String
Dim n As Integer
Private Sub Form_Load()
'Initialisation du commondialog
CommonDialog1.Flags = &H200 Or &H80000 'Permet le multiselect (200)
'et la boite de dialogue est de type explorateur (80000)
CommonDialog1.MaxFileSize = 32767 'Nombre de caractères maximum du multiselect (Valeur par défaut=256)
End Sub
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileTitle = "" Then
iprecedent = 0
n = -1
For i = 1 To Len(CommonDialog1.FileName)
If Asc(Mid(CommonDialog1.FileName, i, 1)) = 0 Then
n = n + 1
ReDim Preserve Fichier(0 To n) As String
Fichier(n) = Mid(CommonDialog1.FileName, iprecedent + 1, i - iprecedent - 1)
iprecedent = i
End If
Next
n = n + 1
ReDim Preserve Fichier(0 To n) As String
Fichier(n) = Mid(CommonDialog1.FileName, iprecedent + 1, i - iprecedent - 1)
'Placer ici le code a effectuer lors d'une sélection multiple
'[FileTitle du fichier n = Fichier(n)]
'[FileName du fichier n = Fichier(0) & "\" & Fichier(n)]
Else
'Placer ici le code a effectuer lors d'une sélection simple
End If
End Sub

Dim Fichier() As String
Dim n As Integer

Private Sub Form_Load()
'Initialisation du commondialog
    CommonDialog1.Flags = &H200 Or &H80000      'Permet le multiselect (200)
                                                'et la boite de dialogue est de type explorateur (80000)
    CommonDialog1.MaxFileSize = 32767           'Nombre de caractères maximum du multiselect (Valeur par défaut=256)
End Sub

Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    If CommonDialog1.FileTitle = "" Then
        iprecedent = 0
        n = -1
        For i = 1 To Len(CommonDialog1.FileName)
            If Asc(Mid(CommonDialog1.FileName, i, 1)) = 0 Then
                n = n + 1
                ReDim Preserve Fichier(0 To n) As String
                Fichier(n) = Mid(CommonDialog1.FileName, iprecedent + 1, i - iprecedent - 1)
                iprecedent = i
            End If
        Next
        n = n + 1
        ReDim Preserve Fichier(0 To n) As String
        Fichier(n) = Mid(CommonDialog1.FileName, iprecedent + 1, i - iprecedent - 1)
        
        'Placer ici le code a effectuer lors d'une sélection multiple
        '[FileTitle du fichier n = Fichier(n)]
        '[FileName du fichier n = Fichier(0) & "\" & Fichier(n)]
    
    Else
    
        'Placer ici le code a effectuer lors d'une sélection simple
        
    End If
End Sub

Sources du même auteur

MAILEUR LOTUS AUTOMATIQUE

DÉCOUPEUR ET REASSEMBLEUR DE FICHIERS

ANALYSEUR DE SPECTRES (SPHAXS AUDIO ANALYZER)

MULTIALARMES V6 (GRAPHIQUE) - POUR SE RAPPELER SES RENDEZ-VO...

AGENDA ET ALARME

Toutes les sources de Sphaxs

Sources de la même categorie

VOTRE MÉTÉO VILLE AVEC GOOGLE MÉTÉO! par vbnino

VELLEMAN K8055 PROGRAMME POUR COMPRENDRE ET UTILISER LE CODE... par nono7380

PSEUDO EMULATEUR D'EXE par Frelon

POO ET UTILISATION DE QUELQUES BOITES DE DIALOGUE (SAVE ET O... par kilvanox

EXPORTER MFLEXGRID DANS DOCUMENT WORD par garoui1

Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de Badclown le 09/01/2003 15:42:41

Je pense pas que il y est plus simple, mais tu aurais pu detailler toute les options de "Flags" car il y a pas mal de chose interressante :)

Commentaire de VicoLaChips2 le 09/01/2003 16:22:46

Salut !
Il y a + simple -:)
Private Sub Command1_Click()
    Dim sPathRacine As String, sFiles() As String
    CommonDialog1.ShowOpen
    sFiles = Split(CommonDialog1.FileName, vbNullChar)
    If UBound(sFiles) > 0 Then               'plusieurs fichiers

        sPathRacine = sFiles(0) & ""
        MsgBox sFiles(1)
    Else                                    'un seul fichier contenant
                                            'racine et nom...
        MsgBox sFiles(0)
    End If
End Sub
@+, VIC

Commentaire de LordBob le 09/01/2003 19:27:04

c pas trop compris l'interet de ta source... ou plutot ce kel fait...

Commentaire de DebvbJ le 14/01/2003 19:42:35

Ca peut-être utile pour un lecteur mp3 par exemple LordBob
Exemple : winamp permet le multi-select en ajout de fichier donc ça peut servir plutôt que d'ajouter un par un des fichiers (c'est juste un exemple)

Commentaire de Sphaxs le 15/01/2003 19:15:57

A vrai dire, c'est pour ça que je l'ai ecrit ce code (en réalité c'est pas un lecteur MP3 mais un lecteur utilisant windows media player (qui lit les MP3, les WAV, les MPEG, ...) mais je ne l'ai pas encore mis sur VBFrance (il reste quelques améliorations à apporter) mais s'il interresse quelqu'un, je peux le mettre... (notamment si ca interresse quelqu'un de le rendre plus "joli" car le graphisme ce n'est pas mon truc du tout ...)
A+
Sphaxs

Commentaire de noshelter le 16/06/2003 03:58:10

c'est juste le flags du multiselect qui m'intéressait, tu m'a rendu service, merci beaucoup.

Commentaire de noshelter le 16/06/2003 04:12:01

c'est juste le flags du multiselect qui m'intéressait, tu m'a rendu service, merci beaucoup.

Commentaire de nihaoma le 10/08/2005 18:38:53

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.
(en fait le 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

Commentaire de pointbin le 11/10/2007 12:54:34 10/10

ça aide beaucoup le
'Initialisation du commondialog
    CommonDialog1.Flags = &H200 Or &H80000 'Permet le multiselect (200)
    'et la boite de dialogue est de type explorateur (80000)
    CommonDialog1.MaxFileSize = 32767
merci.

Commentaire de Renfield le 11/10/2007 14:03:02 administrateur CS

&h200 Or &h80000 ...
ou comment rendre du code obscur !

cdlOFNExplorer or cdlOFNAllowMultiselect est plus lisible, non ?

Commentaire de pointbin le 11/10/2007 22:30:39

maintenent c'est plus claire, alors ce sont des variable predefini qui d'apres leurs nom donne une idée du fonctionnement.
pour le showSave est ce qu'il y a un moyen de sélectionner seulement le dossier ou je veux sauvegarder sans avoir a donner un nom de fichier.

Commentaire de Renfield le 12/10/2007 08:06:51 administrateur CS

utilises une autre boite de dialogue standard, pour selectionner un repertoire...

http://www.vbfrance.com/codes/SELECTION-DOSSIER-AVEC-BOUTON-NOUVEAU-DOSSIER_17270.aspx

Commentaire de Renfield le 12/10/2007 08:07:47 administrateur CS

plein d'autres flags existent pour le ShowSave / ShowOpen

cherches cdlofn dans l'explorateur d'objets de VB (touche F2)