削除

Javascriptのポップアップ削除

Message#4 2016年9月21日(水)02時57分
From: ジャッカル

いや、セレクトボックスに対してフォーカスしてってことですね。
選択されたかのチェックでイベントが発生しているかもしれない。
あとは、できるかどうかはわからないけど、セレクトボックスに設定されているjavascriptを処理させてみることかな？

http://www.vba-ie.net/ie/javascript.html

ココにのっているような感じで。

> アドバイスをありがとうございます。
>
> ポップアップにフォーカスするということなのかと思いますが、以下のコードでやはり結果は同じで実行はされますがポップアップは出ませんでした。
>
> objTag.Focus
> objTag.FireEvent ("OnChange")
> 又は、
> objTag.FireEvent ("OnChange")
> objTag.Focus
>
> objTag.Selectもうまくいきませんでした。
>
> このようなやり方でよいでしょうか？または別の解説策はないでしょうか？
>
> > saveOutputFormの処理がどうなっているかによるかもね。
> > たぶん、フォーカスしたかどうかがトリガーになっている可能性もあるから
> >
> > objTag.forcus
> > か
> > objTag.select
> >
> > なんかをかますとうまくいくかもしれない。
> >
> > > IE制御初心者です。
> > >
> > > セレクトボックスを選択すると、ポップアップ画面が出るIEのサイトでどうやらJavascriptが使われているようで、セレクトボックスの選択はできるのですが、ポップアップが出るようになりません。
> > >
> > > 以下が参考HTMLソースです。
> > > <script type="text/template" id="quickOutputTemplate"> <input type="hidden" value="xxx" name="selectedQOFormat" /> <select class="saveToMenu" id="saveToMenu" name="saveToMenu" onchange="saveOutputForm('UA_output_input_form'); return false;"> <option selected="selected" value="xxx"><a href="#" class="quickOutputXXX">aaに保存</a></option> 以下Selectオプションが続く</select> </script>
> > >
> > >
> > > 以下のようにコードを書いてみましたが、FireEvent（Onchange）もObjIE.navigateもエラーなく実行されるのですが、セレクトボックスの選択だけされポップアップがでません。
> > >
> > > Dim objIE As InternetExplorer
> > > Dim objTag As HTMLSelectElement
> > >
> > > For Each objTag In objIE.document.getElementsByName("saveToMenu")
> > > objTag.selectedIndex = 1
> > > objTag.FireEvent ("OnChange")
> > > objIE.navigate "JavaScript:saveOutputForm('UA_output_input_form'); return false;"
> > > Exit For
> > > Next
> > >
> > > Javascriptのポップアップを出すために別の操作が必要でしょうか？解決方法をご教示いただければ幸いです。

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。