1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Public Class DecryptValue
Private Sub ChargementFormulaire(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim lst As New DecryptValue
With lst
.Add(New DecryptValue("Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@)", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!#$%&'()*+,-./:;<=>?@[\]^_'{|}~"))
.Add(New DecryptValue("Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9)", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"))
.Add(New DecryptValue("Minuscule (a-z), Majuscule (A-Z)", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"))
.Add(New DecryptValue("Majuscule (A-Z), Chiffre (0-9)", "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"))
.Add(New DecryptValue("Minuscule (a-z), Chiffre (0-9)", "abcdefghijklmnopqrstuvwxyz0123456789"))
.Add(New DecryptValue("Majuscule (A-Z))", "ABCDEFGHIJKLMNOPQRSTUVWXYZ"))
.Add(New DecryptValue("Minuscule (a-z)", "abcdefghijklmnopqrstuvwxyz"))
.Add(New DecryptValue("Chiffre (0-9)", "123456789"))
End With
With Me.combobox1
.DataSource = lst
.DisplayMember = "Désignation"
.ValueMember = "Value"
End With
End Sub
End Class |
Partager