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 27 28
| Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dialog As New OpenFileDialog()
OpenFileDialog1.Filter = "Fichier Winrar (*.rar)|*.rar"
If DialogResult.OK = OpenFileDialog1.ShowDialog Then
End If
TextBox1.Text = OpenFileDialog1.FileName
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
ListView1.Columns.Add("NAME", 190, HorizontalAlignment.Left)
ListView1.Columns.Add("SIZE", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("PACKED", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("CRC32", 100, HorizontalAlignment.Left)
End Sub
End Class |
Partager