Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Passare un dato al mio eseguibile
Forum - Visual Basic 6 - Passare un dato al mio eseguibile

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
fosforo (Normal User)
Expert


Messaggi: 391
Iscritto: 06/04/2009

Segnala al moderatore
Postato alle 12:56
Lunedì, 06/04/2009
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

PM Quote
Avatar
Alceus (Member)
Expert


Messaggi: 288
Iscritto: 22/07/2008

Segnala al moderatore
Postato alle 13:02
Lunedì, 06/04/2009
Testo quotato

Postato originariamente da fosforo:
Private Sub Command1_()


:-?

Forse intendevi Command1_Click() ?

Inoltre questo passaggio è inutile
Codice sorgente - presumibilmente Plain Text

  1. ...
  2. MsgBox param
  3. ...



se poi metti
Codice sorgente - presumibilmente Delphi

  1. If param = "" Then
  2.         MsgBox "Azzzzzz"
  3.     Else
  4.         MsgBox param
  5.     End If


:k:

Ultima modifica effettuata da Alceus il 06/04/2009 alle 13:04
PM Quote
Avatar
fosforo (Normal User)
Expert


Messaggi: 391
Iscritto: 06/04/2009

Segnala al moderatore
Postato alle 13:12
Lunedì, 06/04/2009
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?

PM Quote
Avatar
Alceus (Member)
Expert


Messaggi: 288
Iscritto: 22/07/2008

Segnala al moderatore
Postato alle 13:36
Lunedì, 06/04/2009
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:
Codice sorgente - presumibilmente VB.NET

  1. Sub Main()
  2. Dim param As String
  3. param = Command$
  4.     If param = "" Then
  5.         MsgBox "Azzzzzz"
  6.     Else
  7.         MsgBox param
  8.     End If
  9. 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 il 06/04/2009 alle 13:37
PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 13:55
Lunedì, 06/04/2009
Molto semplicemente, per capire, se crei un nuovo programma con VB6, scrivi

Private Sub Form_Load()
    MsgBox Command$
End Sub

per capire cosa succede.

PM Quote
Avatar
fosforo (Normal User)
Expert


Messaggi: 391
Iscritto: 06/04/2009

Segnala al moderatore
Postato alle 14:01
Lunedì, 06/04/2009
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

PM Quote
Avatar
Alceus (Member)
Expert


Messaggi: 288
Iscritto: 22/07/2008

Segnala al moderatore
Postato alle 14:17
Lunedì, 06/04/2009
Sei vuoi far passare "ciao" al programma devi scrivere:
Codice sorgente - presumibilmente Plain Text

  1. Progetto1.exe ciao

nel prompt, con lo spazio e senza il simbolo &

PM Quote
Avatar
fosforo (Normal User)
Expert


Messaggi: 391
Iscritto: 06/04/2009

Segnala al moderatore
Postato alle 14:25
Lunedì, 06/04/2009
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

PM Quote
Avatar
Alceus (Member)
Expert


Messaggi: 288
Iscritto: 22/07/2008

Segnala al moderatore
Postato alle 14:30
Lunedì, 06/04/2009
Allora, questo non serve:
Testo quotato

Postato originariamente da fosforo:
Dim Command$


Per sicurezza puoi sostituire
Codice sorgente - presumibilmente Plain Text

  1. MsgBox Command$

con
Codice sorgente - presumibilmente Plain Text

  1. MsgBox VBA.Command$


Mentre questo
Codice sorgente - presumibilmente Plain Text

  1. progetto1.exe ciao

funziona solo se hai compilato l'eseguibile con il nome "progetto1.exe"

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo