浏览器

开发平台：
Visual Basic

mPopupMenus.bas：源码内容
							Attribute VB_Name = "mPopupMenus"
Option Explicit
'"收藏菜单"文件夹的右键菜单
Public FavoriteFolderPopMenu As cPopMenu
'Menu Item ID
Public Const ID_FavFolder_Explorer As Long = 101
Public Const ID_FavFolder_SideFav As Long = 102
Public Const ID_FavFolder_OpenAllLink As Long = 103
'Public Const ID_FavFolder_Float As Long = 104
'"收藏菜单"链接的右键菜单
Public FavoriteURLPopMenu As cPopMenu
'Menu Item ID
Public Const ID_FavUrl_OpenNew As Long = 101
Public Const ID_FavUrl_Open As Long = 102
Public Const ID_FavUrl_OpenIE As Long = 106
Public Const ID_FavUrl_Delete As Long = 104
Public Const ID_FavUrl_Property As Long = 105
Public Const ID_FavUrl_OpenAll As Long = 108
Public Const ID_FavUrl_Float As Long = 107
'标签栏,其余标签菜单
Public OtherPagePopMenu As cPopMenu
'搜索菜单
Public pMnu_Searchbar As cPopMenu
'多搜索菜单
Public pMnu_MulSearch As cPopMenu
''"最近关闭"菜单
'Public pMnu_Reopen As cPopMenu
Public Sub CreateFavoriteMenuPopMenus()
Dim tHMenu&
tHMenu = LoadMenuVB(401)
Set FavoriteFolderPopMenu = New cPopMenu
Set FavoriteURLPopMenu = New cPopMenu
With FavoriteFolderPopMenu
    .Create GetSubMenu(tHMenu, 0)
End With
With FavoriteURLPopMenu
    .Create GetSubMenu(tHMenu, 1)
End With
Set OtherPagePopMenu = New cPopMenu
With OtherPagePopMenu
    .Create
    .Add "(空)", pmsString Or pmsDisabled
End With
RemoveMenu tHMenu, 0, MF_BYPOSITION
RemoveMenu tHMenu, 0, MF_BYPOSITION
DestroyMenu tHMenu
End Sub
'Public Sub CreateFavoriteMenuPopMenus()
'Set FavoriteFolderPopMenu = New cPopMenu
'Set FavoriteURLPopMenu = New cPopMenu
'
'With FavoriteFolderPopMenu
'    .Create
'    .Add "资源管理器(&E)", , ID_FavFolder_Explorer
'    .Add "边栏收藏夹(&S)", , ID_FavFolder_SideFav ', True
'    .Add "打开所有链接(&O)", , ID_FavFolder_OpenAllLink
''    .Add "", pmsSeparator
''    .Add "浮动物", , ID_FavFolder_Float
''    .Add "属性(&R)", , 104
'End With
'
'With FavoriteURLPopMenu
'    .Create
'    .Add "新页面打开(&N)", , ID_FavUrl_OpenNew, True
'    .Add "当前页面打开(&O)", , ID_FavUrl_Open
'    .Add "用IE打开(&E)", , ID_FavUrl_OpenIE
'    .Add "", pmsSeparator, -1
'    .Add "删除(&D)", pmsString Or pmsDisabled, ID_FavUrl_Delete
'    .Add "属性(&R)", , ID_FavUrl_Property
'    .Add "", pmsSeparator
'    .Add "打开本层链接", , ID_FavUrl_OpenAll
'    .Add "分离本层链接(&S)", , ID_FavUrl_Float
'End With
'
'Set OtherPagePopMenu = New cPopMenu
'With OtherPagePopMenu
'    .Create
'    .Add "(空)", pmsString Or pmsDisabled
'End With
'
''Set pMnu_Reopen = New cPopMenu
''With pMnu_Reopen
''    .Create
''    .Add "(空)", pmsDisabled Or pmsString
''    .Add "", pmsSeparator
''    .Add "更多", pmsDisabled Or pmsString
''End With
'
'
'End Sub
Public Sub IniSearchbarMenu()
Set pMnu_Searchbar = New cPopMenu
With pMnu_Searchbar
    .Create
End With
End Sub
Public Sub IniMulSearchbarMenu()
Set pMnu_MulSearch = New cPopMenu
With pMnu_MulSearch
    .Create
End With
End Sub

						