WebBrowserで詳細表示にするには？ (ID:84020)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > SelectionChangedイベントは、Win98に対応しているので、 > このイベントハンドラを実装する方法が判れば可能ではないかと Win2000未満の環境が無いので確認できませんが…。 Option Explicit Private WithEvents FolderView As Shell32.ShellFolderView Private Function FolderView_DefaultVerbInvoked() As Boolean Set FolderView = WebBrowser1.Document FolderView_DefaultVerbInvoked = True End Function Private Sub FolderView_SelectionChanged() Debug.Print FolderView.FocusedItem.Path End Sub Private Sub Form_Load() Me.WebBrowser1.Navigate2 "C:\" End Sub Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Set FolderView = pDisp.Document End Sub