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

■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;
    }
}