Question dans menu

Signaler
Messages postés
327
Date d'inscription
jeudi 21 août 2008
Statut
Membre
Dernière intervention
10 mai 2012
-
Messages postés
327
Date d'inscription
jeudi 21 août 2008
Statut
Membre
Dernière intervention
10 mai 2012
-
bonjour
j'ecrit un prg pour menu "open, save et view images" qui se trouve en bas:
quand je clique sur open,save,view images  ouvre openFD ,
dans le txt box où il y a  nom de fichier
je peux selectionner le repertoire ou fichier que je veux,
mais dans le fichier type il n'y a rien et encore
quand je clique sur ouvrir passe rien,
seulement annuler marche bien,
où est ce que je fais erreur?    veuillez guidez moi s'il vous plaît

Private

Sub mnuOpen_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles mnuOpen.Click

Dim strFileName
As
String

Dim DidWork
AsInteger OpenFD.ShowDialog()OpenFD.InitialDirectory

"C:"OpenFD.Title =

"Open a txt File"OpenFD.Filter =

"Text Files|*.txt|Word Files|*.doc"

If DidWork = DialogResult.Cancel
ThenMsgBox(

"Cancel Button Clicked")

ElsestrFileName = OpenFD.FileName

MsgBox(strFileName)

End
If

End
Sub---------------------------------------------------------------------------------------
Private

Sub mnuSave_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles mnuSave.Click

Dim strFileName1
As
String

Dim DidSave
As
Integer = SaveFD.ShowDialog()SaveFD.ShowDialog()
SaveFD.InitialDirectory "C:"SaveFD.Title
"Save File"SaveFD.Filter "Text Files|*.txt"SaveFD.OverwritePrompt

True

If DidSave = DialogResult.Cancel
ThenMsgBox(

"Cancel button cliqued")

ElsestrFileName1 = SaveFD.FileName

MsgBox(strFileName1)

End
If-------------------------------------------------------------------------------------
Private

Sub mnuViewImages_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles mnuViewImages.Click

Dim strFileName
As
String

Dim DidWork
AsInteger OpenFD.ShowDialog()OpenFD.InitialDirectory

"C:"OpenFD.Title =

"Open a txt File"OpenFD.Filter =

"jpegs|*.jpg"

End
Sub---------------------------------------------------------------------------------------------------------

5 réponses

Messages postés
661
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2011
8
Salut,

Déjà pour commencer il y a quelques petits soucis avec ton code.

1° Tu affiches ton OpenFileDialog et c'est seulement ensuite que tu définis ses propriétés c'est normal çà ? C'est plutôt le contraire.

     Par exemple : Aucun filtre n'apparait dans OpenFD car tu définis OpenFD.Filter après avoir affiché ton OpenFileDialog

     Donc en résumé :



     
OpenFD.InitialDirectory = "C:"

      OpenFD.Title ="Open a txt File"




      OpenFD.Filter = "Text Files|*.txt|Word Files|*.doc"


      Avant :



      Dim
DidWork

As
Integer
= OpenFD.ShowDialog()




<hr size="2" width="100%" />
2° OpenFileDialog ne retourne que le chemin d'accès du fichier qu'à choisi l'utilisateur, il parvient à toi de mettre le code pour pouvoir justement lancer ce fichier

Si tu as des soucis ou besoin d'explications n'hésites pas 

++

Fauve

<hr size="2" width="100%" />
Pensez : Réponse Acceptée 
Messages postés
327
Date d'inscription
jeudi 21 août 2008
Statut
Membre
Dernière intervention
10 mai 2012
2
me voilà, merci d'avance


sans changer les codes precedent:


premier fois j'execute, à ce moment
dans le fichier type il n'y a rien et je clique sur annuler et je recommence
l'operation, cette fois il y a fichier type et je referme et recommence l'operation,
maintenant il n'y a pas type de fichier et vice versa
est ce  que c'est normal?

tu veux que j'ecris le codes comme ça:
Dim strFileName AsString



OpenFD.InitialDirectory =





"C:"





OpenFD.Title =





"Open a txt File"





OpenFD.Filter =





"Text Files|*.txt|Word Files|*.doc" *
Dim DidWork
As
Integer = OpenFD.ShowDialog()








If DidWork = DialogResult.Cancel Then




MsgBox(





"Cancel Button Clicked")








Else





strFileName = OpenFD.FileName




MsgBox(strFileName)











End
If





-------------------------------------------------------------------------------
"OpenFileDialog ne retourne que le chemin d'accès du fichier qu'à choisi l'utilisateur, il parvient à toi de mettre le code pour pouvoir justement lancer ce fichier"

comme je suis debutant je ne sais pas quel code à ecrire pour lance ce fichier
peut tu m'aider s'il te plaît?
Messages postés
327
Date d'inscription
jeudi 21 août 2008
Statut
Membre
Dernière intervention
10 mai 2012
2
après mon connaissance il faut declarer tous les variables
avant !!
Messages postés
661
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2011
8
Salut,

Oui le code est bon comme çà...

Ensuite pour lancer un fichier avec l'application par défaut, voici le code :

Dim monProcess As New Process()

monProcess.StartInfo.FileName = "D:\test.doc"
monProcess.Start()

++

Fauve
<hr size="2" width="100%" />Pensez : Réponse Acceptée 
Messages postés
327
Date d'inscription
jeudi 21 août 2008
Statut
Membre
Dernière intervention
10 mai 2012
2
merci beaucoup
j'ai compris