[VB.net] Utiliser deux modules

Version imprimable

17/07/2006, 19h44
chatainsim

[VB.net] Utiliser deux modules

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

Salut

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

Code:

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

18/07/2006, 12h36
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.
19/07/2006, 00h59
chatainsim
Citation:
Envoyé par Piotrek

Salut

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

Code:

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 ?

Code:

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

19/07/2006, 16h38
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:

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 !

Ha dans ce cas autant utiliser un Select Case

Code:

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/