OVH Cloud OVH Cloud

CommonDialog cocher (lecture seule)???

2 réponses
Avatar
surfeur75
Bonjour,

Je ne me rappelle plus comment on active la case [X] lecture seule dans
la boîte du commandDialog, si vous avez ce code, merci, voici ce que j'ai
mis pour l'instant:

Sub Command1_Click() ' go
CommonDialog1.DialogTitle = entete
CommonDialog1.Filter = "BMP, JPG | *.bmp; *.jpg"
CommonDialog1.ShowOpen
variable_receptrice = CommonDialog1.FileName
End Sub
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!

2 réponses

Avatar
François Picalausa
Bonjour/soir,

il faut ajouter le flag correspondant.
Dans le code, celà donnerait:
CommonDialog1.DialogTitle = entete
CommonDialog1.Filter = "BMP, JPG | *.bmp; *.jpg"
'Ajoute le flag cdlOFNReadOnly
'qui force la case ReadOnly à être
'cochée
CommonDialog1.Flags = CommonDialog1.Flags Or cdlOFNReadOnly
CommonDialog1.ShowOpen
variable_receptrice = CommonDialog1.FileName

Les autres flags sont expliqués dans la msdn fournie avec VB ou online:
http://msdn.microsoft.com/library/en-us/cmdlg98/html/vbproflagsfile.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"surfeur75" a écrit dans le message de
news:OxQnIB$
Bonjour,

Je ne me rappelle plus comment on active la case [X] lecture
seule dans la boîte du commandDialog, si vous avez ce code, merci,
voici ce que j'ai mis pour l'instant:

Sub Command1_Click() ' go
CommonDialog1.DialogTitle = entete
CommonDialog1.Filter = "BMP, JPG | *.bmp; *.jpg"
CommonDialog1.ShowOpen
variable_receptrice = CommonDialog1.FileName
End Sub


Avatar
ng
Salut,

Regarde du coté de la proriété Flags (CommonDialog1.Flags) dans l'aide, les
différentes possibilités te seront alors données.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


"surfeur75" a écrit dans le message de news:
OxQnIB$
Bonjour,

Je ne me rappelle plus comment on active la case [X] lecture seule


dans
la boîte du commandDialog, si vous avez ce code, merci, voici ce que j'ai
mis pour l'instant:

Sub Command1_Click() ' go
CommonDialog1.DialogTitle = entete
CommonDialog1.Filter = "BMP, JPG | *.bmp; *.jpg"
CommonDialog1.ShowOpen
variable_receptrice = CommonDialog1.FileName
End Sub
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!