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
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.
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: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