Discussion :

[Anaxagore]

Bonjour,

J'essaye depuis un petit moment d'optimiser ce code afin de le rendre un peu plus 'industriel' on va dire

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
 
        Dim NbRow As Integer = Nothing
        Dim rqSql As String = Nothing
        Dim Table As String = Nothing
        Dim Champ As String = Nothing
        Dim ValueToFind As String = Nothing
 
        Select Case sender.name
            Case "CB_Project"
                rqSql = "SELECT * FROM Project ORDER BY Project_Name"
                Table = "Project"
                Champ = "Project_Name"
                ValueToFind = CB_Project.Text
            Case "CB_Branch"
                rqSql = "SELECT * FROM Location ORDER BY Location_Name"
                Table = "Location"
                Champ = "Location_Name"
                ValueToFind = CB_Branch.Text
        End Select
 
        NbRow = FindRecord(rqSql, Table, Champ, ValueToFind)
 
        If NbRow = 0 Then
            Select Case sender.name
                Case "CB_Project"
                    Dim f As New Form_Add_Project(sender)
                    f.Show()
                Case "CB_Branch"
                    Dim f As New Form_Add_Branch(sender)
                    f.Show()
            End Select
        End If

Je but en fin de compte sur cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        If NbRow = 0 Then
            Select Case sender.name
                Case "CB_Project"
                    Dim f As New Form_Add_Project(sender)
                    f.Show()
                Case "CB_Branch"
                    Dim f As New Form_Add_Branch(sender)
                    f.Show()
            End Select
        End If

Je suis certain que

Code :

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

Dim f As New Form_Add_Project(sender)

peut être composé de variables.

Si quelqu'un peut m'aider J'aimerais bien faire quelque chose de plus propre

Merci d'avance

Anax

[Pol63]

t'as question n'est pas claire

sinon toutes les bases se trouvent ici : http://plasserre.developpez.com/vsommair.htm

[Anaxagore]

Bon je vais essayé de préciser alors :

J'aimerais bien passer dans le code ci dessous

Code :

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

1
2
3
 
Dim f As New Form_Add_Branch(sender)
            f.Show()

l'expression : "Form_Add_Branch(sender)" en tant que variable car je vais suis le sender adresser différent form.
Plutot que d'utiliser 2 fois un select case comme je l'ai fait, y a t il un moyen de faire moins brouillon?

et pour le tuto : c'est une partie de ma bible
la 2nde moitié étant le forum

Merci d'avance

Anax

[Pol63]

system.Activator.Createinstance permet de créer un instance à partir du nom ou du type à créer

ou sinon après pour rester dans le genre du select case, mais en plus industriel comme tu dis, je verrais bien un dictionnaire avec en clé ce qui te sert à faire le select case et en valeur, le type de form (et le remplissage du dico quelque part)

[Anaxagore]

bonsoir,

Merci de ta réponse.
j'ai essayé a partir de cet exemple trouvé sur le forum :
http://www.developpez.net/forums/d60...ble-dynamique/
Mais je ne suis pas arrivé a composer la bonne syntax

Anax

[Pol63]

normal, ca ne ressemble pas trop à vu de nez


essaye de faire des recherche sur createinstance