---

Hey ....

Hvordan kan man gøre så man kan starte ens program med parametre ??

Fx C:\navn.exe -1 så skal den starte den form der hedder frmhej
El.
C:\navn.exe -2 så skal den starte den form der hedder frmdavs

Håber der er en der kan hjælpe !!

M.v.h. Stefan Larsen

---

"Spacemann'" <spacemann@mail.dk> skrev i en meddelelse
news:9gdc6j$ca1$1@news.inet.tele.dk...
> Hey ....
>
> Hvordan kan man gøre så man kan starte ens program med parametre ??
>
> Fx C:\navn.exe -1 så skal den starte den form der hedder frmhej
> El.
> C:\navn.exe -2 så skal den starte den form der hedder frmdavs

Command retunere en string med alle parametre

f.eks. ved 'c:\navn.exe -1' er Command = "-1" og 'ved c:\navn.exe -1 -2 Jeg
er god' er Command = "-1 -2 Jeg er god"

Sony

---

Takker,

Men hvor i mit program skal det så stå ??
Kan du komme med et eks. ??

M.v.h.
Stefan


"Sony" <playstation@nintendo.dc> skrev i en meddelelse
news:9gdj27$9lt$1@news.inet.tele.dk...
> "Spacemann'" <spacemann@mail.dk> skrev i en meddelelse
> news:9gdc6j$ca1$1@news.inet.tele.dk...
> > Hey ....
> >
> > Hvordan kan man gøre så man kan starte ens program med parametre ??
> >
> > Fx C:\navn.exe -1 så skal den starte den form der hedder frmhej
> > El.
> > C:\navn.exe -2 så skal den starte den form der hedder frmdavs
>
> Command retunere en string med alle parametre
>
> f.eks. ved 'c:\navn.exe -1' er Command = "-1" og 'ved c:\navn.exe -1 -2
Jeg
> er god' er Command = "-1 -2 Jeg er god"
>
> Sony
>
>

---

Spacemann' skrev:
> Men hvor i mit program skal det så stå ??
> Kan du komme med et eks. ??

Her er et eksempel:

Private Sub Form_Load()
Dim par As Integer
cmd = Trim(Command)
Select Case cmd
Case "1"
par = 1
MsgBox "Parameteren var 1"
Case "2"
par = 2
MsgBox "Parameteren var 2"
Case ""
par = 0
MsgBox "Der blev ikke angivet nogen parameter!"
Case Else
par = 0
MsgBox "Der var ikke angivet en gyldig parameter!"
End Select
If par = 0 Then
Unload Me ' Afslut programmet, hvis der ikke
Exit Sub ' var angivet en gyldig parameter.
End If

' *** Evt. mere kode her ***

End Sub


- Bjarke Walling Petersen