精华内容
下载资源
问答
  • vb快捷菜单

    2011-11-08 11:09:23
    vb快捷菜单等一系列的小程序的应用
  • vb禁用窗体最大化、最小化和关闭快捷菜单,禁用最大化、最小化不可用,重点实现了禁止关闭窗口的功能,禁止后窗口上的关闭按钮变成灰色不可点击了,在实现方面,核心代码如下:  Private Sub Form_Load()  ...
  • 在任务栏中禁用右键快捷菜单VB6.0源代码
  • 内容索引:VB源码,系统相关,菜单,快捷方式 vb一个小例子,让你程序的快捷方式出现在Windows的开始菜单中,选择加入,则选择文件,将其快捷方式加入到Windows开始菜单->文档菜单中去,这个应该够实用吧,软件作者都...
  • 内容索引:VB源码,界面编程,菜单 VB弹出式窗体快捷菜单制作示例,这种菜单是怎么制作的呢?其实非常简单,不懂的请下载这个示例参阅一下,一看就会了埃
  • VB制作的弹出式菜单便捷程序,希望大家包含一下,谢谢
  • 这是一个比较基础而又实用的源代码,VB添加URL(网址)的快捷方式到开始菜单、桌面、收藏夹,在日常的开发中,我们经常需要用到这样的实例,尤其对于新手程序员,更是非常重要。 程序根据根据指定的文件夹获得pidl...
  • VB创建快捷方式

    2011-12-23 08:07:33
    可选择在桌面、程序组、快速启动栏、收藏夹、开始菜单、启动项中创建设定内容的快捷方式。
  • VB在Windows桌面、开始菜单程序为软件建立快捷方式,再基础不过的初级VB代码了,打基础的VB朋友不妨参考一下,简单实用,如果想编写大型的软件,在桌面建立程序快捷方式是必需的,但是这并不复杂,而且还有本示例的...
  • 内容索引:VB源码,系统相关,收藏夹,快捷方式 学习一些初学代码吧,对新手友好,Vb将程序快捷方式添加到收藏夹,添加URL快捷方式到桌面上,添加URL快捷方式到开始菜单。  程序根据根据指定的文件夹获得pidl,设置URL...
  • 大家都知道,在任务栏单击右键,... 那么用户如何用VB程序在任务栏中禁用右键快捷菜单呢?本资源包含的源程序代码将为您解答。 本资源压缩包内包含实现此功能的所有代码(不含控件),简单修改即可适应您的要求。
  • 摘要:VB源码,系统相关,收藏夹,快捷方式 VB创建网页快捷方式,程序可以把网页快捷方式添加到桌面、添加到收藏夹、添加到开始菜单。程序根据指定的文件夹获得程序的文件名,从窗体程序文件列表中获取程序文件的具体...
  • vb 添加URL快捷方式到收藏夹、开始菜单和桌面上
  • 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
     

    展开全文
  • vb语言实现的功能 实现的窗体和文本框的下拉和弹出式菜单
  • 摘要:VB源码,系统相关,快捷桌面,半透明窗体 VB6.0利用DrawIcon ,ExtractIcon保存程序图标.再利用shell 函数打开exe文件,两者结合即可做出一个小巧的快捷桌面.于2013.11.25所做,可把常用的程序图标添加到本快捷桌面...
  • 一个API使用实例,用VB移除TextBox文本框固有的右键信息,并自定义你喜欢的右键菜单,可上边的截图,这个功能还是很实用的。
  • VB在任务栏中禁用右键快捷菜单,当然禁用后可以恢复设置。注意,禁止使用任务栏中的右键快捷菜单,需要重新启动计算机后才生效,重启后请再试用任务栏中的右键快捷菜单
  • 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讲课笔记10:菜单与对话框

    千次阅读 2018-03-14 06:46:11
    VB讲课笔记10:菜单与对话框一、用户界面设计基础用户界面是应用程序最基本的组成部分,其内容包括界面基本元素的外观设计和实现相应功能的代码编制。 1、用户界面元素(User Interface Element) 窗体是用户界面...

    VB讲课笔记10:菜单与对话框

    一、用户界面设计基础

    用户界面是应用程序最基本的组成部分,其内容包括界面基本元素的外观设计和实现相应功能的代码编制。

      1、用户界面元素(User Interface Element)

      窗体是用户界面元素的容器,新建的窗体并不包含菜单栏、工具栏和状态栏等元素。窗体及其控制栏、标题栏、菜单栏、工具栏、控件和状态栏是Windows用户界面的基本元素。

      2、对话框(Dialog Box)

      对话框是应用程序与用户交互的重要手段,对话框也是窗口。通常,它不具有最大化

    展开全文
  • vb 右键弹出菜单

    千次阅读 2014-04-11 12:06:06
    打开“菜单编辑器”,按常规方法添加菜单。例如: ----------- 菜单 (名称为mnuPop) ....菜单1 (名称为mnuPop1) ....菜单2 (名称为mnuPop2) ----------- 把“标题”菜单的“可见”复选框去掉...
    请进行如下操作。
    打开“菜单编辑器”,按常规方法添加菜单。例如:
    -----------
    菜单  (名称为mnuPop)
    ....菜单1  (名称为mnuPop1)
    ....菜单2  (名称为mnuPop2)
    -----------
    把“标题”菜单的“可见”复选框去掉。
    添加如下代码:
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbKeyRButton Then PopupMenu mnuPop
    End Sub
    绝对没问题。
    展开全文
  • VB的鼠标右键弹出菜单

    热门讨论 2008-07-18 11:06:28
    比如用户在桌面上单击右键,就会调出快捷菜单。在程序中使用弹出式菜单,可以让程序更加人性化,操作更加简便。但VB自带的菜单编辑器只能设置窗体顶端的普通菜单。 那么我们如何让我们的程序可以有自己的鼠标...
  • 一级菜单显示“1.设置、2.开始游戏 3.退出”。用户输入自己的选择后,进入相应的二级菜单。比如,选择“2”,则进入“游戏”模块;当用户选择“3”时,退出系统。
  • 新建(N)菜单下还有两个子菜单:文件夹和...在标题里,如果在字母前加上符号“&”,则显示菜单时在该字母下面加一条下划线,可以通过Alt键与“带下划线的字母”键组合成快捷键打开菜单或执行相应的菜单命令
  • 快捷方式 Vb创建程序的快捷方式,思路方法及源码下载,在窗口中选择一个应用程序的EXE路径,比如截图上的所示,打开PhotoShop的可执行文件位置,程序会在C:\Documents and Settings\All Users\「开始」菜单\程序\...
  • 关于VB6弹出菜单的问题

    千次阅读 2015-11-01 05:06:33
    写一个小程序, 用VB6随意做下界面,离奇的发现弹出菜单居然没有效果,过程如下 创建一个窗体Form1,用菜单编辑器创建一个弹出菜单 弹出菜单子菜单项在这里名称为mPopup1,事件代码为: Option Explicit Private ...
  • 内容索引:VB源码,系统相关,右键菜单,任务栏 VB在任务栏中禁用右键快捷菜单,当然禁用后可以恢复设置。注意,禁止使用任务栏中的右键快捷菜单,需要重新启动计算机后才生效,重启后请再试用任务栏中的右键快捷菜单

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,273
精华内容 2,109
关键字:

vb快捷菜单