Oppure

Loading
06/04/09 10:56
fosforo
Ciao a tutti.
Sto cercando come passare un dato al mio eseguibile tramite CMD line.
Leggendo qui e la ho scoperto la funzione Command$.

Ecco come lancio il mio programma dando anche il mio parametro:
mioprogramma.exe & parametro

All'interno del mio script ho messo:

Private Sub Command1_()
Dim param As String
param = Command$
MsgBox param
On Error Resume Next
If param = "" Then
MsgBox "Azzzzzz"
Else
MsgBox param
End If
End Sub

Ma non va.
Avete suggerimenti?
Grazie
aaa
06/04/09 11:02
Alceus
Postato originariamente da fosforo:
Private Sub Command1_()

:-?

Forse intendevi Command1_Click() ?

Inoltre questo passaggio è inutile
... 
MsgBox param 
...


se poi metti
If param = "" Then 
        MsgBox "Azzzzzz" 
    Else 
        MsgBox param 
    End If 

:k:
Ultima modifica effettuata da Alceus 06/04/09 11:04
aaa
06/04/09 11:12
fosforo
Ciao
Come hai capito sono prorpio agli inizi.
Questo è il mio primo 3d.
In realta vorrei solo stampare con un MsgBox quello che passo con la linea di comando.

Come posso fare?
aaa
06/04/09 11:36
Alceus
Non ti preoccupare se sei agli inizi.
Dunque, per fare ciò che vuoi fare tu segui queste istruzioni:
Crea un nuovo progetto Standard EXE Visual Basic 6
Elimina il form che viene aggiunto al progetto di default
Inserisci, invece, un modulo.
Vi scrivi dentro:
Sub Main()
Dim param As String
param = Command$
    If param = "" Then
        MsgBox "Azzzzzz"
    Else
        MsgBox param
    End If
End Sub

Vai al menù Progetto (o Project) ---> Proprietà progetto (o Project1 Properties...) ---> Selezioni in Startup Object "Sub Main" ---> Fai OK
Compili l'eseguibile dal menù File ---> Make Project1.exe... e ti scegli le preferenze dell'eseguibile (nome, versione, autore) nel dialogo che ti apparirà.
Così avrai creato il programma a cui passare i dati da visualizzare nel messaggio.
:k:
Ultima modifica effettuata da Alceus 06/04/09 11:37
aaa
06/04/09 11:55
theprogrammer
Molto semplicemente, per capire, se crei un nuovo programma con VB6, scrivi

Private Sub Form_Load()
MsgBox Command$
End Sub

per capire cosa succede.
aaa
06/04/09 12:01
fosforo
Cio e grazie
Non ci crederete ma è il mio primo eseguibile.

In entrambi i casi non funziona, è come se non prendesse i dati dalla linea di comando che per corettezza vi posto:

Progetto1.exe&ciao
aaa
06/04/09 12:17
Alceus
Sei vuoi far passare "ciao" al programma devi scrivere:
Progetto1.exe ciao
nel prompt, con lo spazio e senza il simbolo &
aaa
06/04/09 12:25
fosforo
Purtroppo non funziona
Vi posto il mio script:

Private Sub Form_Load()
Dim Command$
MsgBox Command$
End Sub

e lo lancio con:
progetto1.exe ciao
aaa