COMBOBOX FAÇON ERRORPROVIDER

' --= =--

    ' Déclaration de la classe
    Dim clGestionErreur As New ClasseGestionErreur

Private Sub ValideSaisies()

    ' Enregistrer la combobox
    clGestionErreur.cboListeErreur = Me.tscboListeErreur

    ' Ajouter contrôle à vérifier
    clGestionErreur.VerifierCtrl(Me.Textbox1, "TextBox1 - Une saisie est requise.", Me.TabPage1)
    Dim i() As Integer = {1, 2}
    clGestionErreur.VerifierDgv(Me.DataGridView1, i, "DataGridView1 - Une saisie est requise.", Me.TabPage3)

End Sub

' --= =--

    ' A la sortie du contrôle
    If Me.tscboListeErreur.Items.Count > 0 Then

        ' Vérification de la saisie
        ValideSaisies()

    End If
    
' --= =--

Pour l'exemple et le reste du code, Cf. Zip

Télécharger le zip

28 août 2008 19:01:35 :

Modification du nombre de ligne dans la boucle parcourant le DataGridView suivant s'il autorise l'ajout de nouvelles lignes ou pas. (Ligne 315 à 327)

28 août 2008 19:05:55 :

Modification du nombre de ligne à soustraire au nombre totale de ligne contenue dans le DataGridView, suivant s'il autorise l'ajout de nouvelles lignes ou pas. (Ligne 315 à 327)