Discussion :

[MagicFeu]

Bonjour je voudrai un script pour ouvrir une fenêtre qui permet d'ouvrir
des fichiers

J'ai chercher mais j'y comprend que dalle si vous pouvait m'aider

C'est une fenêtre qui permet d'ouvrir des fichier dans mon cas des fichiers de jeu qui sont en création

comme cela



bon je re explique .Ce que je veux c'est un script qui permet d'ouvrir une fenêtre (par exemple celle que je t'es montré ) a partir de form1(ma fenêtre de base quand je lance le programme).

Je travaille sur visual basic 2008

[maxim_um]

Aussi, pour que tu puisses aller de l'avant, sache que tu peux d'ors est déjà ajouter un bouton à ta form1 depuis la barre d'outils. En double cliquant sur le bouton nouvellement générer, tu te retrouves dans la fenêtre d'édition de code et à cet endroit tu insères les codes qui te seront communiquées par les intervenants du forum visual basic. Sache aussi que ce qui tu entreprends, n'est pas chose facile pour quelqu'un qui débute, car l'explorateur de fichier ne renvoie que le nom du fichier que l'utilisateur à sélectionner, le traitement est à la charge du programmeur.

[MagicFeu]

ca je sais met c'est pour le faire marcher

[Danyel]

Utilises openfiledialog.

[MagicFeu]

c'est fait je l'ai mis dans form1 mais comment je m'en sers pour ouvrir ma fenêtre c'est sa ma question.il faut coder (mon avis )mais je ne connais pas le code.

[Danyel]

Tu regardes l'aide de msdn que je t'ai donne.

[MagicFeu]

j'y comprend que dalle je prendre quoi comme openfile.

[Danyel]

j'y comprend que dalle je prendre quoi comme openfile.

Si tu n'y comprends rien : http://plasserre.developpez.com/vsommair.htm

[maxim_um]

Voilà un petit bout de code MagicFeu. Cependant, sache que je n'utilise pas visual basic. C'est donc sans garantit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
' Visual Basic
Private Sub Button1_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles Button1.Click
 
     Dim openFileDialog1 As New OpenFileDialog()
     If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
       Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
       MessageBox.Show(sr.ReadToEnd)
       sr.Close()
     End If
 
End Sub

[MagicFeu]

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click

Dim openFileDialog1 As New OpenFileDialog()
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
MessageBox.Show(sr.ReadToEnd)
sr.Close()
End If

End Sub

ce qu'il a en rouge sont des expressions attendue

[maxim_um]

En fait, tu génères un bouton sur ta form1 et tu double cliques dessus.
Dans la fenêtre de code, là où c'est placé le curseur tu insères seulement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim openFileDialog1 As New OpenFileDialog()
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
MessageBox.Show(sr.ReadToEnd)
sr.Close()
End If

[MagicFeu]

ça marche merci
mais...je voulais le mettre dans un menu

[Poulain]

Si tu ne connais pas ce bases il est préférable que tu fasses une peu de lecture, histoire de bien te mettre dans le bain, car ça sent le début et il faut commencer par apprendre.

Maintenant, si tu veux apprendre en pratiquant, eh bien apprend aussi à te suffire.

[MagicFeu]

sniff en plus je n'ai pas beaucoup de temps en ce moment