VB: shell() mag meine progs net

Dieses Thema VB: shell() mag meine progs net im Forum "Windows XP Forum" wurde erstellt von toxin, 11. Aug. 2003.

Thema: VB: shell() mag meine progs net Option Explicit Dim Prog As Variant Const Sol = C:\WINNT\system32\Sol.exe Const Cmd = C:\WINNT\system32\CMD.exe...

  1. Option Explicit

    Dim Prog As Variant

    Const Sol = C:\WINNT\system32\Sol.exe
    Const Cmd = C:\WINNT\system32\CMD.exe
    Const Calc = C:\WINNT\system32\calc.exe
    Const Ps = E:\Programme\Paint Shop Pro 7\Psp.exe
    Const Wa = E:\Programme\Winamp\Winamp.exe
    -------------------------------------------------
    Private Sub Text1_Change()
    Prog = Text1.Text
    End Sub
    -----------------------------------------------------
    Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

    Shell (Prog), vbNormalFocus
    Text1.Text =

    End If

    End Sub
    -----------------------------------------
    wenn ich die cmd aufmachen will geht alles. will ich winamp aufmachen motzt er dass er die datei net finden kann. Wieso ???
     
  2. Hallo

    Ändere folgende Funktion wie folgt.

    Private Sub Text1_Change()
    Select Case Text1.Text
    Case Is = Sol
    Prog = Sol
    Case Is = cmd
    Prog = Cmd
    Case Is = Ps
    Prog = Ps
    Case Is = Wa
    Prog = Wa
    End Select
    End Sub

    In Deinem Code wird (Prog = Text1.Text) wird lediglich das was man ins Textfeld eingegeben hat als Parameter beim Shellaufruf übergeben.
    Bei->cmd' und->sol' funktioniert das, da wenn kein Pfad angegeben automatisch .exe oder .com Dateien in Windowsstandartverzeichnissen oder dem App.Path mit dem Namen gesucht werden. Bei->sol' und->cmd' stimmt das zufällig.

    Gruß Fizbin

    P.S.: Wenn Du im Deklarationsteil des Formulares noch die Anweisung-> Option Compare Text' schreibst, ist die Gross/Kleinschreibung im Textfeld egal.
     
Die Seite wird geladen...

VB: shell() mag meine progs net - Ähnliche Themen

Forum Datum
nach eine Komplette Hardware-Wechsel kann ich meine Win 10Pro Lizenz wider aktivieren? Windows 10 Forum 20. Okt. 2016
Meine Bilder aus versehen gelöscht Windows 7 Forum 6. Juli 2016
Windows halbiert meine Download-Geschwindigkeit Windows 7 Forum 9. Mai 2016
Schreibrechte auf meine NAS verloren Windows 8 Forum 4. März 2016
OpenVPN...meine "normale" inet verbindung funktioniert nicht mehr.... Windows 7 Forum 1. Jan. 2016