cs_domxaline
Messages postés327Date d'inscriptionjeudi 21 août 2008StatutMembreDernière intervention10 mai 2012
-
13 déc. 2008 à 13:57
cs_domxaline
Messages postés327Date d'inscriptionjeudi 21 août 2008StatutMembreDernière intervention10 mai 2012
-
18 déc. 2008 à 17:32
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---------------------------------------------------------------------------------------------------------
<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
cs_domxaline
Messages postés327Date d'inscriptionjeudi 21 août 2008StatutMembreDernière intervention10 mai 20122 13 déc. 2008 à 23:38
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?