浏览器

开发平台：

Visual Basic

mOptionPopmenu.bas：源码内容

							Attribute VB_Name = "mOptionPopmenu"
'主工具栏"选项"按钮的下拉菜单
Option Explicit
Public pMnu_Option_Main As cPopMenu
Public pMnu_Option_Dlctrl As cPopMenu
Public pMnu_Option_Pagerule As cPopMenu
Public Const IDP_Opt_Dltl_Image As Long = 101
Public Const IDP_Opt_Dltl_Music As Long = 102
Public Const IDP_Opt_Dltl_Video As Long = 103
Public Const IDP_Opt_Dltl_Script As Long = 104
Public Const IDP_Opt_Dltl_ActiveX As Long = 105
Public Const IDP_Opt_Dltl_JavaApplet As Long = 106
Public Const IDP_Opt_Dltl_DlActiveX As Long = 107
Public Const IDP_Opt_AutoPreventPop As Long = 1
Public Const IDP_Opt_UrlFilter  As Long = 2
Public Const IDP_Opt_EnableDragDrop As Long = 3
Public Const IDP_Opt_SaveNow As Long = 10
Public Const IDP_Opt_Pgr_Enabled As Long = 201
Public Sub CreateOptionPopmenu()
Set pMnu_Option_Dlctrl = New cPopMenu
With pMnu_Option_Dlctrl
    .Create
    .Add "下载图片", , IDP_Opt_Dltl_Image
    .Add "下载音乐", , IDP_Opt_Dltl_Music
    .Add "下载视频", , IDP_Opt_Dltl_Video
    .Add "允许脚本", , IDP_Opt_Dltl_Script
    .Add "允许ActiveX", , IDP_Opt_Dltl_ActiveX
    .Add "允许JavaApplet", , IDP_Opt_Dltl_JavaApplet
    '.Add "", pmsSeparator
    .Add "下载ActiveX", , IDP_Opt_Dltl_DlActiveX
End With
Set pMnu_Option_Pagerule = New cPopMenu
With pMnu_Option_Pagerule
    .Create
'    .Add "(空)", pmsString Or pmsDisabled
'    .Add "", pmsSeparator
'    .Add "开启", , IDP_Opt_Pgr_Enabled
End With
Set pMnu_Option_Main = New cPopMenu
With pMnu_Option_Main
    .Create
    .Add "下载控制", pmsString Or pmsPopup, pMnu_Option_Dlctrl.hwnd
    .Add "", pmsSeparator
    .Add "自动过滤", , IDP_Opt_AutoPreventPop
    .Add "URL过滤", , IDP_Opt_UrlFilter
    .Add "", pmsSeparator
    .Add "页面规则", pmsString Or pmsPopup, pMnu_Option_Pagerule.hwnd
    .Add "鼠标手势", pmsString Or pmsDisabled
    .Add "开启拖拽", , IDP_Opt_EnableDragDrop
    .Add "", pmsSeparator
    .Add "立即保存", , IDP_Opt_SaveNow
End With
End Sub

						