出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
新規ウィンドウを開きたい 　 RIEさん [2002/03/26 19:06:13] [1917]
　 反抗期？ 　 北岳さん [2002/03/27 11:22:56] [1918]
　 　 性格、素直に 　 北岳さん [2002/03/28 12:49:14] [1922]
　 　 　 Re:性格、素直に【お礼】 　 RIEさん [2002/03/28 17:39:07] [1924]
[1917] 新規ウィンドウを開きたい
投稿者：RIEさん 2002/03/26 19:06:13
初歩的なことだとは思いますが、教えてください。
新規ウィンドウでもう１つFORMを開きたいのですが、vbScriptで設定した変数を引数として渡したいのです。
vbScriptでnewwindow()みたいなことができれば良いのですが、
方法がわかりません。
javaScriptでやるしかないかと思っているのですが、変数の値をjavaScriptへ渡す方法もわかりません。
どうか、教えてください。m(_ _)m
[1918] 反抗期？
投稿者：北岳さん 2002/03/27 11:22:56
純HTML。
WIN2000pro＋IE5.5 でやってみましたら、続けざまに「子を開く」を押したりすると、なかなか言うことを聞いてくれなくなります。
最初の1回目は必ず聞いてくれるようなので、まあ、半分くらいはいい子なんでしょうか。
こんな性格、直るのかな・・・

------------- 1.htm --------------------
<html><body>
<script language="VBScript">
<!--
dim ww
'---
Function WinOpen()
Set ww = window.open("2.htm","winopen","width=350,height=450,toolbar=1,location=1,directions=1,status=1,menubar=1,scrollbars=1,resizable=1")
ww.document.frm2.txt2.value=document.frm1.txt1.value
end function
'---
Function FrmChange()
ww.document.frm2.txt2.value=document.frm1.txt1.value
end function
'---
Function WinClose()
ww.close()
End Function
//-->
</Script>
<p>親画面
<p><form name="frm1">
<p><input type="text" name="txt1" size=50>
<p><input type="button" value="子を開く　" onClick="WinOpen()">　<input type="button" value="子を変える" onClick="FrmChange()">
<p><input type="button" value="子を閉じる" onClick="WinClose()">
</body></html>

------------- 2.htm --------------------
<html><body>
<form name="frm2" action="hoge.asp" method="post">
<p><input type="text" name="txt2" size="50">
<p><input type="button" value="親を閉じる" onClick="VBScript:window.opener.close()">　
<input type="button" value="子を閉じる" onClick="VBScript:window.close()">
<p><input type="submit" value="送る">
</form>
</body></html>

教訓：親がくどいのはいけません。
[1922] 性格、素直に
投稿者：北岳さん 2002/03/28 12:49:14
1.htm は「子を開く」を押したとき、1回目だけ素直で、２回目以降は、2.htmのテキストボックスが空になりました。
（この理由が「今週のワカラン！」状態。
２回目はインスタンスwwが再setされ、改めて2.htmに文字が書き込まれそうなのに？
実際は、一瞬文字が書き込まれますが、すぐ消えてしまいます。WIN2000pro＋IE5.5にて。）
　
原因追求は諦めまして、1_1.htmが改良版です。
２回目以降も素直に言うことを聞いてくれます。
　
----■1.htm (前回のもの。簡略化。)----------
<html><body>
<script language="VBScript">
<!--
dim ww
'---
Function WinOpen()
Set ww = window.open("2.htm","winopen","width=350,height=150 resizable=yes left margin=0 top margin=0")
ww.document.frm2.txt2.value=document.frm1.txt1.value
end function
//-->
</Script>
<p>親画面
<p><form name="frm1">
<p><input type="text" name="txt1" size=50>
<p><input type="button" value="子を開く　" onClick="WinOpen()">
</body></html>
　
----■2.htm （前回のもの。簡略化）-----------
<html><body>
<p>子画面
<form name="frm2">
<p><input type="text" name="txt2" size="50">
<p><input type="button" value="子を閉じる" onClick="VBScript:window.close()">
</form>
</body></html>
　
----■1_1.htm (性格改良。)----------
<html><body>
<script language="VBScript">
<!--
dim ww
dim pp
'---
Function WinOpen()
if pp="" then
Set ww=window.open("2.htm","winopen","width=350,height=150 resizable=yes left margin=0")
ww.document.frm2.txt2.value=document.frm1.txt1.value
pp=1
else
ww.document.frm2.txt2.value=document.frm1.txt1.value
end if
end function
//-->
</Script>
<p>親画面
<p><form name="frm1">
<p><input type="text" name="txt1" size=50>
<p><input type="button" value="子を開く　" onClick="WinOpen()">
</body></html>
　
親がくどくても（釦を何度も押しても）言うことを聞く、素直な子になりました。
我が子らも見習ふべきこそ。
[1924] Re:性格、素直に【お礼】
投稿者：RIEさん 2002/03/28 17:39:07
北岳さんありがとうございました。
大変参考になりました。

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ