ポップアップメニュー

説明

右クリックすると出てくるやつです。階層化可能

サンプル

右クリックメニューの表示
(Shiftキーで通常メニュー)

ソースコード

HEADに記述
<SCRIPT LANGUAGE="VBScript"> <!-- Sub Menu1_OnClick(ID) Select Case ID Case "aaa": MsgBox "METAタグは文書の情報を記述するタグです。" Case "bbb": MsgBox "文字列移動" Case "ccc": MsgBox "検索キーワード送信" Case "ddd": MsgBox "プレーンテキスト" Case "eee": MsgBox "区切り文字は使用不可？" End Select End Sub Sub PopUpList() If Window.Event.shiftKey = False Then Menu1.RemoveAllItems ' Menu1.AddItem 識別用ID,キャプション, 値？, 親メニューのID Menu1.AddItem "", "JavaScript", "", "PopUp01" Menu1.AddItem "PopUp02", "HTML", "", "PopUp01" Menu1.AddItem "aaa", "&META", "", "PopUp02" Menu1.AddItem "bbb", "MARQUEE", "", "PopUp02" Menu1.AddItem "ccc", "ISINDEX", "", "PopUp02" Menu1.AddItem "ddd", "XMP", "", "PopUp02" Menu1.AddItem "eee", "-", "", "PopUp02" Menu1.Popup Window.Event.x, Window.Event.y Window.Event.returnValue=False End If End Sub Set Window.Document.Oncontextmenu = GetRef("PopUpList") --> </SCRIPT>

HEADに記述

<SCRIPT LANGUAGE="VBScript">
<!--
Sub Menu1_OnClick(ID)
	Select Case ID
		Case "aaa": MsgBox "METAタグは文書の情報を記述するタグです。"
		Case "bbb": MsgBox "文字列移動"
		Case "ccc": MsgBox "検索キーワード送信"
		Case "ddd": MsgBox "プレーンテキスト"
		Case "eee": MsgBox "区切り文字は使用不可？"
	End Select
End Sub

Sub PopUpList()
	If Window.Event.shiftKey = False Then
		Menu1.RemoveAllItems
	'		Menu1.AddItem 識別用ID,キャプション, 値？, 親メニューのID
		Menu1.AddItem "", "JavaScript", "", "PopUp01"
		Menu1.AddItem  "PopUp02", "HTML", "", "PopUp01"
		Menu1.AddItem "aaa", "&META", "", "PopUp02"
		Menu1.AddItem "bbb", "MARQUEE", "", "PopUp02"
		Menu1.AddItem "ccc", "ISINDEX", "", "PopUp02"
		Menu1.AddItem "ddd", "XMP", "", "PopUp02"
		Menu1.AddItem "eee", "-", "", "PopUp02"
		Menu1.Popup Window.Event.x, Window.Event.y
		Window.Event.returnValue=False
	End If
End Sub

Set Window.Document.Oncontextmenu = GetRef("PopUpList")
-->
</SCRIPT>

BODYに記述
<OBJECT ID="Menu1" WIDTH=1 HEIGHT=1 CLASSID="CLSID:F5131C24-E56D-11CF-B78A-444553540000" CODEBASE="http://www.microsoft.com/windows/common/ikcntrls.cab#Version=1,0,0,8"></OBJECT>

解説・備考

システム標準でないActiveXを使用しているため、コントロールをダウンロードしないといけない。
ポップアップする場所をボタンの真下などに設定すれば、通常のプルダウンメニューのようになります。