Discussion :

[Gdal]

Bonjour,

Dans mon application j'ai plusieurs formulaires qui contiennent les mêmes contrôles.

J'ai donc créé un formulaire de base (Cf. pièce jointe), et puis j'ai créé des classes, héritant du formulaire de base, pour chaque nouveau formulaire.
Classe de base

Code Vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Imports System
 
Public Class frmLstBase
 
#Region "Déclaration des variables"
 
    Private clRecherche As New ClasseRecherche
    Private objDataSet As New DataSet
 
#End Region
 
' ...
 
End Class

Classe d'un formulaire

Code Vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Class frmLstVehicule
    Inherits frmLstBase
 
' ...
 
End Class

Mon soucis se situe sur la zone de recherche.
Dans le formulaire de base voici la code du bouton Rechercher:

Code Vb.net :

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
35
36
37
38
Private Sub cmdRechercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRechercher.Click
 
        Dim strFiltre As String = Nothing
 
        ' Recherche avec les TextBox
        ' > Recherche avec une Textbox
        If Me.txtRecherche1.Visible = True And Me.txtRecherche2.Visible = False Then
            strFiltre = clRecherche.Filtre(Me.cboCritere.Text, Me.cboRechercherDans.Text, Me.txtRecherche1.Text)
        End If
 
        ' > Recherche avec les deux Textbox
        If Me.txtRecherche1.Visible = True And Me.txtRecherche2.Visible = True Then
            strFiltre = clRecherche.Filtre(Me.cboCritere.Text, Me.cboRechercherDans.Text, Me.txtRecherche1.Text, Me.txtRecherche2.Text)
        End If
 
        ' Recherche avec les DateTimerPicker
        ' > Convertir les dates Chaînes de caractères en numérique
        Dim dtDtmpRecherche1 As New Date
        dtDtmpRecherche1 = Me.dtmpRecherche1.Text
        Dim dtDtmpRecherche2 As New Date
        dtDtmpRecherche2 = Me.dtmpRecherche2.Text
 
        ' > Recherche avec un DateTimerPicker
        If Me.dtmpRecherche1.Visible = True And Me.dtmpRecherche2.Visible = False Then
            strFiltre = clRecherche.Filtre(Me.cboCritere.Text, Me.cboRechercherDans.Text, dtDtmpRecherche1.ToShortDateString)
        End If
 
        ' > Recherche avec les deux DateTimerPicker
        If Me.dtmpRecherche1.Visible = True And Me.dtmpRecherche2.Visible = True Then
            strFiltre = clRecherche.Filtre(Me.cboCritere.Text, Me.cboRechercherDans.Text, dtDtmpRecherche1.ToShortDateString, dtDtmpRecherche2.ToShortDateString)
        End If
 
        Dim strTrie As String
        strTrie = "[" & Me.cboRechercherDans.Text & "] ASC"
 
        Me.dgvBase.DataSource = clVehicule.TrierChargerTs(objDataSet, strFiltre, strTrie)
 
    End Sub

Ce que j'aimerais faire.
Le code, jusqu'à Me.dgvBase.DataSource = clVehicule.TrierChargerTs(objDataSet, strFiltre, strTrie), est générique et doit rester dans le formulaire de base. Mais comment faire pour que dans chaque classe je puisses obtenir Me.dgvBase.DataSource = clVehicule.TrierChargerTs(objDataSet, strFiltre, strTrie)

Merci du coup de main.

Gwendal