Discussion :

[hacker59]

Bonjour,

voici en image mon projet :


mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim open As New OpenFileDialog
        open.Filter = "fichier|*.csv"
        If open.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = open.FileName
            Dim lire As String() = File.ReadAllLines(open.FileName)
            For Each line As String In lire
                ListBox1.Items.Add(line)
            Next
        Else
            MessageBox.Show("veuillez selectionner un fichier", "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
 
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
 
    End Sub
End Class

dans textbox2.text, j'ai la clé décryptage. comment écrire pour décrypter et encrypter le fichier texte avec textbox2?
Merci