別のＰＧに値をわたすには
解決http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200502/05020001.txt
で質問した内容とかぶるのですがよく理解できなかったのでまた質問しまｓた。
ログイン画面のＰＧでログイン後，別のＰＧに移るのですがそのＰＧのフォームでログイン時のＩＤを表示したいのです。
そのため，ログインした時の値を別のＰＧ上に渡したいのですが，どうしたらいいでしょうか。ＰＧの移動はShell関数で行っています。
先の質問のCommand関数を調査してテストしてみたけど上手くいきませんでした。私のコードが間違っているだけかもしれませんが・・
>上手くいきませんでした
これだけで済ませるのはそろそろやめにしませんか？
何をもって上手くいかないと判断したとか、何がどう上手くいかないのか
具体的に書いて下さい。
Command関数で起動オプションが取得できなかったとか。
>私のコードが間違っているだけかもしれませんが・
そう思うなら、なおさら質問の意図がわからなくなります。
コードも示さずに間違っているかどうかも分かるわけないでしょう。
魔界の弁士さんが回答しているのに、全く無視していますが、
開発環境は、ＶＢ６でいいのですか？
うまくいかないのは、起動元、起動先のどちら？
いきなりたくさんのことをやろうとしても駄目です。
起動先は、Command関数で受け渡された値を取得できているのか？
起動元は、起動先のプログラムにログイン時のＩＤを渡せているのか？
>私のコードが間違っているだけかもしれませんが
環境設定不備等でないのであれば、コードが間違ってます。
コマンドライン引数について、調べてみるだけじゃないのでしょうか...
Command$() 関数がわからないのでしょうか?
Shell() 関数がわからないのでしょうか?
環境はＶＢ６．０（ＳＰ６）を使用してます。
コードは簡単に書くと
呼び出し元
Shell **.exe,パラメータ１，パラメータ２
呼び出し先
str = command()
temp = split(str,",")
みたいなかんじで記述してます。
> Shell **.exe,パラメータ１，パラメータ２
カンマ区切りなのは、まずいのでは?
質問元を再度御覧ください。
http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200502/05020001.txt
余り、カンマ区切りでは渡さないけど、
最悪ダブルクオートで囲むかね。
> Shell **.exe,パラメータ１，パラメータ２
イメージで書かずに、実際のコードを貼りましょう。(^^;
で。他の方も書かれていますが、カンマ区切りはまずいです。
カンマを含んだ "TEST,P1.exe" というファイル名もありえますからね。
この場合は、
Shell "C:\Project1.exe aaa bbb"
のように、空白で区切って指定します。カンマを使うにしても、
Shell "C:\Project1.exe aaa,bbb"
のように、パラメータ内にて使うようにします。
パラメータが文字列変数になっているなら、&演算子で連結して
Dim Path As String
Path = exeファイルのフルパス
Path = Path & " " & パラメータ1 & "," & パラメータ2
Shell Path
のような感じになりますね。
標準モジュールでパブリック変数Ａ，Ｂを設定して
それをパラメータのところに記述しているのですが
これもマズいのでしょうか。
呼び出し元
Chk = Shell("***.EXE " & A & "," & B , vbNormalFocus)
If Chk = 0 Then
MsgBox "プログラムの起動に失敗しました。"
End If
呼び出し先
Str = command()
Tmp = split(str,",")
のような感じで試したところ上手くいきました。
ありがとうございました。
解決時には、チェックを・・・。
Shell("***.EXE " & text1.text & "," & text2.text , vbNormalFocus)
とするとパラメータの取得に失敗しました・・
というメッセージが出てきました。
パラメータで宣言するものとかって決まっているのでしょうか。
>解決時には、チェックを・・・。
どうも，すいませんでした。
その時はできた喜びで忘れていました。反省してます。
だ・か・ら、カンマはまずいので、こうじゃない？
Shell("***.EXE " & text1.text & " " & text2.text , vbNormalFocus)
~~~
解決できました。
どうも，ありがとうございました。
| ツイート |  |