精华内容
下载资源
问答
  • VB创建位图菜单...

    2009-10-08 01:56:25
    VB 之 精 彩 编 程-VB创建位图菜单
  • VB 创建QQ式导航菜单,可以折叠、展开的导航菜单,可对菜单进行分组,图文方式显示菜单,可以用到的地方也是挺多的,通过本源码介绍给大家方法,需要的时候可借鉴制作成相似效果的菜单
  • API创建菜单VB翻译版

    2020-07-21 01:23:20
    OnMenu,CreateActiveMenu,FullAllSubMenu,API_添加菜单项1,API_创建空白菜单,API_创建空白弹出式菜单,API_重画菜单,API_取菜单,API_取条目数量,API_取子菜单句柄,API_SetMenu,API_SetWindowLong,API_CallWindowProc
  • 易语言API创建菜单VB翻译版源码,OnMenu,CreateActiveMenu,FullAllSubMenu,API_添加菜单项1,API_创建空白菜单,API_创建空白弹出式菜单,API_重画菜单,API_取菜单,API_取条目数量,API_取子菜单句柄,API_SetMenu,API_...
  • VB创建位图菜单(1)

    2008-09-05 11:41:40
    一个菜单制作源代码,告诉你怎样制作位图菜单,共2个文件
  • VB创建位图菜单(2)

    2008-09-05 11:42:37
    一个菜单位图制作源代码,可以方便大家制作位图菜单
  • VB6.0 创建一个右键菜单,为了便于用户使用“粘贴”功能,特此自定义了一个右键菜单,在这个右键菜单中用户可选择粘贴,直接从剪帖板中粘贴内容到本窗口中。以下是相关的代码:  Private Sub Picture1_MouseDown...
  • 创建位图菜单VB源码

    2009-09-18 21:57:39
    VB创建像windows那样的位图源码!可以执行的!
  • 利用VB.net 在CAD2008里创建自己的菜单项,CAD二次开发
  • VB6.0 创建带历史信息的菜单,为菜单增加打开记录的功能,方便 用户下次打开,没有看到INI配置文件,可能是基于其它方法实现的历史菜单记录,觉得这个功能添加后,在大增加菜单的便利性,推荐大家在你的VB软件工程中...
  • VB 使用VsMenu控件创建漂亮菜单,是一个很不错的VsMenu控件用法演示实例,在窗体上单击右键,可以看到弹出式菜单效果。  Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As ...
  • Option Explicit  Private Sub Command1_Click()  CreateProgManGroup Me, "测试", "test.grp"  CreateProgManItem Me, "d:\ghost.exe", "Ghost"  CreateProgManItem Me, "d:\setupQQ.exe", "QQ" ...
    Option Explicit
      Private Sub Command1_Click()
      CreateProgManGroup Me, "测试", "test.grp"
      CreateProgManItem Me, "d:\ghost.exe", "Ghost"
      CreateProgManItem Me, "d:\setupQQ.exe", "QQ"
      End Sub
      Sub CreateProgManGroup(X As Form, GroupName$, GroupPath$)
      Dim i As Integer
      X.Label1.LinkTopic = "ProgMan|Progman"
      X.Label1.LinkMode = 2
      Rem 空循环使DDE有时间执行
      For i = 1 To 10
      DoEvents
      Next
      X.Label1.LinkTimeout = 100
      Rem LinkExecute 是在DDE通道中传送这样的命令
      '──建立一个名为GroupName $的程序组。
      X.Label1.LinkExecute "[ CreateGroup (" + GroupName$ + Chr$(44) + GroupPath$ + ") ]"
      X.Label1.LinkTimeout = 50 '恢复Label1 的属性值
      X.Label1.LinkMode = 0
      End Sub
      Sub CreateProgManItem(X As Form, CmdLine$, IconTitle$)
      Dim i As Integer
      X.Label1.LinkTopic = "ProgMan|Progman"
      X.Label1.LinkMode = 2
      For i = 1 To 10
      DoEvents
      Next
      X.Label1.LinkTimeout = 100
      X.Label1.LinkExecute "[AddItem(" + CmdLine$ + Chr$(44) + IconTitle$ + Chr$(44) + ", ,) ]"
      X.Label1.LinkTimeout = 50 '恢复Label1 的属性值
      X.Label1.LinkMode = 0
      Screen.MousePointer = 0
      End Sub

    展开全文
  • VB 创建菜单单选项.rar

    2019-07-10 17:59:47
    VB 创建菜单单选项,在菜单前面添加一个单选选项,带有选择性的菜单,在需要一些多选一功能的时候,这种菜单就派上用场了,如图所示的菜单效果。  Private Sub Menu_Click(Index As Integer) '菜单数组  Dim hMenu...
  • vb为程序创建快捷方式到开始菜单中,一个简单的小程序哟!!!!!
  • VB创建快捷方式

    2011-12-23 08:07:33
    可选择在桌面、程序组、快速启动栏、收藏夹、开始菜单、启动项中创建设定内容的快捷方式。
  • vb 创建xml

    2012-05-04 11:36:00
    引用:... ...1 打开VB6.0 File--->New Project---->Standard ExE---->OK 2 打开菜单Project---->Reference---->选中Micro...

     

    引用:http://hi.baidu.com/xoyowozo/blog/item/7544d9a8c0397ebdca130c7c.html

     

    1 打开VB6.0   File--->New Project---->Standard ExE---->OK

    2 打开菜单Project---->Reference---->选中Microsoft XML,V6.0---->OK

    3 打开菜单Project---->Components---->选中Microsoft Windows Common Controls 6.0---->确定,

    4 新建如下的Form

    5 在Form_Load 下添加代码

    ListView1.ColumnHeaders.Add , , "Flow", ListView1.Width / 2
    ListView1.ColumnHeaders.Add , , "Number", ListView1.Width / 2
    ListView1.View = lvwReport

    6 在CreateXML按钮下添加代码,新建一个XML文件

    Dim XmlDoc As DOMDocument
    Set XmlDoc = New DOMDocument
    XmlDoc.loadXML "<Data><Flow><Name>车加工</Name><Number>1</Number></Flow><Flow><Name>铣加工</Name><Number>2</Number></Flow></Data>"
    XmlDoc.save "d:\flow.xml"

    7在ReadXML按钮下添加代码

    Dim XmlDoc As DOMDocument
    Dim XMlRoot As IXMLDOMNode, XmlNode As IXMLDOMNode, XmlFor As IXMLDOMNode
    Dim XmlList As IXMLDOMNodeList, XmlListFor As IXMLDOMNodeList
    Dim i As Integer

    Set XmlDoc = New DOMDocument
    XmlDoc.Load "d:\flow.xml"
    Set XmlNode = XmlDoc.selectSingleNode("Data")
    Set XmlList = XmlNode.childNodes
    ListView1.ListItems.Clear
    For Each XmlFor In XmlList
        Set XmlListFor = XmlFor.childNodes
        With ListView1.ListItems.Add(, , XmlListFor.Item(0).Text)
            .SubItems(1) = XmlListFor.Item(1).Text
        End With
    Next

    7 F5运行,先点击CreateXML按钮,在点击ReadXML按钮,所得运行结果如图

    8 打开D盘下的Flow.xml文件,我们可以看到XML文件内容

    9 END

    转载于:https://www.cnblogs.com/sode/archive/2012/05/04/2482443.html

    展开全文
  • VB6.0菜单编辑器怎么用?

    千次阅读 2018-07-30 17:37:57
    使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。 ☀ 对话框选项 ♡ “标题” 使用该选项可以输入菜单名或命令名。 如果想要在菜单中建立分隔符条,则在“标题框”中键入一个连字符“...

    前言

    最近几天过得浑浑噩噩,不完成点任务感觉自己是在虚度时光,然后我就开始了“VB之旅”——菜单编辑器。

    详情

    ★ 在VB6.0窗体界面下,右键打开“菜单编辑器”。
    “菜单编辑器”对话框
    使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。
    对话框选项
    ♡ “标题”
    使用该选项可以输入菜单名或命令名。
    如果想要在菜单中建立分隔符条,则在“标题框”中键入一个连字符“-”。
    如果想通过快捷键访问菜单项,可在“标题框”中的内容前插入一个“&”符号,按Alt和字母就可访问菜单或命令。需注意,快捷键不能用于一级菜单,且“&”符号不在菜单中显示。
    如果要在菜单中显示“&”符号,则应在“标题框”中插入两个“&”符号。
    ♡ “名称”
    用来为菜单项输入控件名,控件名是标识符,仅用于访问代码中的菜单项,它不会出现在菜单中。
    ♡ “索引”
    可指定一个数字值来确定控件在控件数组中的位置。该位置与控件的屏幕位置无关。
    ♡ “快捷键”
    可在列表框中为每个命令选择快捷键。
    ♡ “帮助上下文 ID”
    允许为 context ID 指定唯一数值。在 HelpFile 属性指定的帮助文件中用该数值查找适当的帮助主题。
    ♡ “协调位置 ”
    该列表框中共有四个可选项, 他们决定是否及如何在容器窗体中显示菜单。
    ♡ “复选”
    允许在菜单项的左边设置复选标记。通常用它来指出切换选项的开关状态。
    ♡ “有效 ”
    由此选项可决定是否让菜单项对事件做出响应, 而如果希望该项失效并 以浅灰色显示出来,则也可取消对该复选框的选用。
    ♡ “可见”
    决定是否将菜单项显示在菜单上。
    ♡ “显示窗口列表 ”
    在 MDI 应用程序中,确定菜单控件是否包含一个打开的 MDI 子窗体列表。
    ♡ “右箭头 ”
    每次单击都把选定的菜单向右移一个等级。一共可以创建四个子菜单等级。
    ♡ “左箭头 ”
    每次单击都把选定的菜单向上移一个等级。一共可以创建四个子菜单等级。
    ♡ “上箭头 ”
    每次单击都把选定的菜单项在同级菜单内向上移动一个位置。
    ♡ “下箭头 ”
    每次单击都把选定的菜单项在同级菜单内向下移动一个位置。
    ♡ “菜单列表 ”
    该列表框显示菜单项的分级列表。 将子菜单项缩进以指出它们的分级位置或等级。
    ♡ “下一个 ”
    将选定项移动到下一行,往往是为建立下一个菜单项准备。
    ♡ “插入”
    在列表框的当前选定行上方插入一行。
    ♡ “删除”
    删除当前选定行。
    ♡ “确定”
    关闭菜单编辑器,并对选定的最后一个窗体进行修改。菜单可以在设计时使用,但在设计时可以通过选定一个菜单,来打开菜单单击事件的 “代码 ”窗口,而不是执行事件代码。
    ♡ “取消”
    关闭菜单编辑器,取消所有修改。

    后记

    我要淡定我要淡定我要淡定,重要的事情说三遍!

    展开全文
  • VB外接程序的制做二,在VB中创建您自己工具...有一点你必须知道,无论是创建按钮,还是创建菜单项,他们之间是没有区别的.只是有一些地方有一点点不同而已.怎样创建工具条呢?非常简单.VBI.CommandBars.Add cbsToolsBarName
    VB外接程序的制做
    二,在VB中创建您自己工具条和菜单
     创建工具条依然需要使用到VBI,只要和VB打交道,必须有它,同时在上篇文章所阐述的菜单项的制做方法是对你现在即将做的工作有用的.有一点你必须知道,无论是创建按钮,还是创建菜单项,他们之间是没有区别的.只是有一些地方有一点点不同而已.
    怎样创建工具条呢?非常简单.
    VBI.CommandBars.Add cbsToolsBarName
    此方法后面当然有其它可选参数,但是有些东西对于现在我要阐述的问题是无关的.
    Function Add([Name], [Position], [MenuBar], [Temporary]) As CommandBar
    [Position] 是位置.是浮动在VB中还是在VB的上边,下边,左边,右边?参数,你待参考 MsoBarPosition.至于 [MenuBar]参数,指定是哪个菜单栏啦,这个就自己去摸索吧.当然,最后一个参数,我也不知道它有什么用,单至少不会影响你当前的工作,而且以后也不会的.
    VBI.CommandBars.Add cbsToolsBarName中的cbsToolsBarName当然是我们的工具条名称.你最好用常量方式.每次向它加按钮时,将会节约你写汉字的事件,如果你写英文,当用户在工具栏点右键时出现的菜单里写的工具条名称是英文的.如果你写中文的话,就是中文的.在处理工具条上我不是高手,因为目前为止,我还不能向菜单条添加一个和[文件]菜单这样的菜单,只能添加它的子项.曾经有一次试图添加,但是可能由于不恰当,造成又一次的失败.如果你知道了一定别忘了告诉我!
    在添加了一个工具栏后,向工具条里添加按钮是和向[工具]这样的菜单中添加菜单项是一样的.只是结果是添加到你的工具条里了,同时字符串将用于按钮的ToolTipText而已,这里,你必须为每个按钮准备个图标,一般是32*32的.其它大小当然也可以,只是会变形而已.使用剪贴板加载图标,然后使用上篇文章中所说的PasteFace粘贴就可以了.无论何中格式,均可以添加到按钮上.只要是VB支持的图形.当然,VB支持GIF但是粘贴上的绝对不是动画.这个方法只是封装了BitBlt,把剪贴板中的图象放到一个 DC对象,然后BitBlt到按钮上而已.即使你加载一个GIF,按钮上只能看到的是GIF的第一帧,这何用[图画]程序打开一个GIF是一个道理.我把一段我在开发CoderHelper里用来添加按钮的代码复制出来给你也许它对你非常有用.
    
    
    Public Function AddToMenu(txtCaption As String, Owner As String, ResIconID As Long, Optional Before, Optional ID As Long) As CommandBarEvents
        Dim cMenu As Object
        Set cMenu = AddCommandBar(txtCaption, Owner, ResIconID, Before)
        '吸取事件
        Set AddToMenu = VBI.Events.CommandBarEvents(cMenu)
    End Function
    
    Function AddCommandBar(sCaption As String, Owner As String, ResIconID As Long, Optional Before) As Office.CommandBarControl
        Dim cbMenuCommandBar As Office.CommandBarControl  '命令栏对象
        Dim cbMenu As CommandBar
        On Error GoTo AddToAddInCommandBarErr
        '察看能否找到外接程序菜单
        Set cbMenu = VBI.CommandBars(Owner)
        If cbMenu Is Nothing Then
            '没有有效的外接程序,过程失败
            Exit Function
        End If
        '添加它到命令栏
        Set cbMenuCommandBar = cbMenu.Controls.Add(1, , , Before)
        '设置标题
        cbMenuCommandBar.Caption = sCaption
        Clipboard.Clear
        Clipboard.SetData LoadResPicture(ResIconID, vbResBitmap)
        '为此按钮设置图标
        cbMenuCommandBar.PasteFace
        Clipboard.Clear
        Set AddCommandBar = cbMenuCommandBar
        Exit Function
    AddToAddInCommandBarErr:
    End Function
    
    
    在 OnConnection 我是这样使用的.
    先  VBI.CommandBars.Add MyName 'MyName是工具条的名称常量,Public Const MyName = "程序员助手工具条" Public Const MyFunName = "程序员助手快捷命令" '这两个常量是在模块modMain中定义的.所以在整个CoderHelper中都可用.因此方便了你在任何一个子程序中添加按钮.虽然我不哪么对,原因非常实在,那样你就是非常愚蠢的,乱乱的代码会让你发疯,所以最好不要哪样做.VBI.CommandBars.Add MyName 完了后你可以象我下面的代码这么做
            Set cbeVBExport = AddToMenu("Share Dll编译向导", MyName, 109)
            Set PjtExplorer = AddToMenu("工程类浏览器", MyName, 113)
            Set ucFileEditor = AddToMenu("文件编辑器", MyName, 112)
            Set weCmdLine = AddToMenu("命令行", MyName, 111)
    109,112,113,111 是资源代码,在AddCommandBar中,LoadResPicture(ResIconID, vbResBitmap)的语句是针对位图资源的.而这些数字就是位ResIconID准备的.给你的代码省去了你很多事情,你要做的只是给按钮声明个事件名称,找个图片,找个字符串,然后把图片加载到资源文件中,然后 Set 事件名称= AddToMenu ("字符串",工具条名称,图片资源代码)
    然后在 象我在CoderHelper 中一样 :
    Private Sub cbeVBExport_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
       DoCommand "vbexport", ""
    End Sub
    就可以了.其中的三个参数很明显.这个现在不是我要为你所阐述的.这个目前的工作无关.不用去操心.干吗非操心与正题无关的呢!
    也许你可以看到,我的CoderHelper 中的 命令行 负责了很多任务.你猜对了.为了运行可靠,何编程的需要.这种方式是相当不错的.只要在 DoCommand 中处理好错误.其它地方就不用操心了!不用到处都是 On Error ....等代码.
    第一个按钮添加完了.添第二个是同样的方法.
    菜单是同样的道理.向菜单里添加些项.同样是这种方法.是没有任何区别的.到了这里你有可能发现,外接程序调用了Office 的运行库 mso.dll.包括目前所有微软的大软件,几乎都在使用它,这就是为什么有时候 Office 做了安装更改后启动VB时会无聊的运行 Office 的安装程序.
    展开全文
  • Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MenuStrip1.Items.Add("文件", Nothing, AddressOf menuItem_Click).Name = "mnuFile" ...
  • VB动态添加菜单项内容,在VB6.0的窗口中,动态添加菜单项子项内容,支持创建菜单父类和子类,或创建分级的菜单,程序小巧,在VB6下直接编译即可。
  • '窗体上没有菜单时,创建菜单。这种情况下需在设计阶段设置窗体的NegotiatMenu=False菜单才能显示出来。 hMenu = CreateMenu() End If '添加到0级菜单 hSubMenu = hMenu FullAllSubMenu hSubMenu '添加到1级菜单 ...
  • Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long Private Declare Function Cre
  • VB如何创建弹出式菜单的例子,通过这个例子你可快速上手制作Vb窗体设计中的弹出式菜单。也可称之是“右键菜单”吧,因为这种菜单是在窗口中单击鼠标右键后弹出的,很多软件使用过程中,都有类似的菜单效果。
  • VB 之 精 彩 编 程-创 建 位 图 菜 单
  • [img=https://img-bbs.csdn.net/upload/201601/09/1452303146_645301.jpg][/img] 如图所示,VB6中创建的Form2.0窗体不能用菜单编辑器创建菜单,怎么样可以方便快捷的为此窗体创建菜单
  • 怎样用VB的代码创建Access数据库用 ADOX:'菜单“工程"一>"引用"-> Microsoft ADO Ext.2.7 for DDL ado Security'建数据库:Private Sub Form_Load()Dim cat As ADOX.CatalogSet cat = New ADOX.Catalog'在当前...
  • Vb自定义右键菜单,调用保存、打开对话框,在菜单编辑器中,创建一级菜单菜单标题为PopupMenu 名称为b,创建三个二级菜单,标题为选项1,名称xuanxiang1,……在编辑菜单中,将“可见”对勾去掉。  MouseDown事件...
  • VB6多风格弹出菜单控件源码。使用此控件,可以方便地创建各种美观的弹出式菜单。支持添加菜单侧边栏,修改菜单的颜色等。

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 468
精华内容 187
关键字:

vb创建菜单