la-foudre870
Messages postés18Date d'inscriptionvendredi 15 mai 2015StatutMembreDernière intervention25 décembre 2015
-
Modifié par la-foudre870 le 29/11/2015 à 19:44
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018
-
1 déc. 2015 à 20:53
Bonjour,
J'ai un problème avec un code
Je voudrais remplacer les chemins de la ligne de commande ("......") par une variable définie dans une autre form et je n'y arrive pas
Testeur est cette variable et normalement contient le chemin complet
Pourriez vous m'aider, merci d'avance
Imports System.IO
Public Class Form6
Dim Testeur As String
Private Sub SaveFileDialog1_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
End Sub
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.FileExists("Testeur") Then
TextBox1.Text = Testeur
Else
TextBox1.Text = "FICHIER DE CONFIGURATION NON CREE"
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim myStream As System.IO.Stream
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.FileName = "CONFIGURATION.TXT"
saveFileDialog1.FilterIndex = 2
If saveFileDialog1.ShowDialog() = DialogResult.OK Then myStream = saveFileDialog1.OpenFile()
selectedFile = saveFileDialog1.FileName
If (selectedFile IsNot Nothing) Then
TextBox1.Text = selectedFile
Else
MsgBox("Le Fichier n'a pas été crée", MsgBoxStyle.Exclamation, "Fichier Non Créé")
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Form3.Show()
Me.Close()
End Sub
End Class
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 29 nov. 2015 à 20:03
Bonjour,
Le bout de code que tu montres ne saurait être du code VB6 (la section de ce forum dans laquelle tu as ouvert cette discussion) !
D'où vient ce bout de code ?
Sous quoi développes-tu ?
la-foudre870
Messages postés18Date d'inscriptionvendredi 15 mai 2015StatutMembreDernière intervention25 décembre 2015 30 nov. 2015 à 06:05
j'ai mis effectivement les guillemet ne doivent pas être la c'etait juste pour que ça ressorte sur le visuel d'autre part j'ai bien mis la variable en public mais ce ne fonctionne pas non plus
<code basic>
Imports System.IO
Public Class Form6
Public Dim Testeur As String
Private Sub SaveFileDialog1_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
End Sub
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.FileExists(Testeur) Then
TextBox1.Text = Testeur
Else
TextBox1.Text = "FICHIER DE CONFIGURATION NON CREE"
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim myStream As System.IO.Stream
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.FileName = "CONFIGURATION.TXT"
saveFileDialog1.FilterIndex = 2
If saveFileDialog1.ShowDialog() = DialogResult.OK Then myStream = saveFileDialog1.OpenFile()
selectedFile = saveFileDialog1.FileName
If (selectedFile IsNot Nothing) Then
TextBox1.Text = selectedFile
Else
MsgBox("Le Fichier n'a pas été crée", MsgBoxStyle.Exclamation, "Fichier Non Créé")
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Form3.Show()
Me.Close()
vb95
Messages postés3467Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention24 mars 2024168 30 nov. 2015 à 11:37
bonjour
Public Dim Testeur As String
1) Inutile de mettre le Dim
2) Mets
Public Testeur As String
dans un module et non dans la Form ( voir ajouter un module dans l'onglet Projets de Visual Studio )
Tout ce qui est dans une Form n'est accessible que dans la Form alors que dans un module si la variable est déclarée Public elle est accessible par toutes les Forms du projet
vb95
Messages postés3467Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention24 mars 2024168 30 nov. 2015 à 11:49
Autre chose
Au lieu de MsgBox utilise MessageBox.Show ( MsgBox est avec la compatiblité VB6 : à éviter en VB net )
Tu peux ôter cette compatibilté VB 6 en supprimant Microsoft VisualBasic Compatibility dans le menu réfèrences des propriétés du projet
De même dans le menu Compiler mets Option Strict et Option Explicit sur On : cela évitera toutes les erreurs de déclaration en VB net ainsi que les syntaxes erronnées
vb95
Messages postés3467Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention24 mars 2024168 30 nov. 2015 à 11:59
Encore moi
Button1 sert bien à enregistrer le fichier ?
Dans ce cas la procédure est fausse : où le fichier a-t-il été ouvert ou créé ?
un lien bien utile : http://plasserre.developpez.com/cours/vb-net/
la-foudre870
Messages postés18Date d'inscriptionvendredi 15 mai 2015StatutMembreDernière intervention25 décembre 2015 30 nov. 2015 à 18:55
Bonsoir VB95
Je ne comprend pas comment tu fais appel au module,
peu tu développer ?
Le fichier est bien existant et sauvegardé à partir du bouton 1 et s’inscrit bien dans la textbox mais si je retourne sur une autre form et que je reviens ensuite sur celle la je n'est plus la textbox
Merci
Module Module1
Public testeur As String
End Module
la-foudre870
Messages postés18Date d'inscriptionvendredi 15 mai 2015StatutMembreDernière intervention25 décembre 2015 1 déc. 2015 à 20:19
Effectivement j'avais essayé un truc mais cela ne fonctionnais pas donc je l'ai supprimé depuis, mais je n'ai toujours pas de solution à mon problème comment utiliser la variable TESTEUR dans
If My.Computer.FileSystem.FileExists
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 1 déc. 2015 à 20:27
Et bien sûr, la-foudre870, il ne te viendrait pas à l'idée que c'est cette procédure évènementielle, que tu dois utiliser ?
C'est étrange, car c'est la 1ère chose qui vient à mon esprit, alors que je ne connais rien de VB.Net !
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 Modifié par ucfoutu le 1/12/2015 à 20:53
Pour essayer d'être au moins un peu sérieux :
- Si tu veux retrouver facilement si un fichier a été créé, c'est dans le dossier de ton appli, ou dans un dossier relatif à ton appli, qu'il te faut le créer
- tes instructions (au chargement de ton form) de vérification d'existence de ce fichier doivent "regarder" précisément dans ce dossier-là, tout simplement.
Le dossier de ton appli est Application.StartupPath (ouvre MSDN à cette rubrique)
Le nom de ton fichier doit être connu lors du chargement de ton Form (une simple constante fera l'affaire). Idem en ce qui concerne celui du sous-dossier relatif éventuellement utilisé.
Tu as là les bases de ce que tu dois faire.
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.