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

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

> これでどうでしょう。
> 選択されたテキストや画像をドラッグすることはできなくなりますが、
> 範囲選択のためのドラッグ操作は可能にしています。
> 
> 
> Private Sub EventCancel(sender As Object, e As EventArgs)
> 　　Dim win = WebBrowser1.Document.Window.DomWindow
> 　　Dim ev = win.event
> 　　ev.cancelBubble = True
> 　　ev.returnValue = False
> 　　System.Runtime.InteropServices.Marshal.ReleaseComObject(ev)
> 　　System.Runtime.InteropServices.Marshal.ReleaseComObject(win)
> End Sub
> 
> Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
> 　　WebBrowser1.Document.Body.AttachEventHandler("ondragstart", AddressOf ondragstart)
> 　　'WebBrowser1.Document.Body.AttachEventHandler("onselectstart", AddressOf EventCancel)
> End Sub

アンマネージ側を意識しなくても、HtmlDocument クラスに提供されているメソッド、
プロパティ、イベントだけでドラッグできないようにするという方法はあると思うの
ですが、そうしないのは何か理由があるのでしょうか？

例えば img 要素の画像をドラッグできないようにするのであれば、以下のようにして
目的を果たせるはずです。IE11 でどうなるかは試してませんので分かりませんが。

private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
    HtmlElementCollection images = webBrowser1.Document.GetElementsByTagName("img");
    foreach (HtmlElement img in images)
    {
        img.Drag += new HtmlElementEventHandler(img_Drag);
    }
}

void img_Drag(object sender, HtmlElementEventArgs e)
{
    e.ReturnValue = false;
}

何か理由があって、上記のようなことではダメということでしたら、理由を教えていた
だけると幸いです。

■No80832 (WebSurfer さん) に返信
> 例えば img 要素の画像をドラッグできないようにするのであれば、以下のようにして
> 目的を果たせるはずです。IE11 でどうなるかは試してませんので分かりませんが。

ありがとうございます。
WebBrowserを使う際、HtmlElementクラスはよく利用していますので、
こちらの方がスッキリして使いやすいです。

さらに、テキストの外部ドラッグは不要なので、魔界の仮面弁士 さんのアドバイスを元に
bodyに対するドラッグ制御として、以下のようなコードでうまくいきました。

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    
    Dim body As HtmlElement = WebBrowser1.Document.Body

    '（実際にはここに他の処理を行う）

    AddHandler body.Drag, AddressOf body_Drag
End Sub

Private Sub body_Drag(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
    e.ReturnValue = False
End Sub

皆さま、貴重なアドバイス、ありがとうございました。
今後とも宜しくお願い申し上げます。