pointbin
Messages postés71Date d'inscriptionlundi 5 janvier 2004StatutMembreDernière intervention13 mai 2010 11 oct. 2007 à 22:30
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.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 11 oct. 2007 à 14:03
&h200 Or &h80000 ...
ou comment rendre du code obscur !
cdlOFNExplorer or cdlOFNAllowMultiselect est plus lisible, non ?
pointbin
Messages postés71Date d'inscriptionlundi 5 janvier 2004StatutMembreDernière intervention13 mai 2010 11 oct. 2007 à 12:54
ç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.
cs_nihaoma
Messages postés140Date d'inscriptionjeudi 2 mai 2002StatutMembreDernière intervention 2 février 2010 10 août 2005 à 18:38
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
cs_noshelter
Messages postés11Date d'inscriptionmercredi 26 février 2003StatutMembreDernière intervention25 juin 2003 16 juin 2003 à 04:12
c'est juste le flags du multiselect qui m'intéressait, tu m'a rendu service, merci beaucoup.
cs_noshelter
Messages postés11Date d'inscriptionmercredi 26 février 2003StatutMembreDernière intervention25 juin 2003 16 juin 2003 à 03:58
c'est juste le flags du multiselect qui m'intéressait, tu m'a rendu service, merci beaucoup.
Sphaxs
Messages postés56Date d'inscriptionmardi 18 juin 2002StatutMembreDernière intervention27 mars 20091 15 janv. 2003 à 19:15
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
DebvbJ
Messages postés54Date d'inscriptionmercredi 19 juin 2002StatutMembreDernière intervention14 février 2003 14 janv. 2003 à 19:42
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)
cs_LordBob
Messages postés2865Date d'inscriptionsamedi 2 novembre 2002StatutMembreDernière intervention11 mai 20099 9 janv. 2003 à 19:27
c pas trop compris l'interet de ta source... ou plutot ce kel fait...
VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 20102 9 janv. 2003 à 16:22
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
Badclown
Messages postés162Date d'inscriptionjeudi 27 décembre 2001StatutMembreDernière intervention22 mars 2004 9 janv. 2003 à 15:42
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 :)
12 oct. 2007 à 08:07
cherches cdlofn dans l'explorateur d'objets de VB (touche F2)
12 oct. 2007 à 08:06
http://www.vbfrance.com/codes/SELECTION-DOSSIER-AVEC-BOUTON-NOUVEAU-DOSSIER_17270.aspx
11 oct. 2007 à 22:30
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.
11 oct. 2007 à 14:03
ou comment rendre du code obscur !
cdlOFNExplorer or cdlOFNAllowMultiselect est plus lisible, non ?
11 oct. 2007 à 12:54
'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.
10 août 2005 à 18:38
(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
16 juin 2003 à 04:12
16 juin 2003 à 03:58
15 janv. 2003 à 19:15
A+
Sphaxs
14 janv. 2003 à 19:42
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)
9 janv. 2003 à 19:27
9 janv. 2003 à 16:22
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
9 janv. 2003 à 15:42