C# と VB.NET の質問掲示板

■No40154 (魔界の仮面弁士 さん) に返信

 private void button8_Click(object sender, EventArgs e)
        {
            object pvaIn = 250; //パーセント。10〜1000 の範囲
            object pvaOut = Type.Missing; // 変更結果が返される
            SHDocVw.OLECMDID OLECMDID_OPTICAL_ZOOM = (SHDocVw.OLECMDID)63;
            ((SHDocVw.IWebBrowser2)webBrowser_Main.ActiveXInstance).ExecWB(
              OLECMDID_OPTICAL_ZOOM,
              SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DODEFAULT,
              ref pvaIn,
              ref pvaOut);
        }
↑のコードを使わせて頂きました。

 ((SHDocVw.IWebBrowser2)webBrowser_Main.ActiveXInstance).ExecWB(
              OLECMDID_OPTICAL_ZOOM,
              SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DODEFAULT,
              ref pvaIn,
              ref pvaOut);

　↑の部分で、↓のエラーが出ます。
登録されていないドロップ先の登録を解除しています (HRESULT からの例外: 0x80040100 (DRAGDROP_E_NOTREGISTERED))

アドバイスお願いします。

■No40185 (RT さん) に返信
>>>登録されていないドロップ先の登録を解除しています (HRESULT からの例外: 0x80040100 (DRAGDROP_E_NOTREGISTERED))
>>そのエラーは、以下の要因で発生する事があります。
>>・ドキュメントがロードされていない段階で呼び出した場合。
> ドキュメントが完全にロードされている状態で、実行ボタンを押しました。
あと、思いつく物と言えば、
　・そのバージョンの IE でサポートされていない OLECMDID が指定されている。
　・OLECMDID の指定と、pvaIn/pvaOut の組み合わせが正しくない(型および値の範囲)。
ぐらいですかね。当方ではエラーなく呼び出せていますし。


>>・pvaIn が「VT_I4」相当の型で無い場合(.NET 的には、Int32型の値を持った Object 型変数に相当)。
> object pvaIn = 250;　は、Int32型の値を持った Object 型変数ではないのでしょうか？
OK です。
指定としては正しいので、あとは環境側の問題など、別の要因があるのかも知れません。

こちらでも検証してみますので、問題が発生したときの
　(1) 問題の発生したコード。
　(2) 表示させたサイトの URL。
　(3) Internet Explorer のバージョンおよび Service Pack。
　(4) Windows のバージョンおよび Service Pack。
　(5) .NET Framework のバージョンおよび Service Pack。
　(6) Visual Studio のバージョンおよび Service Pack。
を提供していただけないでしょうか。


ちなみに、当方で動作しているコードはこちら。


// IE8
// WinXP Pro/SP3
// .NET Framework 3.5/SP1
// VS2008 TeamDev/SP1

using System;
using System.Windows.Forms;
using System.Diagnostics;

public partial class Form1 : Form
{
    public Form1()
    {
        InitializeComponent();
        // SHDocVw.InternetExplorer ie = (SHDocVw.InternetExplorer)webBrowser1.ActiveXInstance;
        // ie.RegisterAsDropTarget = false;
        hScrollBar1.Minimum = 10;
        hScrollBar1.Maximum = 1000;
        hScrollBar1.LargeChange = 25;
        hScrollBar1.SmallChange = 1;
        hScrollBar1.Value = 100;
        hScrollBar1.Enabled = false;
        Text = "100%";
        webBrowser1.Navigate("http://openlab.ring.gr.jp/k16/htmllint/htmllint.html");
    }

    private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
    {
        Debug.WriteLine("Completed <- " + e.Url);
        hScrollBar1.Enabled = true;
    }

    private void hScrollBar1_Scroll(object sender, ScrollEventArgs e)
    {
        Text = hScrollBar1.Value + "%";
        object pvaIn = hScrollBar1.Value;
        object pvaOut = Type.Missing;
        SHDocVw.OLECMDID OLECMDID_OPTICAL_ZOOM = (SHDocVw.OLECMDID)63;
        try
        {
            SHDocVw.IWebBrowser2 wb = (SHDocVw.IWebBrowser2)webBrowser1.ActiveXInstance;
            wb.ExecWB(OLECMDID_OPTICAL_ZOOM, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DODEFAULT, ref pvaIn, ref pvaOut);
        }
        catch (Exception ex)
        {
            Debug.WriteLine(ex.Message);
        }
    }

    private void webBrowser1_Navigating(object sender, WebBrowserNavigatingEventArgs e)
    {
        Debug.WriteLine("Navigating -> " + e.Url);
        hScrollBar1.Enabled = false;
    }
}

■No40211 (RT さん) に返信
> IE6→IE8にアップデートすることで、問題解決することが出来ました。

だから最初に、
   　　　　　　 **********************
>> 一方、それが IE7 以上でいうところの [表示]-[拡大]の方の意味だとすれば、
   　　　　　　 **********************
と書いておいたのですけれどね。


なお、ズーム値として指定可能な 10 〜 1000 という範囲については、
下記のようにして調べる事が出来ます。

object pvaIn = Type.Missing;
object pvaOut = int.MaxValue;
SHDocVw.OLECMDID OLECMDID_OPTICAL_GETZOOMRANGE = (SHDocVw.OLECMDID)64;
SHDocVw.IWebBrowser2 wb = (SHDocVw.IWebBrowser2)webBrowser1.ActiveXInstance;
wb.ExecWB(OLECMDID_OPTICAL_GETZOOMRANGE, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DODEFAULT, ref pvaIn, ref pvaOut);

int minimum = (int)pvaOut & 0xffff;
int maximum = ((int)pvaOut >> 0x10) & 0xffff;


そしてこうした、OLECMDID_OPTICAL_ZOOM や OLECMDID_OPTICAL_GETZOOMRANGE といった、
OLECMDID 関連のコマンドについては、下記に一覧表があります。
http://msdn.microsoft.com/en-us/library/ms691264.aspx