mOptionPopmenu.bas
资源名称:IE_VB.rar [点击查看]
上传用户:davilee3
上传日期:2015-04-22
资源大小:986k
文件大小:2k
源码类别:
浏览器
开发平台:
Visual Basic
- 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