Discussion :

[misscricri]

Bonjour

j'aimerais dans mon application ajouter ou modifier des informations. En fait les données sont rentrees dans des textbox et lorsque je clique sur mon boutton enregistrer elles sont affichées ou modifées dans ma liste qui est s'affiche a l'aide d'un datagridview

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
27
28
29
30
31
32
33
34
Public Class FormMedicament
 
    Private description As Medicament
    Private mes_medicaments As ListeMed
 
    Public Sub DisplayMe(ByRef i_liste_medicaments As BindingList(Of Medicament))
 
        Me.ShowDialog()
    End Sub
 
 
    Private Sub TxtBox_NomMed_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtBox_NomMed.TextChanged
 
        'TxtBox_NomMed.Text = description.pNomMedicament.ToString
 
End Sub
 
    Private Sub TxtBox_Prix_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtBox_Prix.TextChanged
 
        'TxtBox_NomMed.Text = description.pNomMedicament.ToString
 
End Sub
 
    Private Sub TxtBox_Qte_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtBox_Qte.TextChanged
 
        'TxtBox_NomMed.Text = description.pNomMedicament.ToString
 
  End Sub
 
    Private Sub Enreg_ModifM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enreg_ModifM.Click
 
 
    End Sub
End Class

[misscricri]

J'ai vraiment un peu avancé dans mon code mais je n'arrive pas a voir l'ajout de mon item dans ma liste au niveau de mon datagrid.

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
Public Class FormMedicament
 
    Dim LeMedicament As New Medicament
    Dim mMed As New ListeMed
    Dim LstM As New FormListeMedicaments
 
 
    Public Sub DisplayMe(ByRef i_liste_medicaments As BindingList(Of Medicament))
 
        Me.ShowDialog()
    End Sub
 
 
    Private Sub AddMedicament()
        LeMedicament.pNomMedicament = TxtBox_NomMed.Text.Trim()
        LeMedicament.pPrix = TxtBox_Prix.Text.Trim
        LeMedicament.pStock = TxtBox_Qte.Text.Trim()
 
    End Sub
 
    Private Sub Enreg_ModifM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enreg_ModifM.Click
        AddMedicament()
 
 
    End Sub
End Class