tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^4: VB2005でお気に入りダイアログ関係
投稿日： 2007/02/12(Mon) 03:08
投稿者： YAS
VB2005のWebBrowserコントロールではwindow.externalは空っぽです。
次のように自前でObjectForScriptingプロパティにオブジェクトを設定しなければなりません。
ただ，これではCOMオブジェクトを参照してしまいますし，そもそもスクリプトで実装する意味がありません。

Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WebBrowser1.ObjectForScripting = New ExternalObject
        Me.WebBrowser1.DocumentText = "<HTML>" & _
                                      "<HEAD></HEAD>" & _
                                      "<BODY>" & _
                                      "<SCRIPT language=VBScript>" & _
                                      "window.external.ShowBrowserUI ""OrganizeFavorites"", null" & _
                                      "</SCRIPT>" & _
                                      "</BODY>" & _
                                      "</HTML>"
    End Sub

End Class

<ComVisible(True)> _
Public Class ExternalObject

    Public Sub ShowBrowserUI(ByVal sUI As String, ByVal null As Object)
        Dim ShellUIHelper As Object = CreateObject("Shell.UIHelper")
        Try
            ShellUIHelper.ShowBrowserUI(sUI, 0)
        Finally
            If ShellUIHelper IsNot Nothing AndAlso Marshal.IsComObject(ShellUIHelper) Then
                Marshal.ReleaseComObject(ShellUIHelper)
            End If
        End Try
    End Sub

End Class
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。