Program der kan fange switches

Prøv med følgende kode:

Private Sub Form_Load()
Dim C As String
  C = Command()
  If InStr(C, "/F") Then
    MsgBox Mid(C, InStr(C, "/F") + 2)
  Else
    MsgBox "Ingen /F parameter"
  End If
 
End Sub

her kommer en MsgBox så snart programmet startes. Skal den først komme efter at formen er vist skal C blot gemmes i en global variabel ved Form_Load og derefter vises når man f. eks. clicker på en kommandoknap.

Min kommentar kan du glemme for C kan også findes når Formen er Loaded.

Eksempel, hvor der på formen er en kommandoknap Command1, viser MsgBox når du clicker på knappen:

Private Sub Command1_Click()
Dim C As String
  C = Command()
  If InStr(C, "/F") Then
    MsgBox Mid(C, InStr(C, "/F") + 2)
  Else
    MsgBox "Ingen /F parameter"
  End If
End Sub

virker jo perfekt :) tak