精华内容
下载资源
问答
  • VB6.0制作复选菜单源码实例,为菜单添加分割线,在菜单项的最前边添加一个对勾选项,勾选后某种功能可以打开或关闭。另外,本款菜单相当不错,它实际上是一个包括了多级菜单的实例 ,菜单中还添加了分割线和对勾的...
  • VB菜单中添加小图标

    2018-11-05 09:45:50
    VB菜单中添加小图标VB菜单中添加小图标VB菜单中添加小图标
  • VB 6 为窗体菜单设置背景图片,一个可随时更改背景图片的VB程序,为窗体菜单设置背景图片,设置标题栏背景图片,设置标题栏背景颜色,另外还用一些图标来美化了窗体上的菜单,让你的VB程序窗口更漂亮,运行效果截图...
  • 建立菜单如下 文件 ...............变化 (不可见) ............................................显示 ...............退出 下面通过弹出“变化”菜单,触发"显示"事件,使得上一级菜单”变化“可以显示...

    建立菜单如下

    文件

    ...............变化  (不可见)

    ............................................显示

    ...............退出


    下面通过弹出“变化”菜单,触发"显示"事件,使得上一级菜单”变化“可以显示出来

    Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = vbRightButton Then
            PopupMenu menuchange
        End If
    End Sub
    
    Private Sub menuDisplay_Click()
        menuchange.Visible = True
    End Sub
    

    可以看到,没有效果,”变化“菜单仍然处于不可见,为什么呢?代码没有错啊。


    把点击事件的代码去掉,跟踪发现

    尽管”变化“是不可见的,当弹出菜单时,会发现可见为真,当弹出菜单完成后会发现,可见为假。

    那么,我们把弹出菜单时置为假时,最后再置真时,就会发现它就会始终保持最后一句的状态。

    于是改为下面

    Private Sub menuDisplay_Click()
        menuchange.Visible = False
        menuchange.Visible = True
    End Sub

    这样,就可以激活上一级可见菜单。

    展开全文
  • VB6.0实现Office窗口风格的工具栏及多级菜单,一级一级的弹出式菜单,可支持五级或六级的子菜单展开功能,可满足大部分的软件设计需求。虽然是仿写的,不过功能很强大啊,用在你的软件中也是很不错的选择。
  • VB 带下拉菜单的工具栏 VB 带下拉菜单的工具栏
  • 易语言API创建菜单VB翻译版源码,OnMenu,CreateActiveMenu,FullAllSubMenu,API_添加菜单项1,API_创建空白菜单,API_创建空白弹出式菜单,API_重画菜单,API_取菜单,API_取条目数量,API_取子菜单句柄,API_SetMenu,API_...
  • 然后在所有菜单栏的点击事件里面调用该方法,例如: 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版窗体垂直折叠菜单特效,一个垂直菜单控件的实例源码,生成类似Outlook软件左侧的操作菜单那样,点击后可以展开二级子菜单,再点击会收起菜单,实例中包括了两款菜单样式,当然自己也可重新定制菜单样式,如演示...
  • 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
  • 内容索引:VB源码,界面编程,热键 Vb为窗体定制热键的源代码实例,定制成功后,如果要显示该窗体,只需按Ctl+Alt+A 即可,就像QQ的聊天窗口一样,一般是按Ctl+Z键即显示了,有些人还是比较喜欢热键的,究其本例的实现...
  • VB6.0 制作一个动态菜单,面向VB新手的范例,这种形式的菜单可能是大家见的比较多的了,点击菜单,动态显示出二级子菜单,与Windows窗口中的菜单大同小异。  为了更好的演示功能,这些菜单还定义了动作,比如弹出...
  • VB6 设置窗口

    2020-08-01 19:20:21
    VB6 设置窗口 VB6建立主窗体的窗体有两种方法: 第一种方法是建立一个MDI窗体,然后把普通的Form窗体设置成它的窗体。 第二种方法是使用Windows API设置一个普通form窗体为另外一普通窗体的窗体。 方法1操作...

    VB6 设置子窗口

    VB6建立主窗体的子窗体有两种方法:
    第一种方法是建立一个MDI窗体,然后把普通的Form窗体设置成它的子窗体。
    第二种方法是使用Windows API设置一个普通form窗体为另外一普通窗体的子窗体。

    方法1操作

    1.首先打开VB6,新建一个“标准 EXE”工程。

    在这里插入图片描述
    2.新建一个MDI窗体。

    在这里插入图片描述
    3.设置主窗体的"MDIChild"属性为True

    在这里插入图片描述
    可以看到,主窗体的图标已经变成了子窗体的图标

    在这里插入图片描述
    按F5运行,可以看到,MDIForm1里出现了Form1的窗口,这就说明子窗口创建成功。

    在这里插入图片描述

    方法2操作

    1.首先打开VB6,新建一个“标准 EXE”工程。

    在这里插入图片描述
    2.新建一个窗体

    在这里插入图片描述
    3.在Form1的代码框里输入以下代码

    Private Declare Function SetParent Lib "user32.dll" ( _
    ByVal hWndChild As Long, _
    ByVal hWndNewParent As Long) As Long
    

    注:要写在"(通用)-(声明)"过程里

    在这里插入图片描述

    4.在Form1的Private Sub Form_Load()过程里加入以下代码

    Form2.Show
    SetParent Form2.hWnd, Form1.hWnd
    Form2.Move 0, 0
    

    在这里插入图片描述
    运行一下,可以看到Form2已经是Form1的子窗体了。

    在这里插入图片描述

    展开全文
  • VB.Net程序设计:动态添加右键菜单和子菜单 具体分5步 1:定义一个ContextMenuStrip对象。 2:用withevents关键字声明一个ContextMenu对象Private WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu...

    VB.Net程序设计:动态添加右键菜单和子菜单

    具体分5步

    1:定义一个ContextMenuStrip对象。

    2:用withevents关键字声明一个ContextMenu对象Private WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu。

    3:对ContextMenu对象进行初始化。

    4:将ContextMenu对象加入ContextMenu对象。

    5:将ContextMenu对象与form对象绑定。

    例子:‘添加三个右键菜单,并每个菜单都添加两个子菜单,把右键菜单绑定到当前窗体

    	
    	Private cms As ContextMenuStrip =  New ContextMenuStrip() 
    	Dim i As Integer
    	
    	For  i = 1 To  3
    		Dim tsm As ToolStripMenuItem =  New ToolStripMenuItem(i.ToString()) 
    		Dim j As Integer
    		For  j = 1 To  2
    			Dim tsmz As ToolStripMenuItem =  New ToolStripMenuItem(j.ToString()) 
    			tsm.DropDown.Items.Add(tsmz)
    		Next
    		cms.Items.Add(tsm)
    	Next
    
    	Me.ContextMenuStrip = cms

    例子:http://bbs.csdn.net/topics/350192775

     Dim cm As New ContextMenu
            Dim m As New MenuItem("菜单项1")
            AddHandler m.Click, AddressOf MenuItemClicked
            cm.MenuItems.Add(m)
            Dim m2 As New MenuItem("菜单项2")
            AddHandler m2.Click, AddressOf MenuItemClicked
            cm.MenuItems.Add(m2)
            Me.ContextMenu = cm '设置窗体右键菜单
    绑定事件:
    Public Sub MenuItemClicked(ByVal sender As Object, ByVal e As EventArgs)
            Dim m As MenuItem = DirectCast(sender, MenuItem)
            MessageBox.Show(m.Text)
        End Sub

    读取菜单值:

    建议把sender 对象强制转换为菜单,你就可以任意访问该菜单对象的属性了。例如Text,例如Tag属性等。

    Dim menuItem As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
    Dim temp As String = menuItem.Text
    Dim  tag as object  = menuItem.tag


    '详细一点的:仅供参考!http://s.yanghao.org/program/viewdetail.php?i=51247 

    设置菜单的图标,是否合并,等。

    using System;
    using System.Collections.Generic;
    using System.ComponentModel;
    using System.Data;
    using System.Drawing;
    using System.Text;
    using System.Windows.Forms;
    
    namespace ContextMenuStripDemo
    {
        public partial class Form1 : Form
        {
            public Form1()
            {
                InitializeComponent();
               
            }
            private void InitListBox()
            {//添加ListBox的项
                for (int i = 0; i < 11; i++)
                {
                    this.listBox1.Items.Add(i);
                    this.listBox2.Items.Add(i);
                }
            }
            private void InitContextMenuStrip()
            {
                ContextMenuStrip contextMenuStrip = new ContextMenuStrip();//构造一个ContextMenuStrip
                contextMenuStrip.AllowMerge = false;//设置不能跟其他菜单合并
                ImageList imagelist = new ImageList();//设置图像集合
                imagelist.Images.Add(new Icon("delete.ico"));
                contextMenuStrip.ImageList = imagelist;
                contextMenuStrip.ShowCheckMargin = false;
                contextMenuStrip.ShowImageMargin = true;//显示图标在左边
                contextMenuStrip.ShowItemToolTips = true;//显示工具提示
                contextMenuStrip.TextDirection = ToolStripTextDirection.Horizontal;//水平显示文本
                contextMenuStrip.Opening += new CancelEventHandler(contextMenuStrip_Opening);
                this.listBox1.ContextMenuStrip = contextMenuStrip;//绑定到ListBox1控件
                this.listBox2.ContextMenuStrip = contextMenuStrip;//绑定到ListBox2控件
            }
    
            void contextMenuStrip_Opening(object sender, CancelEventArgs e)
            {
                ContextMenuStrip contextMenuStrip = sender as ContextMenuStrip;
                if (contextMenuStrip != null)
                {//第一次点击右键时,如果没有菜单项就添加
                    if (contextMenuStrip.Items.Count == 0)
                    {
                      ToolStripMenuItem itemDelete = new ToolStripMenuItem();
                      itemDelete.Text = "删除";
                      itemDelete.ImageIndex = 0;
                      itemDelete.Click += new EventHandler(itemDelete_Click);
                      contextMenuStrip.Items.Add(itemDelete);//增加菜单项
                     }
                }
                
            }
    
            void itemDelete_Click(object sender, EventArgs e)
            {
                ToolStripMenuItem Menuitem = sender as ToolStripMenuItem;
               ContextMenuStrip contextMenuStrip =  Menuitem.Owner as ContextMenuStrip;//获取父菜单对象
               if (contextMenuStrip != null)
               {//通过SourceControl获取目标控件
                   ListBox listBox = contextMenuStrip.SourceControl as ListBox;
                   if (listBox != null && listBox.SelectedIndex>-1)
                   {
                       listBox.Items.RemoveAt(listBox.SelectedIndex);
                   }
               }
                        }
    
            private void Form1_Load(object sender, EventArgs e)
            {
                InitContextMenuStrip();
                InitListBox();
            }
        }
    }
    

    展开全文
  • VB中关于下拉菜单的建立

    千次阅读 2019-01-26 14:56:13
    1.下拉菜单包含caption标题和name名称,建立的菜单栏相当于单击按钮。 2.默认建立的菜单栏是横向的,若需要建立纵向下拉菜单,单击红色箭头所指右移箭头,则菜单标题向下排列。 ...
  • VB6.0菜单编辑器怎么用?

    千次阅读 2018-07-30 17:37:57
    最近几天过得浑浑噩噩,不完成点任务感觉自己是在虚度时光,然后我就开始了“VB之旅”——菜单编辑器。 详情 ★ 在VB6.0窗体界面下,右键打开“菜单编辑器”。 ☀ “菜单编辑器”对话框 使用菜单编辑器可以为...
  • Project菜单------>Add to Project---->Components and Controls----->Registered ActiveX Controls--->选择Components: Microsoft Communications Control, version 6.0 插入到当前的Workspace中。 结果添加了类...
  • VB讲课笔记10:菜单与对话框

    千次阅读 2018-03-14 06:46:11
    VB讲课笔记10:菜单与对话框一、用户界面设计基础用户界面是应用程序最基本的组成部分,其内容包括界面基本元素的外观设计和实现相应功能的代码编制。 1、用户界面元素(User Interface Element) 窗体是用户界面...
  • '加入子菜单,令其ID>1000,说明其为自动生成的菜单 AppendMenu1 hPopMenuTmp, MF_STRING, 1000 + MenuCount, MenuText(MenuCount) '如果是间隔线,则wFlags=MF_SEPARATOR '如果要Check,则wFlags=MF_STRING + MF_...
  • VB TreeView 多级展开的树形菜单,可展开、折叠多级节点的菜单VB6下顺利编译,它可以无限级展开下去,只需你在程序里设置一下,每一项菜单中包含有复选框,可以同时选中菜单的某项是否生效。
  • 建立含有如下控件的窗体:控件NAME CAPTION INDEX弹出式菜单窗体FORMENU 弹出式窗口实例1菜单项MENUS 编辑子菜单项MENUS1 窗口移动0子菜单项MENUS1 窗口最小化1子菜单项MENUS1 窗口最大化2子菜单项MENUS1 - 3 &...
  • 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" ...
  • VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" ...Begin VB.Form Form1 BackColor ...
  • 介绍在VB中利用api函数AppendMenu新建子菜单
  • 一个实用的VB TreeView控件,可以支持多行内容的显示,并且可以展开折叠(收起)的树状菜单控件源码,可自定义颜色的Treeview菜单树,如测试图所示的效果,一共演示了三个使用此Treeview完成的效果,菜单树中的每一...
  • 新建(N)菜单下还有两个子菜单:文件夹和文件。因此作为顶层菜单时无法添加快捷键的,Ctrl+N。 但是我们却可以用另外一种方法的快捷键 在标题里,如果在字母前加上符号“&”,则显示菜单时...
  • 1、扩展菜单大致原理:利用PopUpMenu功能,事先做好扩展菜单以及子菜单,设置为隐藏属性,通过一定条件触发显示。 2、源码如下,供参考。 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''...
  • 我从一个Picturebox中右键弹出一个contextmenustrip的sourcecontrol...求教其子菜单获得其父菜单的sourcecontrol属性的值。。 在主contextmenustrip中加一个Opening事件,然后在道一专个全局变量中保存主contextmen.

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 11,324
精华内容 4,529
关键字:

vb子菜单