精华内容
下载资源
问答
  • VB 6.0编程系统中怎么在主菜单条控件上增加一个超级链接,点超级链接就打开公司的购买网站页面?
  • 一、怎么在IE右键菜单中添加菜单项如果使用过Netants的朋友可能都知道,NetAnts在IE添加了右键菜单功能,只要在页面的一个链接或图片上点击右键后在菜单选择 Down By Netants 就能调用Netants下载该链接指向的...

    一、怎么在IE右键菜单中添加菜单项
    如果使用过Netants的朋友可能都知道,NetAnts在IE中添加了右键菜单功能,只要在页面的一个链接
    或图片上点击右键后在菜单中选择 Down By Netants 就能调用Netants下载该链接指向的文件。在本
    文中作者将介绍怎么通过VB来实现这样的功能。
    要实目前IE右键菜单中添加菜单项的功能,要依次实现以下步骤:
    1、在注册表HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt项下建立一个
    新项,项的名称既出目前菜单中的标题,例如你想建立的菜单项标题为Add URL,则新建项的名称为
    HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\Add URL
    2、将新建项的默认值设定为一个URL地址,当用户点击菜单项后,IE就会调用URL指向的页面中的脚
    本,在目标页面的脚本中通过访问IE提供的external对象的menuArguments属性就能访问IE中的页面中的
    各种对象,例如链接、图片、表单域、被选中的文本等。周详的帮助请参考MSDN中关于InternetExplore object
    的帮助,熟悉了Window对象才能比较好的了解下面的脚本。
    对于怎么实现自身的程式访问menuArguments的问题,我们能仿效Netants的做法,首先建立一个
    OLE Automation对象,然后在脚本中调用该对象,并将页面信息传递对象处理。下面我们需要首先通过VB建立
    一个对象:
    打开VB,点击菜单: File | New ,在新建工程窗口中选择 ActiveX Dll 后按确定键建立一个ActiveX DLL
    工程。然后在工程列表窗口中将Class1的Name属性更改为NetAPI,然后在NetAPI的代码窗口中添加如下代码:
    Public Sub AddURL(URL As String, Info As String)
    MsgBox Info, vbOKOnly, URL
    End Sub
    保存文件,将工程文件保存成NetSamp.vbp。然后在菜单中选择 File | Make NetSamp.dll建立对象动态
    连接库。
    接下来是注册库,在视窗系统目录下找到Regsvr32.exe,然后将其拷贝到netsamp.dll所在目录下,将
    netsamp.dll的的图标拖到Regsvr32.exe上放开,这时Regsvr32.exe就会弹出对话框提示对象注册成功。
    打开UltraEdit(或其他文本编辑器)将下面的脚本代码输入编辑器中:
    <script language="VBScript">

    Sub OnContextMenu()
    On Error Resume Next
    set srcEvent = external.menuArguments.event
    set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)
    set objNetSamp=CreateObject("NetSamp.NetAPI")

    if srcEvent.type = "MenuExtAnchor" then
    set srcAnchor = EventElement
    do until TypeName(srcAnchor)="HTMLAnchorElement"
    set srcAnchor=srcAnchor.parentElement
    Loop
    Call objNetSamp.AddUrl(srcAnchor.href,srcAnchor.innerText)
    elseif srcEvent.type="MenuExtImage" then
    if TypeName(EventElement)="HTMLAreaElement" then
    Call objNetSamp.AddUrl(EventElement.href,EventElement.Alt)
    else
    set srcImage = EventElement
    set srcAnchor = srcImage.parentElement
    do until TypeName(srcAnchor)="HTMLAnchorElement"
    set srcAnchor=srcAnchor.parentElement
    if TypeName(srcAnchor)="Nothing" then
    call objNetSamp.AddUrl(srcImage.href,srcImage.Alt)
    exit sub
    end if
    Loop
    Call objNetSamp.AddUrl(srcAnchor.href, srcImage.Alt)
    end if
    elseif srcEvent.type="MenuExtUnknown" then
    set srcAnchor = EventElement
    do until TypeName(srcAnchor)="HTMLAnchorElement"
    set srcAnchor=srcAnchor.parentElement
    if TypeName(srcAnchor)="Nothing" then
    Call objNetSamp.AddUrl(EventElement.href,EventElement.innerText)
    exit sub
    end if
    Loop
    Call objNetSamp.AddUrl(srcAnchor.href,srcAnchor.innerText)
    end if
    end Sub

    call OnContextMenu()

    </script>

    将文件保存到c:\program files 下,文件名为 geturl.htm
    从上面的脚本能看到,首先访问external.menuArguments属性,获得用户单击鼠标右键位置的对象,然
    后根据对象的不同获得他的URL,然后建立IEContextMenu.IEMenu1对象并调用该对象的AddURL方法。
    接下来是为右键菜单建立注册项,打开UltraEdit(或其他文本编辑器)将下面的注册数据输入编辑器中
    视窗系统 Registry Editor Version 5.00

    [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\&Get URL]
    @="c:\\program files\\geturl.htm"
    "Contexts"=dword:00000022

    将文件以reg为后缀保存,然后在视窗系统资源管理器中双击该文件将注册项添加到注册表中,然后打开
    IE,右键点击一个连接或图片,在弹出菜单中会出现一个Get URL项,点击该项,就会出现一个消息框显示
    点击的连接或图片的URL地址
    下面再介绍一下上面注册项中Contexts项的作用,通过该项能制定菜单项在右键点击IE中的什么对象时
    出现,他能为以下值的“或”组合:
    对象 值
    缺省 0x1
    图片 0x2
    控件 0x4
    表单域 0x8
    选择文本 0x10
    锚点 0x20
    例如上面我们希望菜单项在用户点击图片或超链接时出现,那么我们就将值设置为dword:00000022,既在
    点击图片 或 锚点时出现菜单。一个锚点是页面中描述一个超链接的对象。如果不设置Contexts项,则菜单项
    会在点击所有对象时出目前右键菜单中。
    通过上面的程式介绍我们能看到IE鼠标右键菜单的工作过程。前面讲了,Netants就是使用这样的方法通过
    在脚本中建立对象来实现调用NetAnts的,那么我们如果安装了NetAnts,就能在程式中通过调用NetAnts对象来
    调用NetAnts。
    建立一个新工程,点击菜单 Projects | References 项,选择其中的 AntAPI 1.0 Type Library 项,如果没有
    点击Browser按钮,在文件列表框中选择网络蚂蚁目录下的NetAPI.dll后按打开键。在Form1中添加一个CommandButton

    转载于:https://www.cnblogs.com/jxsoft/archive/2011/03/23/1992178.html

    展开全文
  • 一、先上源数据和结果图图丑~~见谅~~图丑~见谅~二、操作步骤1、插入数据透视表:插入菜单--表格功能区--数据透视表图丑~见谅~选择好要做透视的表格区域和存放数据透视表的初始单元格。我这里为了方便截图展示,将...

    前天遇到了一个问题:通过数据透视表得到了每个月的访问人次、消费人次数据,但是呢,我想看看能不能得到转化率数据,也就是说在数据透视表基础上再生成一个新的列“转化率”,该如何操作呢?

    一、先上源数据和结果图

    c3ca28f4a0ed1f17daecbc5575c81307.png

    图丑~~见谅~~

    425c093196af987e821b2d7e9c6a02cd.png

    图丑~见谅~

    二、操作步骤

    1、插入数据透视表:插入菜单--表格功能区--数据透视表

    24f428fc66ab7b9539439ae00ee6320a.png

    图丑~见谅~

    选择好要做透视的表格区域和存放数据透视表的初始单元格。

    我这里为了方便截图展示,将透视表放在了现有工作表内。

    2、生成数据透视表

    2e3a000a83df8c2a2ad700daf905bfc2.png

    图丑~见谅~

    3、单击透视表任意单元格,自动出现透视表分析菜单。

    选择“字段、项目和集”——计算字段——出现插入计算字段对话框。

    2b1007fa4c55ef34cc8501f132a2421c.png

    图丑~~

    68aaab2d8cd5542d2796fd26ce398998.png

    图丑~~

    4、在计算字段对话框进行如下设置

    cb964adfaeca8236301249534955357b.png

    图丑~~

    名称自己取,我这里直接命名为“转化率”。

    公式,将默认的“=0”中的“0”删除,从下面字段框中选择自己所需的字段双击或者选中所需字段后点击插入字段按钮,都可以将字段放置到上方的公式框中。

    除号“/”等符号需要自己输入。

    9ddc099cdf53f623daaffe2bf96cead6.png

    图丑~

    5、美化

    嫌弃“字段1”这个名字不好听,更嫌弃不是百分数形式。

    双击字段名,出现对话框“值字段设置”:

    f4a495408bd34b3212d0e2bf0d947cc6.png

    图丑~见谅~

    直接改名字就行了。

    选中那些小数,开始菜单或者右击这些单元格,都可以设置单元格格式,直接设置成百分数就好。

    c4eb5993a6f850893357ab3597015d55.png

    图丑~~

    3cfa6caccef26aa04df7578ec7ff7f38.png

    图丑~~

    6、删除透视表的计算字段

    如果不想要这个计算字段了,想删除,怎么操作?

    很简单!

    鼠标放在这个字段,右击,选中“删除我的转化率”即可。此方法也适用于删除透视表的其他字段。

    eced3d263031eea10b1772a005f5c629.png

    图丑~~

    7、总结

    数据透视表的伴生菜单——数据透视表分析,有很多功能哦,我将继续探索,和大家分享~~

    谢啦~~
    欢迎关注哦~~

    展开全文
  • VB6.0使用工程菜单添加控件,已经打勾的控件是不是已经加载到内存了,如果程序脱离开发环境运行,怎么知道控件是否调用了呢?
  • 一般在程序菜单是以文本形式来显示的,如下图所示,很单调和乏味的文字如果在菜单的前面加上图标,那么这个程序界面就显得高大上了,怎么加呢,说实话在VB里面加这种图标还算是比较麻烦的,它需要用到各种API函数...

    一般在程序中,菜单是以文本形式来显示的,如下图所示,很单调和乏味的文字

    f158cee9bcde5438f2c7e8cd4d45da35.png

    如果在菜单的前面加上图标,那么这个程序界面就显得高大上了,怎么加呢,说实话在VB里面加这种图标还算是比较麻烦的,它需要用到各种API函数进行调用,一大堆的莫名参数等着你去理解,很是头疼,下面来看看你的头是怎么疼的吧

    图标菜单

    这里面用到了几个关于菜单添加图标的API函数,其中包括GetMenu、GetSubMenu、GetMenuItemID和SetMenuItemBitmaps,利用这几个函数可以将图标添加到菜单上

    在编写代码前,我们要加入一个ImageList控件,这个控件是实现菜单图标化的关键,没它不行,大家可以在工具栏中找到这个控件图标,放到窗体上即可。如果工具栏中没有这个控件,还是老方法,通过"工程"菜单下的"部件"进行添加

    aa34f6a5830c626c384e1aa77c72acc3.png

    将ImageList控件添加到窗体后,右键属性弹出窗口后,通过插入图片添加四个我们需要用到的小图像

    5c782e221078016a7f5d2638835f8859.png

    搞定之后,开始编写代码了,首先要声明我们需要用到的几个API函数,以便我们在程序中可以直接调用

    8008981f89a64b1f4043dd76a1f060c7.png

    双击窗体进入到窗体加载代码区域,编写如下代码

    5643d8ffe38fc2c0f97c07b7c2bdd31a.png

    代码解释

    GetMenu负责获得弹出菜单的句柄,说白了,就是靠它来判断窗体上到底有没有菜单控件,如果没有则返回Null值,其中这里面的hwnd参数就是来指定有菜单的窗口

    GetSubMenu负责获得弹出菜单的句柄,它有两个参数,hmenu参数用来指定父菜单,npos菜单用来指定弹出菜单在主菜单中的位置

    SetMenuItemBitmaps的作用就是把位图搞过来,它的参数比较多,hmenu和npos参数功能和上面的一样,wflags参数来决定npos参数指定的是ID还是顺序编号,hBitmapUnchecked和hBitmapChecked就是指定菜单项的位图了

    知道这几个函数的功能和参数的作用就不难理解窗体程序中加载的代码了

    menu1 = GetMenu(Me.hwnd):判断有没有菜单

    menuid = GetMenuItemID(GetSubMenu(menu1, 0), i - 1):获取菜单的ID数值

    SetMenuItemBitmaps menu1, menuid, bitmap, ImageList1.ListImages(i).Picture, ImageList1.ListImages(i).Picture:将图像通过FOR循环依次赋值给这个菜单

    运行效果

    可以很明显的看到,文件菜单下的子菜单前面都有一个小的图标了,当然这个是随意选上去的,大家可以根据程序要实现的功能,到网络上找一些比较漂亮的小图像放上去,这样会使程序界面看起来更美

    9219899e5a3914e4c9a5af12b575109a.png

    下一期教大家,如何在VC#中加入菜单图标,方法要比VB更容易,值得期待!

    展开全文
  • 控件开发人员根据开发需要,常常需把Edraw Office ActiveX 控件添加到Visual Basic 6.0项目。...从“项目”菜单中选择“组件” 在控件表选择“Edraw Office Viewer Component Module” 单击“确定”按钮

    控件开发人员根据开发需要,常常需把Edraw Office ActiveX 控件添加到Visual Basic 6.0项目。但具体说来怎么操作呢?这里,小编将以Edraw Office Viewer Component 控件为例,给出详细讲解。

    • 从“项目”菜单中选择“组件”
    • 在控件表中选择“Edraw Office Viewer Component Module”
    • 单击“确定”按钮
    • 此时控件会出现在您的工具箱里
    • 在窗体中拖拽控件
    • 右键单击控件, 选择“视图代码”项
    • 添加NotifyCtrlReady事件,设置库文件加载

    Private Sub EDOffice_NotifyCtrlReady()
    EDOffice.LicenseName = ""
    EDOffice.LicenseCode = ""
    End Sub

    • 运行项目

    >>Edraw Office Viewer Component下载地址

    展开全文
  • 通过Microsoft Excel菜单的【开始】选项卡的【替换】功能?但这个功能只针对Microsoft Excel工作表的单元格。有什么便捷的办法可以快速完成这项工作呢?在讲解这个问题之前,先熟悉一下如何给Mi...
  • VB6.0语言,控件缺少一些事件,比如菜单条缺少mousemove事件,而toolbar也缺少mouseenter控件,怎么扩展这些事件呢?
  • 一般在程序菜单是以文本形式来显示的,如下图所示,很单调和乏味的文字如果在菜单的前面加上图标,那么这个程序界面就显得高大上了,怎么加呢,说实话在VB里面加这种图标还算是比较麻烦的,它需要用到各种API函数...
  • VB的精华文摘控件篇

    2009-08-25 05:12:11
    ---- 在VB6专业版或者企业版,LISTVIEW控件并不是默认的工具箱的配置项目,你必须要手工添加---单击"工程"菜单项目,选择"部件",在部件对话框的"控件"栏目选择"MICROSOFT WINDOWS COMMON CONTROLS 6.0",确认在它...
  • SliderView控件一、 样式一我们要实现上图的效果,需要如下的操作:从工具栏上的“Smobiler ...并点击“添加”,分别填写ResourceID属性(菜单项图片名称),Text(菜单项文本),Value(内部值,不在界面上显...
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    游戏速度的自由选择无非就是改变时钟控件的频率,我们在菜单中添加了选择速度的功能,还有添加了考验功能,将欲览窗的方块造型隐藏,给玩家提高了难度,如果你不愿意接受考验也可以点击显示还原成原来状态。...
  • LISTVIEW使用指南 (VB6)

    千次阅读 2015-05-13 13:08:21
    LISTVIEW控件并不是默认的工具箱的配置项目,你必须要手工添加---单击"工程"菜单项目,选择"部件",在部件对话框的"控件"栏目选择"MICROSOFT WINDOWS COMMON CONTROLS 6.0",确认在它前面的复选框有一个黑色的对号,...
  • 请问用shell或ShellExecute去调用外部的.exe程序, 那么怎么得到这个.exe的返回值可以考虑用DDE实现,给你个例子打开VB,新建一个工程,选择菜单中的“工程->工程1 属性”,把工程名称改为“P1”(我爱 偷懒,能短则...
  • asp.net知识库

    2015-06-18 08:45:45
    怎么在ASP.NET 2.0使用Membership asp.net 2.0-实现数据访问(1) ASP.NET 2.0 新特性 .NET 2.0里使用强类型数据创建多层应用 在MastPage引用脚本资源 2.0正式版callback的一些变化+使用示例(ASP.NET 2.0)...
  • 但遗憾的是,本人试下载此软件并安装(仅能得到TestDriven.NET-2.8.2130 RTM个人测试版本,时间7/30/2007,大小3.3M)后,没有大发现—仅是在VS2005中添加“Go to Reflector”和一个帮助菜单项。点击“Go to Reflector...
  • 但遗憾的是,本人试下载此软件并安装(仅能得到TestDriven.NET-2.8.2130 RTM个人测试版本,时间7/30/2007,大小3.3M)后,没有大发现—仅是在VS2005中添加“Go to Reflector”和一个帮助菜单项。点击“Go to Reflector...
  • 但遗憾的是,本人试下载此软件并安装(仅能得到TestDriven.NET-2.8.2130 RTM个人测试版本,时间7/30/2007,大小3.3M)后,没有大发现—仅是在VS2005中添加“Go to Reflector”和一个帮助菜单项。点击“Go to Reflector...
  • 但遗憾的是,本人试下载此软件并安装(仅能得到TestDriven.NET-2.8.2130 RTM个人测试版本,时间7/30/2007,大小3.3M)后,没有大发现—仅是在VS2005中添加“Go to Reflector”和一个帮助菜单项。点击“Go to Reflector...
  • 但遗憾的是,本人试下载此软件并安装(仅能得到TestDriven.NET-2.8.2130 RTM个人测试版本,时间7/30/2007,大小3.3M)后,没有大发现—仅是在VS2005中添加“Go to Reflector”和一个帮助菜单项。点击“Go to Reflector...
  • 但遗憾的是,本人试下载此软件并安装(仅能得到TestDriven.NET-2.8.2130 RTM个人测试版本,时间7/30/2007,大小3.3M)后,没有大发现—仅是在VS2005中添加“Go to Reflector”和一个帮助菜单项。点击“Go to Reflector...
  • Reflector 6.5.0.135

    2010-11-01 08:49:04
    但遗憾的是,本人试下载此软件并安装(仅能得到TestDriven.NET-2.8.2130 RTM个人测试版本,时间7/30/2007,大小3.3M)后,没有大发现—仅是在VS2005中添加“Go to Reflector”和一个帮助菜单项。点击“Go to Reflector...
  • Reflector 6..6.0.30

    2011-04-02 10:23:15
    但遗憾的是,本人试下载此软件并安装(仅能得到TestDriven.NET-2.8.2130 RTM个人测试版本,时间7/30/2007,大小3.3M)后,没有大发现—仅是在VS2005中添加“Go to Reflector”和一个帮助菜单项。点击“Go to Reflector...
  • arcgis工具

    2012-10-22 22:37:31
    :[工具] >>[添加XY 数据],在“添加XY 数据”窗口,选择已添加的 XY 数据表,指定X 坐标字段(东经)和Y 坐标字段(北纬),按“编辑”按钮,选择坐标系统。一般GPS系统采用的坐标系统为WGS_1984。 方法二....
  • DLL函数查看器V3.5

    热门讨论 2013-07-24 10:10:37
    *新增添加到系统右键菜单支持 *新增查找功能 DLL函数查看器V3.2 (2011.07.20) =========================== *修正对某些程序数据分析可能引起的程序崩溃 *修正对某些加壳程序反汇编可能引起的程序崩溃问题 *优化了...
  • C#微软培训教材(高清PDF)

    千次下载 热门讨论 2009-07-30 08:51:17
    18.2 在 C #代码调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • C#微软培训资料

    2014-01-22 14:10:17
    18.2 在 C #代码调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...

空空如也

空空如也

1 2
收藏数 40
精华内容 16
关键字:

vb中怎么添加菜单