activation conditionnelle de bouton

Question

bonjour,



g un tit programme avec:

- une 1ere arborescence (drive,dir et filelistbox) dans laquelle je choisi le fichier a modifier.

-une 2eme arborescence (drive et dirlistbox) dans laquelle je choisi le
repertoire sous lequel le fichier modifier est enregistr&#233;.

- un bouton "executer" qui vous vous en doutez permet la modif et l'enregistrement du fichier.



donc voici mon probleme, comment activer le bouton "executer"
uniquement si le choix du fichier et du repertoire de sortie sont
choisis??? perso je seche

a l'avance merci

Julien237 · Answer

Ajoute la r&#233;f&#233;rence Microsoft Scripting Runtime dans ton projet, puis utilise ce code :

dim fso as new filesystemobject
dim FileListOk as boolean
dim DirListOk as boolean

Puis, dans le sub NomDeTonFileList_Click :
   FileListOk = fso.FileExists(NomDeTonFileList.FileName)
   if FileListOk = True and FolderListOk=True then 
         TonBouton.enabled=true
   else
         TonBouton.enabled=false
   end if

Et Dans le sub NomDeTonDirList_change:
   DirListOk = fso.FolderExists(NomDeTonDirList.FileName)
   if FileListOk = True and FolderListOk=True then 
         TonBouton.enabled=true
   else
         TonBouton.enabled=false
   end if

Voil&#224;...

waspy59 · Answer

merci pour cette reponse rapide, mais il y avait une tite erreur de noms:

dim fso as new filesystemobject

dim FileListOk as boolean

dim DirListOk as boolean



Dans le sub NomDeTonFileList_Click :

FileListOk = fso.FileExists(NomDeTonFileList.FileName)

if FileListOk = True and DirListOk=True then 

         TonBouton.enabled=true

   else

         TonBouton.enabled=false

   end if



 Dans le sub NomDeTonDirList_change:

   DirListOk = fso.FolderExists(NomDeTonDirList.Path)

   if FileListOk = True and 
DirListOk
=True then 

         TonBouton.enabled=true

   else

         TonBouton.enabled=false

   end if



rq: dans les test if, g du mettre FALSE pour les FileListOK car le fso
me renvoy&#233; un FALSE qd le fichier &#233;t&#233; s&#233;lectionn&#233; ....pourquoi???



en tout cas merci

waspy59 · Answer

re:



bon g resolu le probleme du FALSE pour FileListOk, c'est une bonne chose de faite.

g juste une autre question:



une fois que g choisi le fichier, le dossier et execut&#233; je souhaiterais
que ma forme se relance comme au debut, cad avec le bouton "executez"
bloqu&#233; ect..., si qq1 peut m'aider

cs_Warning · Answer

Faut: soit que tu r&#233;initialize tout (dans ton code tu met boutn.enabled = false), etc
Sinon tu fait(methode barbare): Unload Me
Me.show


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

waspy59 · Answer

vive la methode barbare

cs_Warning · Answer

lol c'est celle que tu vas utiliser ? ^^


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

Activation conditionnelle de bouton

6 réponses

Discussions similaires