精华内容
下载资源
问答
  • VB菜单添加小图标

    2018-11-05 09:45:50
    VB菜单添加小图标VB菜单添加小图标VB菜单添加小图标
  • VB添加menu控件/菜单栏/工具条

    千次阅读 2019-12-17 14:56:39
    自己很久以前写的工程,今天要编辑一下菜单栏,类似这种: 点击就直接进代码窗口了,没法看到属性,增加不了选项。 费了好半天脑子,完全忘记了之前是怎么做的了。 切换到对象窗口,单击工具-菜单编辑器。 完...

    一个意思。

    自己很久以前写的工程,今天要编辑一下菜单栏,类似这种:

    点击就直接进代码窗口了,没法看到属性,增加不了选项。

    费了好半天脑子,完全忘记了之前是怎么做的了。

    切换到对象窗口,单击工具-菜单编辑器。

    完事儿。

    另外要查看属性的话,上面那个步骤也可以,另外就是在右边属性栏选择下拉框,

    就可以更改属性了。

    完事儿。

    展开全文
  • VB基础的自带菜单栏使用和微软控件toolbar的使用
  • 本人亲自修改验证过的,参考了网上的代码,网上大部分都是抄袭,写的很烂 这个是利用读取保存为ini文件在分别对应读取实现的!
  • VB导航菜单 仿QQ菜单

    2018-03-15 16:03:04
    比较不借的一个控件,用它可以制作仿QQ垂直折叠菜单一样的菜单,而且它还具有属性设置菜单,使用起来非常方便。
  • 本节课程开始,我们一起来学习VB编程中的一个重要元素——菜单栏的设计。菜单栏VB中一个重要内容,作为可视化编程,合理的设计菜单栏,可以极大的方便用户使用,让用户快速选择所需的各项功能,提升用户体验。下面...
    本节课程开始,我们一起来学习VB编程中的一个重要元素——菜单栏的设计。 菜单栏是VB中一个重要内容,作为可视化编程,合理的设计菜单栏,可以极大的方便用户使用,让用户快速选择所需的各项功能,提升用户体验。 下面以记事本为例,简要介绍一下菜单栏的组成。 3bdcd7cc3f5e51cccf1469d992f43e63.png 菜单栏: 菜单栏位于标题下方,一般由多个菜单标题组成。 快捷键: 可以为每个最底层的菜单 项设置一个快捷键,用户可以不用鼠标点击菜单,直接利用键盘上的快捷键执行相应的命令。顶层菜单不能设置快捷键,但可以设置访问键。 访问键: 为顶层菜单指定字母,利用Alt+字母,可以快速访问该菜单。 分隔条: 用于将属于同一类的菜单项分组显示。 菜单编辑器 那么,如何设置菜单呢?在VB中,提供了非常方便的“菜单编辑器”工具,利用该工具,可以快速设计自己的菜单。 菜单编辑器的调用 在VB菜单栏,选择工具——菜单编辑器,即可调出菜单编辑器。 27ed6513cc23901814afc60be287b2c3.png 菜单编辑器的组成 菜单编辑器由三个部分组成:菜单属性设置区、菜单编辑区和菜单列表区 dbeb82a7d2d9ff887eed3a78a4dc6b0c.png 菜单属性设置区 标题: 用于设备菜单栏上显示的文本,标题是必填项。         利用“(&+字母)”,可以为顶层菜单设置访问键。例如:文件(&F)         标题文本中输入符号"-",即插入一个分隔条。例如: 242b16176b0d10438bc8b79ccb918d90.png 97b0c6a59fb8ef95ed75b7cb24d0c02d.png 名称: 用来设置在代码中引用菜单项的名称,属于必填项,应符合标识符的声明要求。 索引: 在设置菜单数组的时候使用,用于指定菜单项在菜单数组中的下标。类似于控件数组中的索引。非必填项。 快捷键: 用于快速访问该菜单,非必填项,顶层菜单不可用。 帮助上下文ID: 指定一个唯一数值,可在帮助文件中查找适当的帮助主题,非必填项。 协调位置: 非必填项,仅顶层菜单可用。 复选: 如果选中,则菜单中将会在显示复选效果,首次打开时,将会显示“√”,顶层菜单不可用。默认为True。 有效: 决定菜单是否有效,即是否可用。如不可用,菜单标题将会显示灰色。 可见: 确定菜单是否可见。默认为True。 菜单编辑区: 4fbaaab8e5509403674b2332245381a8.png 1,使用左右箭头(←和→)两个按钮,可以改变菜单项的级别。每单击一次右箭头按钮,菜单项降一级,相反每按一次左箭头,则升一级。菜单项级别高是1级,即顶层菜单,最低级别是5级。 2,单击上下箭头(↑和↓)两个按钮,可以上移或下移菜单项,调整菜单所在位置。 点击“下一个”按钮,可以在当前菜单项下面插入一个新的菜单项。 3,单击“插入”按钮,可以在当前菜单项上面插入一个新的菜单项。 4,单击“删除”按钮,可以删除当前菜单项。 菜单项的单击事件 设置好菜单项后,需要对各个菜单项添加Click事件。菜单项只有一个事件,就是Click事件。退回到窗体界面后,单击对应的菜单项,即可自动调转到其事件过程的代码中,在其中编写需要的程序即可。 菜单栏设计举例: 下面请读者朋友设计一个如下所示的菜单栏。 393ffa111defe5e2ba51ff2a169d0d19.png a73c78d0ed194c45c111eb1b82b036ee.png 一、进入菜单编辑器,按照下图添加菜单项,名称写标题对应的英文或缩写。添加好后,单击确定。 9926d10bc843ca0a18e6cbcb864d0e0e.png 二、然后在窗体界面,为每个菜单项添加Click事件代码:
    Private Sub New_Click()        MsgBox "新建"End SubPrivate Sub Print_Click()        MsgBox "打印"End SubPrivate Sub Save_Click()        MsgBox "保存"End SubPrivate Sub amp_Click()        MsgBox "放大"End SubPrivate Sub red_Click()        MsgBox "缩小"End Sub

    好了,本节课程关于菜单栏设计的课程就到这里啦,再见。

    fca403ca3a04cbbc18c9369d0dbc9543.png

    展开全文
  • VB6.0封装Excel2003工具菜单栏加载宏
  • VB 为无标题窗体添加菜单,为无标题窗体添加菜单添加了一种弹出式菜单,窗口美化的挺漂亮,如示例截图所示,源码运行于VB6.0环境。相关代码:  Select Case Index  Case 0 '添加菜单  PopupMenu Frm_menu....
  • VB6 在窗体菜单中加入Radio单选按钮和Check复选按钮,平时我们已经见到过了,虽然比较小的应用,不过挺实用,用了会增加软件体验,为用户操作提供方便,Windows系统里就有,好像见惯不惯了。
  • 利用VB.net 在CAD2008里创建自己的菜单项,CAD二次开发
  • vb改变菜单文字的大小和颜色源码,只是样子有点丑,但是达到效果了
  • 内含3个OCX控件及VB源码,从网上收集的源码,做了小小的修改(修改了工具无法完全显示中文的错误、初始化时按钮高度和工具条高度不一致的错误,修改了状态在mdi窗口中无法正常使用的错误),这些控件对美化界面...
  • VB 6 为窗体菜单设置背景图片,一个可随时更改背景图片的VB程序,为窗体菜单设置背景图片,设置标题背景图片,设置标题背景颜色,另外还用一些图标来美化了窗体上的菜单,让你的VB程序窗口更漂亮,运行效果截图...
  • 从CSDN中下载,并进行完善,可以设置菜单颜色和字体大小,增加了分隔线功能、区分不可用菜单颜色
  • 然后在所有菜单栏的点击事件里面调用该方法,例如: Private Sub LineFitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineFitToolStripMenuItem1.Click ...

    首先定义一个方法:

    1    Private Sub SingleCheck(ByVal sender As Object)
    2         RawDataToolStripMenuItem.Checked = False
    3         TransToolStripMenuItem.Checked = False
    4         SmoothToolStripMenuItem.Checked = False
    5         LineFitToolStripMenuItem1.Checked = False
    6         sender.Checked = True
    7     End Sub

    然后在所有菜单栏的点击事件里面调用该方法,例如:

    Private Sub LineFitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineFitToolStripMenuItem1.Click
            SingleCheck(sender)
        End Sub
    

      

    转载于:https://www.cnblogs.com/Juli/p/11535307.html

    展开全文
  • VB制作带ICO图标的菜单实例,使软件窗口上的菜单更专业、更美观。实现思路:隐藏各Picture Box控件,使各Picture Box控件能够根据图片自动改变大小,得到窗口中菜单的句柄,得到第一个子菜单File的句柄,得到File...
  • 内容索引:VB源码,界面编程,自动隐藏,菜单栏 Vb制作一个可以自动隐藏的窗体菜单栏,当把鼠标移动到菜单区域的时候,菜单栏会自动出现,当移走的时候,菜单会自动隐藏起来,看上去像是一个没有任何菜单的基本窗体一样...
  • Public Class Menus '窗体载入 Private Sub Menus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load tspMain.Visible = True End Sub ... '菜单新建 Pr...

    Public Class Menus
        '窗体载入
        Private Sub Menus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            tspMain.Visible = True
        End Sub

        '菜单新建
        Private Sub 新建NToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 新建NToolStripMenuItem.Click
            TextBox1.Text = String.Empty
            TextBox2.Text = String.Empty
            TextBox1.Focus()
        End Sub

        '菜单退出
        Private Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click
            Me.Close()
        End Sub

        '菜单-视图-toolbar-Main
        Private Sub MainToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MainToolStripMenuItem.Click
            '主工具栏开关
            If MainToolStripMenuItem.Checked Then
                tspMain.Visible = True
            Else
                tspMain.Visible = False
            End If
        End Sub

        '菜单-视图-toolbar-formatting
        Private Sub FormattingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormattingToolStripMenuItem.Click
            'fomatting工具栏开关
            If FormattingToolStripMenuItem.Checked Then
                tspFormatting.Visible = True
            Else
                tspFormatting.Visible = False
            End If

        End Sub

        '菜单-编辑-撤消
        Private Sub 撤消UToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 撤消UToolStripMenuItem.Click
            If TypeOf Me.ActiveControl Is TextBox Then
                CType(Me.ActiveControl, TextBox).Undo()
            End If
        End Sub

        '菜单-编辑-剪切
        Private Sub 剪切TToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切TToolStripMenuItem.Click
            If TypeOf Me.ActiveControl Is TextBox Then
                CType(Me.ActiveControl, TextBox).Cut()
            End If
        End Sub

        '菜单-编辑-复制
        Private Sub 复制CToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制CToolStripMenuItem.Click
            If TypeOf Me.ActiveControl Is TextBox Then
                CType(Me.ActiveControl, TextBox).Copy()
            End If
        End Sub

        '菜单-编辑-粘贴
        Private Sub 粘贴PToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴PToolStripMenuItem.Click
            If TypeOf Me.ActiveControl Is TextBox Then
                CType(Me.ActiveControl, TextBox).Paste()
            End If
        End Sub

        '菜单-编辑-全选
        Private Sub 全选AToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全选AToolStripMenuItem.Click
            If TypeOf Me.ActiveControl Is TextBox Then
                CType(Me.ActiveControl, TextBox).SelectAll()
            End If
        End Sub

        '菜单-编辑-重复
        Private Sub 重复RToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 重复RToolStripMenuItem.Click
            If TypeOf Me.ActiveControl Is TextBox Then
                CType(Me.ActiveControl, TextBox).ClearUndo()
            End If
        End Sub

        '工具栏-新建
        Private Sub 新建NToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建NToolStripButton.Click
            新建NToolStripMenuItem_Click(sender, e)
        End Sub

        '工具栏-剪切
        Private Sub 剪切UToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切UToolStripButton.Click
            剪切TToolStripMenuItem_Click(sender, e)
        End Sub

        '工具栏-复制
        Private Sub 复制CToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制CToolStripButton.Click
            复制CToolStripMenuItem_Click(sender, e)
        End Sub
       
        '工具栏-粘贴
        Private Sub 粘贴PToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴PToolStripButton.Click
            粘贴PToolStripMenuItem_Click(sender, e)
        End Sub

        '上下文菜单-撤消
        Private Sub ContextUndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextUndoToolStripMenuItem.Click
            撤消UToolStripMenuItem_Click(sender, e)
        End Sub

        '上下文菜单-复制
        Private Sub ContextCopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextCopyToolStripMenuItem.Click
            复制CToolStripMenuItem_Click(sender, e)
        End Sub

        '上下文菜单-粘贴
        Private Sub ContextPasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextPasteToolStripMenuItem.Click
            粘贴PToolStripMenuItem_Click(sender, e)
        End Sub

        '上下文菜单-全选
        Private Sub ContextSelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextSelectAllToolStripMenuItem.Click
            全选AToolStripMenuItem_Click(sender, e)
        End Sub

    End Class
     

    展开全文
  • VB6.0实现Office窗口风格的工具及多级菜单,一级一级的弹出式菜单,可支持五级或六级的子菜单展开功能,可满足大部分的软件设计需求。虽然是仿写的,不过功能很强大啊,用在你的软件中也是很不错的选择。
  • vb任务图标右键菜单,任务右下角图标右键菜单VB源代码
  • VB菜单中出现图标,在窗口菜单前面加入小图标,本例演示了怎样在菜单中加入图标的方法,例中使用了三个WINAPI函数,利用这三个函数,我们可以对菜单进行定义。例子的一个缺陷是没有使用两张不同的图标来表示复选的...
  • VB 带下拉菜单的工具 VB 带下拉菜单的工具
  • 在窗体标题右键菜单增加自定义菜单,一款关于定制自定义菜单VB源代码,这种例子平时不是多见,可以说比较个性,效果演示如下图,喜欢的就赶紧下载源码吧!
  •  VB利用API函数实现菜单的显示与隐藏,如上图的窗口顶部的菜单中,当把鼠标移过去的时候它会显示、移开后自动隐藏,大体上实现了所需的功能,对API有研究的朋友,你不妒参考一下别人的编写思路。
  • c#MDI窗体打开子窗体,一般都会出现子窗体的标题栏,一般方法都是合并在MDI菜单栏中,该方法无需借助MDI菜单栏,直接隐藏子窗体标题栏
  • VB菜单、工具控件

    2013-05-17 22:35:45
    VB菜单、工具、状态控件,内含注册码,可以做出很漂亮的菜单。
  • 内容索引:VB源码,图形处理,标题 在标题菜单之间插个图片MenuPictureSample.rar
  • 内容索引:VB源码,界面编程,菜单 VB为工具菜单动态设置背景图,还可以设置背景颜色,使你的软件窗口更漂亮,更专业。
  • VB在状态中显示鼠标位置信息,本状态的左下角,可显示鼠标在本窗口中移动的鼠标位置信息,另外在窗口上部的工具中,增加了图文菜单的文字提示功能,当鼠标悬停于这些菜单时,你可看到菜单的提示文字。
  • VB 菜单工具综合应用 VB 菜单工具综合应用 VB 菜单工具综合应用

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 12,472
精华内容 4,988
关键字:

vb如何添加菜单栏