Discussion :

[WBO]

bonjour,

je voudrais passer des paramètres d'une application vers une autre.
je développe sur du windows CE 5.


lordque j'utilise le code

Code :

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

1
2
3
4
5
 
        Dim proc As New System.Diagnostics.Process()
        proc.StartInfo.FileName = "\application\pickingstj.exe"
        proc.Start()
        proc.Close()

ma 2ième application s'ouvre bien, par contre si j'essaye de rajouter un paramètre dans la ligne de commande

Code :

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

1
2
        proc.StartInfo.FileName = "\application\pickingstj.exe" + Personne

mon appel plante.

quelqu'un a t'il une solution ?

[StormimOn]

Il suffit de regarder l'exception que tu as lorsque ça "plante" (Win32Exception je dirais) et de lire la doc pour comprendre pourquoi ensuite

Ceci n'est pas un nom de fichier

Code :

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

proc.StartInfo.FileName = "\application\pickingstj.exe" + Personne

Il faut faire

Code :

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

1
2
3
4
5
Dim proc As New System.Diagnostics.Process()
proc.StartInfo.FileName = "\application\pickingstj.exe"
proc.StartInfo.Arguments = "mes arguments"
proc.Start()
proc.Close()

Ou plus simplement

Code :

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

System.Diagnostics.Process.Start("\application\pickingstj.exe", "mes arguments")

[smyley]

ProcessStartInfo.Arguments

[WBO]

effectivement, ce code marche très bien, merci.

par contre, comment récupérer cette valeur dans le programme appelé ?

mon application est du Smart device, windows CE 5.0, et je n'ai pas de propriété paramètre sur la solution (je sais pas si je suis clair là).


j'ai dans Déboguer => Arguments de la ligne de commande, ca pourrait m'aider ca ?

[tomlev]

C'est en paramètre de la méthode Main
Sinon tu peux y accéder via Environment.GetCommandLineArgs

[WBO]

j'ai essayer de reprndre l'exemple suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Imports System
Class Sample
   Public Shared Sub Main()
      Console.WriteLine()
      '  Invoke this sample with an arbitrary set of command line arguments.
      Dim arguments As [String]() = Environment.GetCommandLineArgs()
      Console.WriteLine("GetCommandLineArgs: {0}", [String].Join(", ", arguments))
   End Sub 'Main
End Class 'Sample

cependant, le compilateur n'aime pas

Environment.GetCommandLineArgs

, il me dit :

'GetCommandLineArgs' n'est pas un membre de system.environment

sinon, ca me parait bien comme info

[WBO]

je croyais l'avoir indiqué mais non, je développe en vb => smart device => windows ce 5

c'est pour ca que je n'ai pas accès à

Code :

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

Environment.GetCommandLineArgs()

je pense

[tomlev]

Effectivement, ça n'a pas l'air dispo sur le Compact Framework... bizarre d'ailleurs.
Il reste donc le paramètre de la méthode Main...

[WBO]

c'est à dire ?
c'est quoi le paramètre de la methode main ?

[tomlev]

c'est à dire ?
c'est quoi le paramètre de la methode main ?

euh... ben tu sais ce que c'est que la méthode Main, non ?

EDIT: ah oui, j'oublie toujours que par défaut en VB.NET on s'en sert pas... donc c'est possible en effet que tu connaisses pas
http://plasserre.developpez.com/v4-1.htm
Cherche dans cette page "Récupération de la ligne de commande"

Et sur la même page, il mentionne aussi My.Application.CommandLineArgs

RE-EDIT : en fait My.Application n'est pas disponible sur le Compact Framework :S

[WBO]

ca sent pas bon sur ce coup là !

ca veut dire que je vais être marron avec le compact framework pour faire ca ?

[tomlev]

Non, il suffit que le point d'entrée de ton programme soit Sub Main, et non une Form (choix dans les propriétés du projet). Dans le Main :
- Tu récupères les paramètres de ligne de commande (argument de la Sub)
- Tu les stockes quelque part (membre statique d'une classe par exemple) pour t'en servir plus tard
- Tu lances la form principale :

Code :

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

Application.Run(New Form1())

[WBO]

j'ai bien trouvé le point d'entré

Sub Main

dans les propriétés du projet, objet de démarrage.

cependant, comment je fais pour créer ce

Sub Main

?

Il me met automatiquement,

'Sub Main' est introuvable dans 'MenuPrincipal'

?

alors j'ai créé un module Main

Code :

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

1
2
3
4
5
6
7
 
Module Main
    Sub main(ByVal parameter As String)
        MsgBox(parameter)
 
    End Sub
End Module

mais j'ai cette fois ci

Aucune méthode 'Maijn' accessible avec une signature appropriée n'a été trouvée dans 'MenuPrincipal'

une petite idée ?

[WBO]

ca avance,

avec le code ci-dessous, ca marche, par contre, je ne sais toujours pas récupérer mes paramètres dans ma 2ième application.

Code :

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

1
2
3
4
5
6
7
Module Main
    Public Sub main()
        MsgBox("dans le main")
        Dim form_new As New Form_Exit()
        form_new.ShowDialog()
    End Sub
End Module

[tomlev]

il suffisait de recopier le code sur la page que je t'ai indiqué ...

Code :

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

1
2
3
4
5
Function Main(ByVal CmdArgs() As String) As Integer
...
 
Return 0
End Function

CmdArgs est un tableau qui contient les paramètres de ligne de commande

Tu peux aussi faire une Sub plutôt qu'une Function :

Code :

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

1
2
3
4
Sub Main(ByVal CmdArgs() As String)
...
 
End Sub

[WBO]

avec le mode debug, mon programme passe.

par contre, j'ai l'erreur

IndexOutOfRangeException

quand je l'execute via le .exe sur le tracker.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Sub Main(ByVal args() As String)
        Try
            'MsgBox("dans le main")
            'Dim var0 As String
            'var0 = args(0)
            'MsgBox("apres arg")
            'MsgBox("var0 = " + var0)
            Dim form_new As New Form_Exit()
            form_new.ShowDialog()
        Catch ex As Exception
            'MsgBox("dans Exception" + ex.Message)
        End Try
    End Sub

en fait, c'est le bait de mettre

ByVal args() As String

qui faiot que j'ai cette erreur.

le problème, est que mes arguments se trouvent là !

[tomlev]

euh... quelle instruction plante ? c'est dans le code qui est en commentaire ?

en fait, c'est le bait de mettre qui faiot que j'ai cette erreur.

Ca m'étonnerait ... c'est plutôt la façon dont tu l'utilises
L'index de tableau auquel tu accèdes doit être >= 0 et < args.Length
Donc si tu as 0 arguments, ça va planter si tu essaies d'accéder à args(0)

le problème, est que mes arguments se trouvent là !

Tu es sûr qu'ils y sont ? Comment tu les as passés au programme exactement ?