« [VB6.0|Oracle] oo4o 関数 | メイン | [VB6.0] マウスポインタ »

2005年10月13日

[VB6.0] Shell 関数（パラメータ付き）

'--- メインフォーム


    Dim Hdl As Variant

    Dim Path As String

    Dim Param As String

    

    'Shell用フォームに送るパラメータ

    Param = "パラメータ,001"

    'パラメータ付きのパス

    Path = "C:\ShellTest.exe" & " " & Param

    

    'exeの呼び出し

    Hdl = Shell(Path, 1)

    'アクティブにするフォーム

    AppActivate "Shell用フォーム"  'exeのForm.Caption



'--- Shell用フォーム（exe）


    Dim x As String

    x = Command()

    

    'パラメータの受け取り

    MsgBox "メインフォームからのパラメータ ＝ " & x

2005 / 10 / 13