Discussion :

[chatainsim]

Bonjour à tous & à toutes.
J'aimerais savoir si il était possible d'utiliser deux module different, mais au lancement du programme en selectionner un par defaut en fonction d'un paramétre (par exemple 1 ou 0). j'ai par exemple module1.vb & module0.vb.
Merci

[Piotrek]

Salut

Dans ta proc de demarrage tu mets un if qui redirige la ou il faut, tout simplement

Code :

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

1
2
3
4
5
6
7
8
 
    Public Sub Main(ByVal args() As String)
        if args(0) = "1" then
            'premier choix
        else
            'second choix
        end if
    End Sub

[chatainsim]

En fait j'aimerais pouvoir choisir le module pour ne pas avoir a faire des if pour chaque fonctions.
comme ça je fait appele au meme bom de fonction, il n'y a que le code des fonction qui change.

[chatainsim]

Salut

Dans ta proc de demarrage tu mets un if qui redirige la ou il faut, tout simplement

Code :

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

1
2
3
4
5
6
7
8
 
    Public Sub Main(ByVal args() As String)
        if args(0) = "1" then
            'premier choix
        else
            'second choix
        end if
    End Sub

En effet, je n'avais pas compris ce que tu voulais dire. Sauf que dans 'premier choix, que mettre pour dire qu'il faut utiliser le module1.vb plutot que le module0.vb ?

[Piotrek]

Code :

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

1
2
3
4
5
6
7
8
 
    Public Sub Main(ByVal args() As String)
        if args(0) = "1" then
            'module a mettre si dans la ligne de commande on a 1
        else
            'module par defaut
        end if
    End Sub

[chatainsim]

ce Sub Main permet donc de choissir le module.
par contre si j'ai quatres modules, deux que j'utilise et deux en fonction du choix, c'est possible ?
il faudrait que je les déclares aussi ?

Code :

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

1
2
3
4
5
6
7
8
   Public Sub Main(ByVal args() As String)
        if args(0) = "1" then
            module1.vb
        else
            module0.vb
        end if
        module3.vb
    End Sub

désolé de faire le boulet, mais j'ai un peu de mal la !
merci pour les réponses !

[Piotrek]

Ha dans ce cas autant utiliser un Select Case

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Public Sub Main(ByVal args() As String)
        Select Case args(0)
           Case "0"
            'appel d'une fonction du module 0
           Case "1"
            'appel d'une fonction du module 1
           Case "2"
            'appel d'une fonction du module 2   
        end select
    End Sub

Pour plus de details sur les differentes structures de controle: les tutoriels pour bien debuter dans http://dotnet.developpez.com/cours/