出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[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>
　
親がくどくても（釦を何度も押しても）言うことを聞く、素直な子になりました。
我が子らも見習ふべきこそ。
新規ウィンドウを開きたい 　 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]

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