0/5 (6 avis)
Vue 6 999 fois - Téléchargée 514 fois
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
10 août 2005 à 18:41
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
3 mai 2005 à 17:31
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
25 juin 2004 à 15:13
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
...
12 juin 2004 à 08:22
Il y a une solution, je l'avais deja trouvée ici, mais je la retrouve plus et ca m'énerve...
27 janv. 2003 à 01:23
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.