none
exceutable sur vb2010 RRS feed

  • Question

  • bonjour j’ai enfin terminé mon projet je  voudrais qu'il s’exécute correctement par exécutable que Julia trouvé.

    Sur mon programme j'ai trois fichiers textes .

    <quand exécute le programme depuis exécutable  les enregistrements n’apparaissent pas . c'est la première fois que je fais cela merci de m aider

    voici la copie de ma solution

    mercredi 6 mai 2015 09:23

Réponses

  • Bonjour,

    vous avez trois fichier texte avec votre exécutable de votre projet.

    pour lire les fichiers texte, voici la solution a ton probléme :

    Imports System.IO
    
    Public Class Form1
        Dim list As String = Application.StartupPath & "/planning.txt" 'c'est le chemin de ton application(ton projet exe)
        Dim list1 As String = Application.StartupPath & "/Menu.text"
        Dim lire As Boolean
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            If Not Me.lire Then
                If File.Exists(list) Then
                    Dim sr As New StreamReader(list)
                    RichTextBox1.Text = sr.ReadLine
                    sr.Close()
                ElseIf File.Exists(list1) Then
                    Dim sr1 As New StreamReader(list1)
                    RichTextBox2.Text = sr1.ReadLine
                    sr1.Close()
                Else
                    MsgBox("Les Fichiers texte n'existe de pas", MsgBoxStyle.Critical, Nothing)
                    End If
            End If
        End Sub
    End Class

    tu peux faire la même chose mais pour écrire sur ton fichier texte.

    cordialement,


    vendredi 8 mai 2015 14:57

Toutes les réponses

  • Bonjour SIMONGEORGES,
    Comment avez-vous ajouté les fichiers txt? Et comment vous les accédez dans votre code?

    Cordialement,
    Nina


    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    jeudi 7 mai 2015 08:07
    Modérateur
  • bonjour pour vous répondre voici la copie  de mon exécutable
    jeudi 7 mai 2015 08:26
  • Bonjour,
    Essayez d'ajouter les fichiers par double click sur My Project -> Resources -> Add Resource -> Add existing file et choisissez le fichier désiré comme ça:

    Vous pouvez accéder les fichiers de cette façon:

    TextBox1.Text = My.Resources.menus

    Cordialement,
    Nina


    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    jeudi 7 mai 2015 11:13
    Modérateur
  • Bonjour,

    un fois ajouter des fichier texte dans Ressource :

    ajoute ce codes :

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\planning.txt", My.Resources.planning, False) 'ajouter le nom du fichier texte
        End Sub
    
        Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
            If File.Exists("planning.txt") Then
                File.Delete("planning.txt")
            End If
        End Sub

    cordialement,

    jeudi 7 mai 2015 11:39
  • bonjour

    merci de votre réponse mais je comprends pas bien car j’ai le textes dans mon projet et ensuit je le sais copier dans le dossier de exécutable pouvez vous m’expliquer le code que vous me proposez si gentiment

    merci beaucoup de m’expliquer cela

    vendredi 8 mai 2015 06:58
  • Bonjour,

    vous avez trois fichier texte avec votre exécutable de votre projet.

    pour lire les fichiers texte, voici la solution a ton probléme :

    Imports System.IO
    
    Public Class Form1
        Dim list As String = Application.StartupPath & "/planning.txt" 'c'est le chemin de ton application(ton projet exe)
        Dim list1 As String = Application.StartupPath & "/Menu.text"
        Dim lire As Boolean
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            If Not Me.lire Then
                If File.Exists(list) Then
                    Dim sr As New StreamReader(list)
                    RichTextBox1.Text = sr.ReadLine
                    sr.Close()
                ElseIf File.Exists(list1) Then
                    Dim sr1 As New StreamReader(list1)
                    RichTextBox2.Text = sr1.ReadLine
                    sr1.Close()
                Else
                    MsgBox("Les Fichiers texte n'existe de pas", MsgBoxStyle.Critical, Nothing)
                    End If
            End If
        End Sub
    End Class

    tu peux faire la même chose mais pour écrire sur ton fichier texte.

    cordialement,


    vendredi 8 mai 2015 14:57
  • merci beaucoup je vais le tester encore merci de cette aide
    samedi 9 mai 2015 08:30