社区
JavaScript
帖子详情
有关Popup创建菜单打开文件问题
girlhappy
2008-09-28 02:34:13
我用popup创建了一个菜单 但是他只能打开见面文件,比如说我要打开一个exe的下载文件.他先提示下第一次下载不了 要第二次才能下载有什么办法可以和超链接一样打开直接提示下载(网页不阻止)我用的有上下两个框架
...全文
35
1
打赏
收藏
有关Popup创建菜单打开文件问题
我用popup创建了一个菜单 但是他只能打开见面文件,比如说我要打开一个exe的下载文件.他先提示下第一次下载不了 要第二次才能下载有什么办法可以和超链接一样打开直接提示下载(网页不阻止)我用的有上下两个框架
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
阿云ivan
2008-09-28
打赏
举报
回复
从安全角度考虑,不允许直接下载exe的文件
自动生成VBA窗体
菜单
自动生成VBA窗体
菜单
'*************************** '*
菜单
类 * '*************************** Option Explicit Private WithEvents MenuBar_MenuItem As MSForms.Label '
菜单
项 Private WithEvents WorkForm As MSForms.UserForm '工作窗口 Private WithEvents MenuBar As MSForms.Image '
菜单
栏 Private BackMenu_BackGroud As MSForms.Image '
菜单
背景图片 Private BackMenu_Caption As MSForms.Label '
菜单
标题标签 Private Const DISTANCE As Integer = 5 '
菜单
与左边框距离 Private Const MENUTOP As Integer = 2 '
菜单
项顶点Y轴位置 Private Const MENUHEIGHT As Integer = 14 '
菜单
项高度 Private intIndex As Integer '索引变量 Private sAction As String '宏名称变量 Private Property Let Index(N As Byte) '指定索引属性 intIndex = N End Property Private Property Get Index() As Byte '获得陇望蜀索引属性 Index = intIndex End Property Private Property Let OnAction(sAct As String) '行为属性 sAction = sAct End Property Private Property Get OnAction() As String OnAction = sAction End Property Public Sub AddMenu(wform As MSForms.UserForm, sCaption As String, sAction As String, Optional Acc As String = vbNullString) Dim MenuLeft As Single, MenuWidth As Single '由两个标签和一个图形控件组成一个主
菜单
项 MenuCount = MenuCount + 1 '主
菜单
项总数加1 Index = MenuCount '设置索引 Set WorkForm = wform With WorkForm Set MenuBar = .FormMenuBar Set BackMenu_Caption = .Controls.Add("forms.label.1") '添加一个标签,显示
菜单
标题 With BackMenu_Caption .Accelerator = Acc .AutoSize = True .BackStyle = fmBackStyleTransparent .Caption = sCaption .Font = "宋体" .Font.Size = 9 .Name = "BackMenu_Caption" & MenuCount .TextAlign = fmTextAlignCenter .Top = MENUTOP + 3 .WordWrap = False .Visible = True End With If MenuCount = 1 Then MenuLeft = DISTANCE Else With .Controls("BackMenu_Caption" & MenuCount - 1) MenuLeft = .Left + .Width End With End If MenuWidth = BackMenu_Caption.Width + 10 Set BackMenu_BackGroud = .Controls.Add("forms.image.1") '添加一个image,作为背景图片 With BackMenu_BackGroud .Name = "BackMenu_BackGroud" & MenuCount .BorderStyle = fmBorderStyleNone .Move MenuLeft, MENUTOP, MenuWidth, MENUHEIGHT .BackStyle = fmBackStyleTransparent .PictureSizeMode = fmPictureSizeModeStretch BackMenu_Caption.AutoSize = False BackMenu_Caption.Left = .Left BackMenu_Caption.Width = .Width End With BackMenu_Caption.ZOrder '将标签置前 Set MenuBar_MenuItem = .Controls.Add("forms.label.1") '添加一个Label,用于触发事件 With MenuBar_MenuItem .Name = "MenuBar_MenuItem" & MenuCount .BorderStyle = fmBorderStyleNone .BackStyle = fmBackStyleTransparent With BackMenu_BackGroud MenuBar_MenuItem.Move .Left, .Top, .Width, .Height End With End With End With OnAction = sAction End Sub Private Sub MenuBar_MenuItem_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then bMenuSelected = True: Menu_Select End Sub Private Sub MenuBar_Click() UnSelectLastMenu bMenuSelected = False End Sub Private Sub MenuBar_MenuItem_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) UnSelectLastMenu Call Menu_Select End Sub Private Sub MenuBar_MouseMove1(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not bMenuSelected Then UnSelectLastMenu End Sub Private Sub WorkForm_Click() '窗体单击时 UnSelectLastMenu bMenuSelected = False End Sub Private Sub WorkForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not bMenuSelected Then UnSelectLastMenu '窗体 End Sub Private Sub Menu_Select() '选择
菜单
On Error Resume Next Dim Pt_Menu_RightBottom As POINTAPI, Pt_Menu_LeftTop As POINTAPI With WorkForm UnSelectLastMenu Set LastSelect_Menu = BackMenu_BackGroud With BackMenu_BackGroud .BorderStyle = fmBorderStyleSingle .BorderColor = RGB(0, 0, 128) .BackStyle = fmBackStyleOpaque If bMenuSelected = False Then WorkForm.Controls("BackMenu_BackGroud" & Index).BackColor = &HFFC0C0 Else WorkForm.Controls("BackMenu_BackGroud" & Index).BackColor = &HE0E0E0 pt.X = MenuBar_MenuItem.Left * 1.33 pt.Y = (MenuBar_MenuItem.Top + MenuBar_MenuItem.Height) * 1.33 + 3 ClientToScreen hForm, pt If OnAction "" Then Application.Run OnAction End If End If End With End With End Sub Private Sub UnSelectLastMenu() '取消上次选择 If Not LastSelect_Menu Is Nothing Then With LastSelect_Menu .Picture = LoadPicture() .BackStyle = fmBackStyleTransparent .BorderStyle = fmBorderStyleNone End With End If End Sub '********本模块结束********** '*************************** '*
菜单
执行模块 * '*************************** Public Type POINTAPI X As Long Y As Long End Type Public Declare Function FindWindow Lib "user32.dll" Alias"FindWindowA"(ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function ClientToScreen Lib"user32"(ByVal hwnd As Long, lpPoint As POINTAPI) As Long Public
Popup
_Menu As CommandBar '指定弹出式
菜单
Public LastSelect_Menu As MSForms.Image '最后选择的
菜单
Public MenuCount As Integer '子
菜单
数量 Public hForm As Long '窗口句柄 Public intLevel As Integer '级别标识,用于设置Radio
菜单
(游戏
菜单
中:初级,中级,高级) Public bAbortEnabled As Boolean '标识放弃
菜单
项是否可用 Public bItemCheck As Boolean '标识音效
菜单
是否CheckOn Public bMenuSelected As Boolean '标识
菜单
是否点击 Public pt As POINTAPI '定义点 Public faceid As Integer '图标ID Public faceidselect As Integer '选择的图标 Public fistid As Integer '第一个图标号 Public lastid As Integer '最后一个图标号 Public selectrow,selectcol as integer Public Mcro(50) AS String SUB 文件() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "打开 ", "", False, True,33,"" AddCustomCommandBar
Popup
1 "新建 ", "BB", False, True,18,"" AddCustomCommandBar
Popup
2 ("另存为 ") Set cmb = Application.CommandBars("CELL").Controls("另存为 ") AddCustomCommandBar
Popup
3 cmb, "OFFICE 97-2003文件 ", "DD", False, True, 3, "" Set cmb = Application.CommandBars("CELL").Controls("另存为 ") AddCustomCommandBar
Popup
4 cmb, "OFFICE 2007工作表 " Set cmb = Application.CommandBars("CELL").Controls("另存为 ").Controls("OFFICE 2007工作表 ") AddCustomCommandBar
Popup
3 cmb, "office 2007启用宏的工作表 ", "FF", False, True, 0, "" Set cmb = Application.CommandBars("CELL").Controls("另存为 ").Controls("OFFICE 2007工作表 ") AddCustomCommandBar
Popup
3 cmb, "OFFICE 2007工作表 ", "GG", False, True, 253, ""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 公式() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "文本 ", "WB", False, True,7,"" AddCustomCommandBar
Popup
2 ("名称 ") Set cmb = Application.CommandBars("CELL").Controls("名称 ") AddCustomCommandBar
Popup
3 cmb, "定义 ", "DY", False, True, 0, "" Set cmb = Application.CommandBars("CELL").Controls("名称 ") AddCustomCommandBar
Popup
4 cmb, "单元格 " Set cmb = Application.CommandBars("CELL").Controls("名称 ").Controls("单元格 ") AddCustomCommandBar
Popup
3 cmb, "合并 ", "HB", False, True, 592, "" Set cmb = Application.CommandBars("CELL").Controls("名称 ").Controls("单元格 ") AddCustomCommandBar
Popup
3 cmb, "从属 ", "CS", False, True, 564, ""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 开发工具() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "插入 ", "CR", False, True,548,"" AddCustomCommandBar
Popup
1 "模式 ", "MS", False, True,590,"" AddCustomCommandBar
Popup
2 ("宏 ") Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBar
Popup
3 cmb, "录制宏 ", "LZH", False, True, 205, "" Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBar
Popup
3 cmb, "安全性 ", "AQX", False, True, 279, "" Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBar
Popup
3 cmb, "查看代码 ", "CKDM", False, True, 289, ""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 窗口() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "并列比较 ", "BLBJ", False, True,250,"" AddCustomCommandBar
Popup
1 "冻结 ", "DJ", False, True,288,"" AddCustomCommandBar
Popup
1 "隐藏 ", "YC", False, True,237,"" AddCustomCommandBar
Popup
1 "拆分 ", "CF", False, True,292,"" AddCustomCommandBar
Popup
1 "取消冻结 ", "QXDJ", False, True,232,""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 工具() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "拼写检查 ", "PXJC", False, True,246,"" AddCustomCommandBar
Popup
2 ("保护 ") Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBar
Popup
3 cmb, "保护工作表 ", "BHGZB", False, True, 277, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBar
Popup
3 cmb, "保护工作薄 ", "BHGZBB", False, True, 312, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBar
Popup
3 cmb, "工作表
菜单
栏 ", "gzbcdl", False, True, 142, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBar
Popup
3 cmb, "图表
菜单
栏 ", "tbgjl", False, True, 164, ""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 常用() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "格式 ", "gs", False, True,108,"" AddCustomCommandBar
Popup
1 "数据透视表 ", "sjtsb", False, True,125,"" AddCustomCommandBar
Popup
1 "图表 ", "tb", False, True,127,"" AddCustomCommandBar
Popup
1 "审阅 ", "sy", False, True,124,"" AddCustomCommandBar
Popup
1 "窗体 ", "ct", False, True,128,"" AddCustomCommandBar
Popup
1 "停止录制 ", "tzlz", False, True,185,"" AddCustomCommandBar
Popup
2 ("外部数据 ") Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBar
Popup
3 cmb, "公式审核 ", "gssh", False, True, 129, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBar
Popup
3 cmb, "全屏显示 ", "qpxs", False, True, 130, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBar
Popup
3 cmb, "循环引用 ", "xhye", False, True, 132, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBar
Popup
4 cmb, "VisualBasic " Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBar
Popup
3 cmb, "Web ", "web", False, True, 173, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBar
Popup
3 cmb, "控件工具箱 ", "kjgjx", False, True, 174, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBar
Popup
3 cmb, "退出设计模式 ", "tcsjms", False, True, 162, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBar
Popup
3 cmb, "刷新 ", "sx", False, True, 165, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBar
Popup
3 cmb, "监视窗口 ", "jsck", False, True, 168, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBar
Popup
3 cmb, "数据透视表字段列表 ", "sjtsbzdb", False, True, 170, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBar
Popup
3 cmb, "边框 ", "bk", False, True, 178, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBar
Popup
3 cmb, "保护 ", "bh", False, True, 160, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBar
Popup
3 cmb, "文本到语音 ", "wbdyy", False, True, 164, ""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 列表() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "并排比较 ", "bpbj1", False, True,180,"" AddCustomCommandBar
Popup
1 "绘图 ", "bpbj2", False, True,182,"" AddCustomCommandBar
Popup
1 "数据透视图
菜单
", "bpbj3", False, True,184,"" AddCustomCommandBar
Popup
2 ("工作簿标签 ") AddCustomCommandBar
Popup
2 ("单元格 ") Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBar
Popup
3 cmb, "列 ", "bpbj6", False, True, 190, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBar
Popup
3 cmb, "行 ", "bpbj7", False, True, 192, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBar
Popup
3 cmb, "单元格 ", "bpbj8", False, True, 194, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBar
Popup
3 cmb, "柱形图 ", "bpbj9", False, True, 196, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBar
Popup
3 cmb, "行 ", "bpbj10", False, True, 198, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBar
Popup
4 cmb, "工作表 " Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBar
Popup
3 cmb, "XLM 单元格 ", "bpbj12", False, True, 202, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBar
Popup
3 cmb, "文档 ", "bpbj13", False, True, 204, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBar
Popup
3 cmb, "桌面 ", "bpbj14", False, True, 206, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBar
Popup
3 cmb, "非默认拖放 ", "bpbj15", False, True, 208, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBar
Popup
3 cmb, "自动填充 ", "bpbj16", False, True, 210, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBar
Popup
3 cmb, "按钮 ", "bpbj17", False, True, 212, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBar
Popup
3 cmb, "对话框 ", "bpbj18", False, True, 214, ""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 序列() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "图形区 ", "bpbj20", False, True,218,"" AddCustomCommandBar
Popup
1 "基底和墙纸 ", "bpbj21", False, True,220,"" AddCustomCommandBar
Popup
1 "趋势线 ", "bpbj22", False, True,222,"" AddCustomCommandBar
Popup
1 "图表 ", "bpbj23", False, True,224,"" AddCustomCommandBar
Popup
1 "设置数据系列格式 ", "bpbj24", False, True,226,"" AddCustomCommandBar
Popup
2 ("设置数据轴格式 ") Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBar
Popup
3 cmb, "设置图例项格式 ", "bpbj26", False, True, 230, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBar
Popup
3 cmb, "编辑栏 ", "bpbj27", False, True, 232, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBar
Popup
3 cmb, "数据透视表上下文
菜单
", "bpbj28", False, True, 234, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBar
Popup
3 cmb, "查询 ", "bpbj29", False, True, 236, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBar
Popup
3 cmb, "查询布局 ", "bpbj30", False, True, 238, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBar
Popup
4 cmb, "自动计算 " Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ").Controls("自动计算 ") AddCustomCommandBar
Popup
3 cmb, "对象/图形区 ", "bpbj32", False, True, 242, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ").Controls("自动计算 ") AddCustomCommandBar
Popup
3 cmb, "标题栏(图表) ", "bpbj33", False, True, 244, ""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 框架() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "数据透视图快捷
菜单
", "bpbj35", False, True,248,"" AddCustomCommandBar
Popup
1 "拼音信息 ", "bpbj36", False, True,250,"" AddCustomCommandBar
Popup
1 "自动合计 ", "bpbj37", False, True,252,"" AddCustomCommandBar
Popup
1 "选择性粘贴下拉框 ", "bpbj38", False, True,254,"" AddCustomCommandBar
Popup
2 ("查找格式 ") Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBar
Popup
3 cmb, "替换格式 ", "bpbj40", False, True, 258, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBar
Popup
3 cmb, "列表区域快捷
菜单
", "bpbj41", False, True, 260, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBar
Popup
3 cmb, "列表区域布局快捷
菜单
", "bpbj42", False, True, 262, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBar
Popup
3 cmb, "XML 区域快捷
菜单
", "bpbj43", False, True, 264, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBar
Popup
3 cmb, "列表区域布局快捷
菜单
", "bpbj44", False, True, 266, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBar
Popup
3 cmb, "艺术字 ", "bpbj45", False, True, 268, "" AddCustomCommandBar
Popup
2 ("图片 ") Set cmb = Application.CommandBars("CELL").Controls("图片 ") AddCustomCommandBar
Popup
3 cmb, "阴影设置 ", "bpbj47", False, True, 272, "" AddCustomCommandBar
Popup
2 ("三维设置 ") Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBar
Popup
3 cmb, "绘图画布 ", "bpbj49", False, True, 276, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBar
Popup
3 cmb, "组织结构图 ", "bpbj50", False, True, 278, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBar
Popup
3 cmb, "图示 ", "bpbj51", False, True, 280, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBar
Popup
3 cmb, "墨迹绘图与书写 ", "bpbj52", False, True, 282, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBar
Popup
3 cmb, "墨迹注释 ", "bpbj53", False, True, 284, "" AddCustomCommandBar
Popup
2 ("边框 ") Set cmb = Application.CommandBars("CELL").Controls("边框 ") AddCustomCommandBar
Popup
3 cmb, "边框 ", "bpbj55", False, True, 288, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ") AddCustomCommandBar
Popup
4 cmb, "绘图边框 " Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBar
Popup
3 cmb, "图表类型 ", "bpbj57", False, True, 292, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBar
Popup
3 cmb, "图案 ", "bpbj58", False, True, 294, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBar
Popup
3 cmb, "字体颜色 ", "bpbj59", False, True, 296, ""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 填充颜色() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "线条颜色 ", "bpbj61", False, True,300,"" AddCustomCommandBar
Popup
2 ("绘图与书写笔 ") Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBar
Popup
3 cmb, "批注笔 ", "bpbj63", False, True, 304, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBar
Popup
3 cmb, "绘图和书写笔 ", "bpbj64", False, True, 306, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBar
Popup
3 cmb, "注释笔 ", "bpbj65", False, True, 308, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBar
Popup
3 cmb, "叠放次序 ", "bpbj66", False, True, 310, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBar
Popup
3 cmb, "微移 ", "bpbj67", False, True, 312, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBar
Popup
3 cmb, "对齐或分布 ", "bpbj68", False, True, 314, "" AddCustomCommandBar
Popup
2 ("旋转或翻转 ") Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ") AddCustomCommandBar
Popup
3 cmb, "直线 ", "bpbj70", False, True, 318, "" Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ") AddCustomCommandBar
Popup
4 cmb, "连接符 " Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ").Controls("连接符 ") AddCustomCommandBar
Popup
3 cmb, "自选图形 ", "bpbj72", False, True, 322, "" Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ").Controls("连接符 ") AddCustomCommandBar
Popup
3 cmb, "标注 ", "bpbj73", False, True, 324, ""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 流程图() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "箭头总汇 ", "bpbj75", False, True,328,"" AddCustomCommandBar
Popup
1 "星与旗帜 ", "bpbj76", False, True,330,"" AddCustomCommandBar
Popup
1 "基本形状 ", "bpbj77", False, True,332,"" AddCustomCommandBar
Popup
1 "插入形状 ", "bpbj78", False, True,334,"" AddCustomCommandBar
Popup
2 ("形状 ") Set cmb = Application.CommandBars("CELL").Controls("形状 ") AddCustomCommandBar
Popup
3 cmb, "非活动图表 ", "bpbj80", False, True, 338, "" Set cmb = Application.CommandBars("CELL").Controls("形状 ") AddCustomCommandBar
Popup
3 cmb, "Excel 控件 ", "bpbj81", False, True, 340, "" AddCustomCommandBar
Popup
1 "曲线 ", "bpbj82", False, True,342,"" AddCustomCommandBar
Popup
1 "曲线结点 ", "bpbj83", False, True,344,"" AddCustomCommandBar
Popup
1 "曲线段 ", "bpbj84", False, True,346,"" AddCustomCommandBar
Popup
1 "图片上下文
菜单
", "bpbj85", False, True,348,""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB OLE对象() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "ActiveX 控件 ", "bpbj87", False, True,352,"" AddCustomCommandBar
Popup
1 "艺术字上下文
菜单
", "bpbj88", False, True,354,"" AddCustomCommandBar
Popup
1 "旋转方式 ", "bpbj89", False, True,356,"" AddCustomCommandBar
Popup
1 "连接符 ", "bpbj90", False, True,358,"" AddCustomCommandBar
Popup
1 "脚本标记快捷
菜单
", "bpbj91", False, True,360,"" AddCustomCommandBar
Popup
1 "Canvas
Popup
", "bpbj92", False, True,362,"" AddCustomCommandBar
Popup
1 "Organization Chart
Popup
", "bpbj93", False, True,364,"" AddCustomCommandBar
Popup
2 ("图表 ") Set cmb = Application.CommandBars("CELL").Controls("图表 ") AddCustomCommandBar
Popup
3 cmb, "选择 ", "bpbj95", False, True, 368, "" Set cmb = Application.CommandBars("CELL").Controls("图表 ") AddCustomCommandBar
Popup
4 cmb, "版式 " Set cmb = Application.CommandBars("CELL").Controls("图表 ").Controls("版式 ") AddCustomCommandBar
Popup
3 cmb, "符号栏 ", "bpbj97", False, True, 372, "" Set cmb = Application.CommandBars("CELL").Controls("图表 ").Controls("版式 ") AddCustomCommandBar
Popup
3 cmb, "任务窗格 ", "bpbj98", False, True, 374, ""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 添加命令() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "内置
菜单
", "bpbj100", False, True,378,"" AddCustomCommandBar
Popup
1 "剪贴板 ", "bpbj101", False, True,380,"" AddCustomCommandBar
Popup
1 "信封 ", "bpbj102", False, True,382,"" AddCustomCommandBar
Popup
1 "联机会议 ", "bpbj103", False, True,384,"" AddCustomCommandBar
Popup
1 "SnagIt ", "bpbj104", False, True,386,""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB SUB 关于() Clear_menu '清除弹出
菜单
上
菜单
项 Dim cmb As CommandBarControl AddCustomCommandBar
Popup
1 "我的VBA ", "WDVBA", False, True,400,"" AddCustomCommandBar
Popup
1 "帮助 ", "BZ", False, True,402,""
Popup
_Menu.Show
Popup
pt.X, pt.Y END SUB Public Sub ClearBar() '清除Cell弹出式
菜单
中
菜单
项 Dim ctr As CommandBarControl With
Popup
_Menu .Enabled = True For Each ctr In .Controls ctr.Delete Next End With End Sub Sub RemoveCustomMenu() '恢复系统
菜单
的各弹出
菜单
Application.CommandBars("CELL").Reset End Sub Sub clear_menu() Dim cmb As Object For Each cmb In Application.CommandBars("cell").Controls Application.CommandBars("cell").Controls(cmb.Caption).Delete Next End Sub Sub AddCustomCommandBar
Popup
1(Caption As String, Macro As String, NewGroup As Boolean, Enable As Boolean, FId As Integer, ShortT As String) '添加一级
菜单
选项 Dim cbb As CommandBarButton Set cbb = Application.CommandBars("CELL").Controls.Add(msoControlButton) cbb.Caption = Caption If FId > 0 Then cbb.faceid = FId If ShortT "" Then cbb.ShortcutText = ShortT cbb.OnAction = Macro cbb.BeginGroup = NewGroup cbb.Enabled = Enable End Sub Function AddCustomCommandBar
Popup
2(Caption As String) As CommandBarControl '添加子
菜单
项 Dim cmb As CommandBarControl Set cmb = Application.CommandBars("CELL").Controls.Add(msoControl
Popup
) cmb.Caption = Caption cmb.Visible = True Set AddCustomCommandBar
Popup
2 = cmb End Function Sub AddCustomCommandBar
Popup
3(cmb As Object, Caption As String, Macro As String, NewGroup As Boolean, Enable As Boolean, FId As Integer, ShortT As String) '添加一级
菜单
选项 Dim cbc As CommandBarButton Set cbc = cmb.Controls.Add(msoControlButton) cbc.Caption = Caption If FId > 0 Then cbc.faceid = FId If ShortT "" Then cbc.ShortcutText = ShortT cbc.OnAction = Macro cbc.BeginGroup = NewGroup cbc.Enabled = Enable End Sub Function AddCustomCommandBar
Popup
4(cmd As CommandBarControl, Caption As String) As CommandBarControl '添加子
菜单
项 Dim cme As CommandBarControl Set cme = cmd.Controls.Add(msoControl
Popup
) cme.Caption = Caption cme.Visible = True Set AddCustomCommandBar
Popup
4 = cme End Function '********本模块结束********** '*************************** '* 窗口模块 * '*************************** Private menu(1 To 50) As New Menu_Class '定义50个cMenu
菜单
类型 Private Sub UserForm_Initialize() hForm = FindWindow(vbNullString, Me.Caption) '程序中需要用到窗口句柄,先获得它 MenuCount = 0 Set
Popup
_Menu = Application.CommandBars("Cell") '程序中需指定一个弹出式
菜单
,我们指定为单元格右键
菜单
,您可另外指定一个弹出式
菜单
,请注意,是弹出式
菜单
Dim bar As Control Set bar = Me.Controls.Add("Forms.image.1", "IM1", Visible) With bar .Visible = True .Left = -100 .Top = 0 .Height = 20 .Width = 20 .BackColor = &HFFC0C0 .BorderStyle = 0 End With '*************** Set bar = Me.Controls.Add("Forms.image.1", "IM2", Visible) With bar .Visible = True .Left = -100 .Top = 0 .Height = 20 .Width = 20 .BackColor = &HFFC0C0 .BorderStyle = 0 End With '*************** Set bar = Me.Controls.Add("Forms.image.1", "FormMenuBar", Visible) With bar .Visible = True .Left = -1 .Top = -1 .Height = 20 .Width = 2000 .BackColor = &HFFC0C0 .BorderStyle = 0 End With menu(1).AddMenu Me,"文件","文件","" menu(2).AddMenu Me,"公式","公式","" menu(3).AddMenu Me,"开发工具","开发工具","" menu(4).AddMenu Me,"窗口","窗口","" menu(5).AddMenu Me,"工具","工具","" menu(6).AddMenu Me,"常用","常用","" menu(7).AddMenu Me,"列表","列表","" menu(8).AddMenu Me,"序列","序列","" menu(9).AddMenu Me,"框架","框架","" menu(10).AddMenu Me,"填充颜色","填充颜色","" menu(11).AddMenu Me,"流程图","流程图","" menu(12).AddMenu Me,"OLE对象","OLE对象","" menu(13).AddMenu Me,"添加命令","添加命令","" menu(14).AddMenu Me,"关于","关于","" end sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim i As Integer For i = LBound(menu) To UBound(menu) Set menu(i) = Nothing Next
Popup
_Menu.Enabled = True
Popup
_Menu.Reset end sub '********本模块结束**********
Delphi开发技巧之-Forms
TMenuItem显示在右侧 不使用MDI制作子窗体 不使用标题栏移动窗体 不使用标题栏移动窗口 两行hint 从XML文件动态
创建
菜单
从另外MDI子窗口读数据 使控件具有阴影效果 使每个MDIChild填充整个主窗口区域 使用Enter键替代Tab键 使用动画效果关闭窗口 使用动画方式打开窗体 使用帮助文件 使用状态栏显示hint 使用系统图标 使窗体不能移动 关闭一个MDI子窗体
创建
一个能改变大小的无边界窗体
创建
半透明窗体
创建
圆角窗体
创建
透明窗体 判断窗体是modal 制作动画应用程序图标 制作可移动不能改变大小的窗体 制作永远最小化窗口 制作透明窗口 取和设置鼠标位置 取鼠标指针下面的活动TWinControl 启动时隐藏主窗口 在 window xp 使用阴影效果 在TCombobox内显示多行文本 在TScrollBox上显示窗体 在你的程序中使用 Win XP 可视风格 在窗体上制造多边形洞 在窗体上挖洞 在窗体周围画彩色轮廓 定位messagebox 实现窗口的最小化动画效果 将InputQuery定位在窗体居中位置 怪异窗体 手动改变窗体比例 抓屏 拖拽时显示窗口内容 捕获主窗体WM_MOVE消息 改变Hint字体 改变Hint的显示时间 改变MessageDlg的按钮标题 最小化控件 最小化第二个窗口到任务栏 查找窗体注册类 格式化MessageDlg 检查
PopUp
菜单
是否打开 检查控件是否被其它窗口遮掩 添加
菜单
项到系统
菜单
渐变色填充窗体 特效窗口 移动指针到当前具有焦点的控件 移除系统
菜单
项 自动关闭TCommonDialog 运行时改变MainForm 运行时移动控件 运行时移动窗口控件 选中或取消其它窗口的复选框 通过在标题栏上右击缩小窗口 防止 Windows 最小化窗体 防止控件重画 防止窗体改变大小和移动 隐藏标题栏 隐藏窗体的最大化和最小化按钮
Java学习指南20 JavaFX高级
本篇配备充分的实例,包含以下内容:* 界面线程与工作线程的基本原理* 定时任务* 小任务,即一次性的短任务* 进度条定制* 对话框定制* 滚动窗口ScrollPane的使用* 弹出式窗口
Popup
的使用方法* 拖放技术 Drag And ...
chrome-extensions
Chrome扩展 到目前为止我所知道的:(取自 developer.chrome.com/extensions)
创建
一个 manifest.json 文件。 该文件将包括扩展名、描述、版本号和其他默认操作,如“标题”。 您必须
创建
一个 icon.png 和一个
popup
.html chrome 扩展接受 javascript、html 和 css 文件。 欲了解更多信息,请访问: : 加载扩展: 在浏览器中访问 chrome://extensions(或通过单击多功能框最右侧的图标打开 Chrome
菜单
:
菜单
的图标是三个水平条。然后在工具
菜单
下选择扩展程序以到达同一位置) . 确保选中右上角的开发人员模式复选框。 单击 Load unpacked extension... 弹出文件选择对话框。 导航到扩展文件所在的目录,然后选择它。 如果扩展名有效,它将立
将文本保存到Google Drive:trade_mark:「Save Text to Google Drive:trade_mark:」-crx插件
保存当前网页的纯文本到谷歌驱动器。 “将文本保存到Google云端硬盘” Chrome扩展程序可帮助您将网络文本内容保存到Google云端硬盘。主要功能:1.将文本,文本文件(鼠标右键
菜单
),epub文件(鼠标右键
菜单
)保存到Google云端硬盘 2.按上下文
菜单
将页面/链接文本保存到Google云端硬盘 3.在Google云端硬盘上设置dfault保存路径,默认路径为root 4.您可以通过Owlsee textReader进行阅读。授权Owlsee正在请求以下权限:查看和管理您使用此应用程序打开或
创建
的Google云端硬盘文件。为什么OWLSEE会在我们的服务器中缓存文件Owlsee会出于用户体验和性能原因而缓存打开的文件。当由owlsee.com打开gdrive的文件时,Owlsee会将纯文本文件转换为结构良好的格式以供人查看,删除多余的空行,删除html标签,然后将长文件分成多个部分。缓存文件将减少开销并缩短响应时间。该扩展程序是与Google云端硬盘配合使用的“稍后阅读”工具。您应该随时随地以舒适的方式使用Owlsee textReader(http://owlsee.com)进行阅读 textReader将记录您最近的阅读过程,并在再次
打开文件
后跳至最后的阅读位置。它还支持定义标签,定义书签,自定义字体大小,全文搜索等。===============更改日志2018年4月18日,版本1.2.0 1.添加“保存页面”到Google云端硬盘”上下文
菜单
2.添加“将链接保存到Google Drive”上下文
菜单
2018年4月9日,版本1.1.0 1.简化的UI 2018年3月20日,版本1.0.0 1. ui的大更新2018年1月1日,版本0.5.10 1.更新为https 2015年9月21日,版本0.5.9 1.修复了错误[Chrome 32+无法使用上传文件窗口自动关闭功能] 2013年3月29日,版本0.5.8 1.单击桌面通知窗口以打开保存的文档 2013年3月22日1.在将页面发送到Google驱动器后添加桌面通知 2.添加选项页面 3.优化UI 2013年3月7日授权范围已更改:“查看和管理您使用此应用程序打开或
创建
的Google云端硬盘文件” 2013年2月20日,版本0.5.5 1.当服务器端出现错误时,将弹出某些消息 2.您现在可以看到文件名抛出了save-
popup
-window 2013年2月14日,版本0.5.4 1.现在在弹出窗口中保存操作,将文件保存到Google云端硬盘时,您可以执行其他操作 2.您可以在Google云端硬盘中设置保存路径。默认值为根路径。 支持语言:English (United States)
JavaScript
87,910
社区成员
224,616
社区内容
发帖
与我相关
我的任务
JavaScript
Web 开发 JavaScript
复制链接
扫一扫
分享
社区描述
Web 开发 JavaScript
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章