Bonsoir,
Je galérer alors j'ai coder un petit programme qui mémorise vos compte et les enregistres utiles pour les bot quand vous en avez plusieurs ! Donnez moi des idées de colonne a ajouter
Un modo peut voir les sources si il le veux :
Screen :
Loading Image
Lien : http://www.mediafire.com/?jhi8v3ihtlx5e20
Scan http://www.metascan-online.com/results/cgvpss52bsrzrxdukl68hth5tb2t96y7
A venir createur de compte , abonnement par ogrine , case metier ou combat(selon les bot); Proposer moi des idées
________________________________________________________________________________________________________
Partie code source :
Form1 :
-ContextMenuStrip
-Listview
Dans le ContextMenuStrip ajouté 3 menu : Ajouter un compte , effacer un compte et effacer tout
donc voici le code :
Private Sub AddToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub DeleteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteToolStripMenuItem.Click
If ListView1.SelectedItems.Count > 0 Then
ListView1.SelectedItems(0).Remove()
End If
End Sub
Private Sub ClearAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearAllToolStripMenuItem.Click
If MessageBox.Show("Voulez vous supprimer tous les comptes ?!", "Confirmez", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
ListView1.Items.Clear()
End If
End Sub
Le reste du code de la form :
Sub SaveAll(ByVal lv As Windows.Forms.ListView)
Dim col1 As String = Nothing
Dim col2 As String = Nothing
Dim col3 As String = Nothing
Dim col4 As String = Nothing
Dim col5 As String = Nothing
Dim col6 As String = Nothing
For Each item As ListViewItem In lv.Items
col1 += "^" + item.Text
col2 += "&" + item.SubItems(1).Text
col3 += "$" + item.SubItems(2).Text
col4 += "#" + item.SubItems(3).Text
col5 += "+" + item.SubItems(4).Text
col6 += "-" + item.SubItems(5).Text
Next
My.Settings.Column1 = col1
My.Settings.Column2 = col2
My.Settings.Column3 = col3
My.Settings.Column4 = col4
My.Settings.Column5 = col5
My.Settings.Column6 = col6
My.Settings.Save()
End Sub
Sub LoadAll(ByVal lv As Windows.Forms.ListView)
My.Settings.Reload()
Dim colArray1() As String = My.Settings.Column1.Split("^")
Dim colArray2() As String = My.Settings.Column2.Split("&")
Dim colArray3() As String = My.Settings.Column3.Split("$")
Dim colArray4() As String = My.Settings.Column4.Split("#")
Dim colArray5() As String = My.Settings.Column5.Split("+")
Dim colArray6() As String = My.Settings.Column6.Split("-")
For i As Integer = 0 To colArray1.Length - 1
If (colArray1(i) <> "") Then
Dim item As New ListViewItem(colArray1(i))
item.SubItems.Add(colArray2(i))
item.SubItems.Add(colArray3(i))
item.SubItems.Add(colArray4(i))
item.SubItems.Add(colArray5(i))
item.SubItems.Add(colArray6(i))
lv.Items.Add(item)
End If
Next
End Sub
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
SaveAll(ListView1)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadAll(ListView1)
End Sub
End Class
Form2:
2 textbox (textbox1 NDC , Textbox2 , MDP)
4 combobox (Combobox1 certifier , Combobox2 serveur , Combobox3 classe , Combobox4 abo )
1 bouton (Pour validé)
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If String.IsNullOrEmpty(TextBox1.Text) Or String.IsNullOrEmpty(ComboBox2.Text) Or String.IsNullOrEmpty(ComboBox3.Text) Then
MessageBox.Show("Remplissez les champs !", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Dim lv As ListViewItem = Form1.ListView1.Items.Add(TextBox1.Text)
lv.SubItems.Add(ComboBox2.Text)
lv.SubItems.Add(ComboBox3.Text)
lv.SubItems.Add(ComboBox4.Text)
lv.SubItems.Add(TextBox2.Text)
lv.SubItems.Add(ComboBox1.Text)
Me.Close()
End If
End Sub
End Class