Menu déroulant et codesRésolu

Question

Bonjour

Je d&#233;bute dans Visual Basic .net 2003, c'est ma premi&#232;re heure d'utilisation et je voudrais d&#233;couvrir le fonctionnement en tentant quelques programmes simples.

Voila, j'ai cr&#233;er des menus et je voudrais conna&#238;tre le code &#224; affecter &#224; la fonction Ouvrir afin que la boite de dialogue ouvrir un fichier apparaisse.

Par avance merci

Fran&#231;ois

jrbleboss · Accepted Answer

Bin tu dois utiliser un common dialog.



Cherche sur le site ya plein de code et d'explications !!

JRB

cboulas · Answer

Salut en DotNet le CommonDialog n'&#233;xiste plus (d&#233;soler), tout &#224; &#233;t&#233; dispatch&#233;, pour ouvrir un fichier il faut donc placer sur ta winform le contr&#244;le "OpenFileDialog" cela ouvre une fen&#234;tre te permettant seulement de s&#233;lectionner un fichier avec son chemin, ensuite &#224; toi d'ouvrir le fichier et pour cela tout d&#233;pend de ce que contient ton fichier, exemple un fichier Texte ne s'ouvre pas de la m&#234;me mani&#232;re qu'une image.


Chris...
Web : Firstruner

cs_Willi · Answer

Salut,
Voici un exemple banal d'ouverture de boite de dialogue avec affichage d'un fichier texte dans un textbox



Dim cDialog 
As 
New OpenFileDialog


cDialog.CheckFileExists = 
True
cDialog.CheckPathExists = 
True
cDialog.Filter = 
"Fichier texte (*.txt)|*.txt|Tout fichier (*.*)|*.*"



If cDialog.ShowDialog = Windows.Forms.DialogResult.OK 
Then
   MessageBox.Show(
"le fichier ouvert est: " & cDialog.FileName, 
"message", MessageBoxButtons.OK, MessageBoxIcon.Information)   
   TextBox1.Text = IO.File.ReadAllText(cDialog.FileName)

Else
   MessageBox.Show(
"Op&#233;ration annul&#233;e")

End 
If

cDialog.Dispose()


 Si la r&#233;ponse te conviens merci de l'accepter

cboulas · Answer

Re, pour completer l'exemple de Willi
tu peux directement travail sur le r&#233;sultat que l'openfiledialog te retourne :
exemple : 
if openfiledialog1.ShowDialog=DialogResult.Cancel 
then


Chris...
Web : Firstruner

francoislaba · Answer

Bonjour,

Merci pour vos r&#233;ponses, j'ai essay&#233; le code donn&#233; par Willi (merci) mais la ligne suivante :
TextBox1.Text = IO.File.ReadAllText(cDialog.FileName)
ne fonctionne pas

IO.File.ReadAllText

est soulign&#233;...
Je l'ai remplac&#233; par :
TextBox1.Text = cDialog.FileName

et mon fchier texte s'affiche bien dans la TextBox1

mais comment ouvrir r&#233;ellement ce fichier dans word ou dans le bloc note?

Par avance merci

Fran&#231;ois

cboulas · Answer

Si IO.File..... ne fonctionne pas c'est parce que tu n'a pas incorporer cette classe dans ton projet
2 possibilit&#233; :

Ajouter tout en haut et audessus de ta partie code commen&#231;ant par "Class....." :    Imports System
Ou simplement mettre "System.IO......" &#224; la place de 'IO......'


Chris...
Web : Firstruner

francoislaba · Answer

Bonjour

Merci Chris pour ta r&#233;ponse mais &#231;a ne marche toujours pas...
System.IO.File.ReadAllText est toujours soulign&#233; et il me dit que ReadAllText n'est pas membre de System.IO.File...

Merci de votre patience

Fran&#231;ois

cboulas · Answer

Salut, je viens de v&#233;rifier et effectivement le readalltext n'&#233;xiste pas :


Dim totu As System.IO.StreamReader = New System.IO.StreamReader(cDialog.FileName)   'Ouverture du fichier en mode lecture texte


TextBox1.Text = totu.ReadToEnd()   'Lecture du contenu du fichier et stockage dans textbox1


totu.Close()   'Fermeture du fichier



 


Chris...
Web : Firstruner

cboulas · Answer

En fait ReadAllText existe mais sous le FRamework 2, donc VB2005


Chris...
Web : Firstruner

francoislaba · Answer

Merci Chris,

&#231;a marche!!!

Merci!!!

Fran&#231;ois

francoislaba · Answer

Bonjour,

Encore merci pour ton code cboulas, j'y ai ajout&#233; une petite modif pour qu'il prenne en compte l'accentuation...

Dim totu 
As System.IO.StreamReader = 
New System.IO.StreamReader(cDialog.FileName, System.Text.Encoding.Default) 
'Ouverture du fichier en mode lecture texte et prise en charge de l'accentuation


TextBox1.Text = totu.ReadToEnd() 
'Lecture du contenu du fichier et stockage dans textbox1


totu.Close() 
'Fermeture du fichier

Fran&#231;ois

cboulas · Answer

Bien jou&#233;, il faut aussi se m&#233;fier car j'ai fait un soft qui avais des accent des appostrophe, etc... et celon l'encodage du texte certain codage prennent les accent d'autres les appostrophe, etc...   et donc je suis arriv&#233; &#224; &#231;a : 
System.Text.Encoding.UTF7


Chris...
Web : Firstruner

francoislaba · Answer

Merci pour l'info, j'ai fait le remplacement par s&#233;curit&#233;...

Fran&#231;ois

Menu déroulant et codes

13 réponses

Discussions similaires