ボタンメニュー

GUIアプリケーションには必須のボタンを押すとプルダウンしてくるメニューです。ただし、複数階層のメニューや区切りを入れることはできません。

HEADに記述

<SCRIPT LANGUAGE="VBScript"> Sub bmenu01_Select(num) Select Case num Case 1:Call Window.Open("http://www.yahoo.co.jp/","","") Case 2:MsgBox "むりっす" Case 3:MsgBox "できないっす" Case 4:MsgBox "それはちょっと..." Case 5:MsgBox "スペーサーです" Case 6:Window.Print Case 7:MsgBox "スペーサーです" Case 8:If MsgBox("どうしても閉じたいですか？", vbYesNo + vbQuestion + vbDefaultButton1, "魂の叫び") = vbYes Then Top.Window.Close End Select End Sub </SCRIPT>

BODYに記述

<OBJECT ID="bmenu01" WIDTH="100" HEIGHT="20" CLASSID="CLSID:52DFAE60-CEBF-11CF-A3A9-00A0C9034920" CODEBASE="http://activex.microsoft.com/activex/controls/iexplorer/x86/btnmenu.cab"> <PARAM NAME="Caption" VALUE="ファイル(&F)"> <PARAM NAME="Menuitem[0]" VALUE="新規作成(&N)"> <PARAM NAME="Menuitem[1]" VALUE="開く(&O)"> <PARAM NAME="Menuitem[2]" VALUE="上書き保存(&S)"> <PARAM NAME="Menuitem[3]" VALUE="名前を付けて保存(&A)"> <PARAM NAME="Menuitem[4]" VALUE="----------"> <PARAM NAME="Menuitem[5]" VALUE="印刷(&P)"> <PARAM NAME="Menuitem[6]" VALUE="----------"> <PARAM NAME="Menuitem[7]" VALUE="閉じる(&X)"> </OBJECT>

• システム標準でないActiveXを使用しているため、コントロールをダウンロードしないといけない。