精华内容
下载资源
问答
  • VB模仿Windows开始菜单menuicq 内附源码,注释详细
  • 一个有趣的桌面菜单修改器,可以将开始菜单的“开始”修改为任何两个字,VB编写的源码,加了字体闪烁效果。黑色的窗体中有一行文字是不停闪烁,制作一些窗体文字效果的时候说不定能用上,演示如下图:
  • VB 6.0模仿Windows XP开始菜单,也就是做出彩色的、美观的菜单条,默认的菜单文字太小了怎么调整?修改font属性也没用
  • Vb添加开始菜单或桌面快捷方式,添加到收藏夹的代码
  • 内容索引:VB源码,系统相关,开始菜单  VB隐藏/显示windows的“开始菜单”,点一下按钮,开始菜单就会消失了,呜呜,不要这样哦,不过没关系,用本程序还能恢复的,一个小代码,供新手参阅,帮助了解了解Windows相关...
  • 控制开始菜单的弹出速度,VB 实例源代码。可以设置开始菜单的弹出速度,输入 1 and 1000 之间的数值", "开始菜单弹出速度值,重新启动电脑后生效。
  • VB在Windows桌面、开始菜单程序为软件建立快捷方式,再基础不过的初级VB代码了,打基础的VB朋友不妨参考一下,简单实用,如果想编写大型的软件,在桌面建立程序快捷方式是必需的,但是这并不复杂,而且还有本示例的...
  • 显示/隐藏开始菜单中关闭系统项的VB源码,这个不用多介绍吧,就是把开始菜单中的“关闭计算机”选项关掉,当然,通过本程序还可恢复该选项,具体的实现方法较简单,请查看源代码。
  • VB隐藏/显示windows的“开始菜单”,点一下按钮,开始菜单就会消失了,呜呜,不要这样哦,不过没关系,用本程序还能恢复的,一个小代码,供新手参阅,帮助了解了解Windows相关的编程知识。
  • vb为程序创建快捷方式到开始菜单中,一个简单的小程序哟!!!!!
  • VB6.0菜单编辑器怎么用?

    千次阅读 2018-07-30 17:37:57
    最近几天过得浑浑噩噩,不完成点任务感觉自己是在虚度时光,然后我就开始了“VB之旅”——菜单编辑器。 详情 ★ 在VB6.0窗体界面下,右键打开“菜单编辑器”。 ☀ “菜单编辑器”对话框 使用菜单编辑器可以为...

    前言

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

    详情

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

    后记

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

    展开全文
  • vb 添加URL快捷方式到收藏夹、开始菜单和桌面上
  • 这是一个比较基础而又实用的源代码,VB添加URL(网址)的快捷方式到开始菜单、桌面、收藏夹,在日常的开发中,我们经常需要用到这样的实例,尤其对于新手程序员,更是非常重要。 程序根据根据指定的文件夹获得pidl...
  • 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

    展开全文
  • 使用中,也许有时你会遇到“开始”和Cortana按钮忽然失效的情况,不但点击这些按钮没有任何反应,甚至连Win+S搜索组合键也失效了。这时,网上搜索到的一些技巧往往会告诉你先尝试重启系统。但是,如果因正在进行的...

    不断变化和更新的Windows 10在给人们带来惊喜的同时,也常常会带来一些不愉快。使用中,也许有时你会遇到“开始”和Cortana按钮忽然失效的情况,不但点击这些按钮没有任何反应,甚至连Win+S搜索组合键也失效了。这时,网上搜索到的一些技巧往往会告诉你先尝试重启系统。但是,如果因正在进行的任务不能中断,不便于重新启动电脑,又该如何解决呢?

    1. 杀掉系统Explorer进程

    首先通过Win+R组合键,激活“运行”框并运行下面的命令(图1):taskkill /f /im explorer.exe命令运行之后,连死锁的“开始”按钮和任务栏都会消失,此时Win+R组合键也失去作用,但此时Explorer进程已经被停止掉,我们只需想办法再次开启该进程即可。

    4b833591502ddc18fb7391dc883147e8.png

    2. 迂回重启Explorer进程

    由于通过“开始”菜单和Win+R组合键执行“运行”框的渠道均失效,因此,此时无法用常规的方法来运行命令以重启资源管理器的Explorer进程explorer.exe。在这种情况下,可以借助于热启动组合键Ctrl+Shift+Del来切入救急,获得解决问题的途径。

    按下Ctrl+Shift+Del组合键,在列表菜单中选择“任务管理器”,进入任务管理器之后,选择“文件→运行新任务”命令(图2)。

    3f7e2d5d9ae12830804d100c14389fc2.png

    在随后弹出的“新建任务”窗口中,选中“以管理员权限创建此任务”复选框,然后点击“浏览”按钮定位当前系统所在的Windows文件夹(图3);

    ba6d396b55d6dd9e788925593c1be657.png

    找到Windows目录后,再进一步定位explorer.exe文件,选择该文件并点击“打开”按钮(图4);随后返回到“新建任务”窗口中并点击“确定”,让explorer.exe服务重新加载。这样,消失的任务栏包括“开始”按钮和Cortana图标重新出现。

    95039b34dcec90f7412df164847a6a39.png

    经过上述操作之后,再点击“开始”按钮和Cortana按钮,发现均恢复正常。

    展开全文
  • 精彩编程与编程技巧-用VB6建立带光栅的超级开始菜单 ...
  • 原理 由于windows自身并未提供这项接口函数,因此我们必须从分析菜单的实质入手,我认为任何菜单实质上是一个没有标题栏的窗体,菜单项目是某些控件(如标签控件),通过监测鼠标是否移动到控件上而相应的改变控件的...
      原理 

      由于windows自身并未提供这项接口函数,因此我们必须从分析菜单的实质入手,我认为任何菜单实质上是一个没有标题栏的窗体,菜单项目是某些控件(如标签控件),通过监测鼠标是否移动到控件上而相应的改变控件的背景色和填充色,从而达到相应的目的,当然另外一项关键是如何制造出那一个倒立着的写着“windows98”字样的标题,这需要我们调用复杂的系统函数来实现。

      实践

      (1)运行vb6,建立一个标准exe工程,添加命名为form1的窗体,放上一个command控件“command1”,caption=“开始”,调整到适当的位置,双击窗体,写入以下代码:

    Private Sub Command1_Click()
     frmTest.Show ‘当开始按钮被点击时激活超级菜单
    End Sub

    Private Sub Form_Load()
     Me.left = (Screen.Width - Me.Width) / 2
     Me.tOp = (Screen.Height - Me.Height) / 2 ‘窗体位置居中
    End Sub

    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     If frmTest.Visible = True Then
      Unload frmTest
     End If ‘当鼠标离开菜单时卸载菜单
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
     End ‘结束程序
    End Sub

      (2) 添加命名为frmtest的窗体,添加一个picturebox控件,命名为piclogo,采用默认值就行了,添加控件数组label1(1--6)(读者可以根据自己的需要添加),caption=“菜单项目”,添加一个image控件,将它的图片设计为自己喜欢的图片,移动窗体和图片到适当位置,双击窗体,写入以下代码:

      Option Explicit
      Dim cL As New cLogo ‘引用类模块
      Private Sub Form_Load()
      Me.left = Form1.left
      Me.tOp = Form1.tOp - Form1.Height ‘指定窗体位置
      Me.Caption = App.Title ‘窗体标题
      cL.DrawingObject = picLogo ‘指定piclogo为载体
      cL.Caption = ″ 欢迎使用国产软件! --zouhero 2000 ″‘文本
      cL.StartColor = vbBlue ‘前段颜色-蓝色
      cL.EndColor = vbRed ‘后段颜色-红色
      End Sub
      Private Sub Form_Resize()
      On Error Resume Next
      picLogo.Height = Me.ScaleHeight
      cL.Draw
      End Sub
      Private Sub Label1_Click(Index As Integer)
      MsgBox ″你选择了菜单″ & Index, vbExclamation
      ’在这里添加你的相应代码
      End Sub
      Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
      Dim i As Integer ‘当鼠标移动标签控件时,前景色变成白色,背景色变成蓝色
       Label1(Index).BackColor = vbBlue
       Label1(Index).ForeColor = &HFFFFFF
       For i = 0 To Label1.Count - 1 ‘其他标签颜色恢复原状
      If i = Index Then GoTo aa
      Label1(i).BackColor = vbButtonFace
      Label1(i).ForeColor = &H0
      aa:
      Next ‘恢复除选定标签外的所有标签的前景色和背景色
      End Sub ‘代码结束

      (3)选择“工程”菜单-“添加类模块”,命名为clogo,写入以下代码:

    Option Explicit ’以下是令人眼花缭乱的win api引用

    Private Type RECT
     left As Long
     tOp As Long
     Right As Long
     Bottom As Long
    End Type

    Private Declare Function FillRect Lib ″user32″ (ByVal hDC As Long, lpRect As RECT, ByVal hBrush As Long) As Long

    Private Declare Function CreateSolidBrush Lib ″gdi32″ (ByVal crColor As Long) As Long

    Private Declare Function TextOut Lib ″gdi32″ Alias ″TextOutA″ (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

    Private Declare Function GetDeviceCaps Lib ″gdi32″ (ByVal hDC As Long, ByVal nIndex As Long) As Long

    Private Const LOGPIXELSX = 88

    Private Const LOGPIXELSY = 90

    Private Declare Function MulDiv Lib ″kernel32″ (ByVal nNumber As Long, ByVal nNumerator As Long, ByVal nDenominator As Long) As Long

    Private Const LF_FACESIZE = 32

    Private Type LOGFONT
     lfHeight As Long
     lfWidth As Long
     lfEscapement As Long
     lfOrientation As Long
     lfWeight As Long
     lfItalic As Byte
     lfUnderline As Byte
     lfStrikeOut As Byte
     lfCharSet As Byte
     lfOutPrecision As Byte
     lfClipPrecision As Byte
     lfQuality As Byte
     lfPitchAndFamily As Byte
     lfFaceName(LF_FACESIZE) As Byte
    End Type

    Private Declare Function CreateFontIndirect Lib ″gdi32″ Alias ″CreateFontIndirectA″ (lpLogFont As LOGFONT) As Long

    Private Declare Function SelectObject Lib ″gdi32″ (ByVal hDC As Long, ByVal hObject As Long) As Long
    Private Declare Function DeleteObject Lib ″gdi32″ (ByVal hObject As Long) As Long
    Private Const FW_NORMAL = 400
    Private Const FW_BOLD = 700
    Private Const FF_DONTCARE = 0
    Private Const DEFAULT_QUALITY = 0
    Private Const DEFAULT_PITCH = 0
    Private Const DEFAULT_CHARSET = 1
    Private Declare Function OleTranslateColor Lib ″OLEPRO32.DLL″ (ByVal OLE_COLOR As Long, ByVal HPALETTE As Long, pccolorref As Long) As Long
    Private Const CLR_INVALID = -1
    Private m_picThis As PictureBox
    Private m_sCaption As String
    Private m_bRGBStart(1 To 3) As Integer
    Private m_oStartColor As OLE_COLOR
    Private m_bRGBEnd(1 To 3) As Integer
    Private m_oEndColor As OLE_COLOR ’api声明结束

     ’以下代码建立建立类模块的出入口函数

    Public Property Let Caption(ByVal sCaption As String) ’
     m_sCaption = sCaption
    End Property

    Public Property Get Caption() As String ’标题栏文字
     Caption = m_sCaption
    End Property

    Public Property Let DrawingObject(ByRef picThis As PictureBox)‘指定目标图片
     Set m_picThis = picThis
    End Property

    Public Property Get StartColor() As OLE_COLOR ‘StartColor = m_oStartColor
    End Property

    Public Property Let StartColor(ByVal oColor As OLE_COLOR) ‘指定前段颜色
     Dim lColor As Long
     If (m_oStartColor <> oColor) Then
      m_oStartColor = oColor
      OleTranslateColor oColor, 0, lColor
      m_bRGBStart(1) = lColor And &HFF&
      m_bRGBStart(2) = ((lColor And &HFF00&) / &H100)
      m_bRGBStart(3) = ((lColor And &HFF0000) / &H10000)
      If Not (m_picThis Is Nothing) Then
       Draw
      End If
     End If
    End Property
    Public Property Get EndColor() As OLE_COLOR
     EndColor = m_oEndColor
    End Property

    Public Property Let EndColor(ByVal oColor As OLE_COLOR) ‘指定后段颜色
     Dim lColor As Long
     If (m_oEndColor <> oColor) Then
      m_oEndColor = oColor
      OleTranslateColor oColor, 0, lColor
      m_bRGBEnd(1) = lColor And &HFF&
      m_bRGBEnd(2) = ((lColor And &HFF00&) / &H100)
      m_bRGBEnd(3) = ((lColor And &HFF0000) / &H10000)
      If Not (m_picThis Is Nothing) Then
       Draw
      End If
     End If
    End Property

    Public Sub Draw() ‘画背景颜色
     Dim lHeight As Long, lWidth As Long
     Dim lYStep As Long
     Dim lY As Long
     Dim bRGB(1 To 3) As Integer
     Dim tLF As LOGFONT
     Dim hFnt As Long
     Dim hFntOld As Long
     Dim lR As Long
     Dim rct As RECT
     Dim hBr As Long
     Dim hDC As Long
     Dim dR(1 To 3) As Double
     On Error GoTo DrawError
     hDC = m_picThis.hDC
     lHeight = m_picThis.Height / Screen.TwipsPerPixelY
     rct.Right = m_picThis.Width / Screen.TwipsPerPixelY
     lYStep = lHeight / 255
     If (lYStep = 0) Then
      lYStep = 1
     End If
     rct.Bottom = lHeight
     bRGB(1) = m_bRGBStart(1)
     bRGB(2) = m_bRGBStart(2)
     bRGB(3) = m_bRGBStart(3)
     dR(1) = m_bRGBEnd(1) - m_bRGBStart(1)
     dR(2) = m_bRGBEnd(2) - m_bRGBStart(2)
     dR(3) = m_bRGBEnd(3) - m_bRGBStart(3)
     For lY = lHeight To 0 Step -lYStep
      rct.tOp = rct.Bottom - lYStep
      hBr = CreateSolidBrush((bRGB(3) * &H10000 + bRGB(2) * &H100& + bRGB(1)))
      FillRect hDC, rct, hBr
      DeleteObject hBr
      rct.Bottom = rct.tOp
      bRGB(1) = m_bRGBStart(1) + dR(1) * (lHeight - lY) / lHeight
      bRGB(2) = m_bRGBStart(2) + dR(2) * (lHeight - lY) / lHeight
      bRGB(3) = m_bRGBStart(3) + dR(3) * (lHeight - lY) / lHeight
     Next lY
     pOLEFontToLogFont m_picThis.Font, hDC, tLF
     tLF.lfEscapement = 900
     hFnt = CreateFontIndirect(tLF)
     If (hFnt <> 0) Then
      hFntOld = SelectObject(hDC, hFnt)
      lR = TextOut(hDC, 0, lHeight - 16, m_sCaption, Len(m_sCaption))
      SelectObject hDC, hFntOld
      DeleteObject hFnt
     End If
     m_picThis.Refresh
    Exit Sub
     DrawError:
     Debug.Print ″Problem: ″ & Err.Description
    End Sub

    Private Sub pOLEFontToLogFont(fntThis As StdFont, hDC As Long, tLF As LOGFONT) ‘文字字体
     Dim sFont As String
     Dim iChar As Integer
     With tLF
      sFont = fntThis.Name
      For iChar = 1 To Len(sFont)
       .lfFaceName(iChar - 1) =CByte(Asc(Mid$(sFont, iChar, 1)))
      Next iChar
      .lfHeight = -MulDiv((fntThis.Size), (GetDeviceCaps(hDC, LOGPIXELSY)), 72)
      .lfItalic = fntThis.Italic
      If (fntThis.Bold) Then
       .lfWeight = FW_BOLD
      Else
       .lfWeight = FW_NORMAL
      End If
      .lfUnderline = fntThis.Underline
      .lfStrikeOut = fntThis.Strikethrough
     End With
    End Sub

    Private Sub Class_Initialize()
     StartColor = &H0
     EndColor = vbButtonFace
    End Sub ‘模块定义结束 

     
    展开全文
  • 本节课程开始,我们一起来学习VB编程中的一个重要元素——菜单栏的设计。菜单栏是VB中一个重要内容,作为可视化编程,合理的设计菜单栏,可以极大的方便用户使用,让用户快速选择所需的各项功能,提升用户体验。下面...
  • 由于「粘贴」功能相当多,因此我们将分为多章来详细讲解,下面我们开始「粘贴」第一章。 下面先看看思维导图。 1、全部 「粘贴」的「全部」功能就是我们常用的「Ctrl + V」即粘贴所复制数据的所有单元的内容和格式...
  • VB显示多列菜单

    2008-07-21 14:17:07
    比如最常见的开始菜单,如果程序中有过多内容,便会自动折成两列乃至更多列。使用多列菜单可以使程序变得简洁、明确,方便用户的使用。但是,VB中自带的菜单编辑器无法直接实现多列菜单。 那么我们如何让自己的...
  •  '是否是父菜单(默认不是)  Private YNParentMenu As Boolean = False  Public Property SetParentMenu() As Boolean  Get  Return YNParentMenu  End Get  Set(ByVal value As Boolean)  ...
  • 可以说截图工具是很多条友在日常工作学习中不可或缺的工具软件之...点开始菜单,在键盘上输入“s"就会在开始菜单出现”截图工具“,先点“模式”设置截图模式,这里有任意格式截图、矩形截图、窗口截图和全屏幕截图...
  • 隐藏开始按钮或工具栏的VB源代码,主要功能,隐藏开始菜单,隐藏工具栏,显示工具栏和开始菜单,改变开始按钮位置,更换开始按钮等功能。
  • 隐藏开始按钮或工具栏的VB源代码,主要功能,隐藏开始菜单,隐藏工具栏,显示工具栏和开始菜单,改变开始按钮位置,更换开始按钮等功能。
  • 怎样控制form显示时任务栏不隐藏,并且点WIN键后开始菜单和任务栏也不弹出!现在想把FORM做成全屏显示,在画面运行过程中,不允许进行其他操作。 现在任务栏不显示好实现,可在画面运行当中点WIN键后,开始菜单和...
  • 正是因为这些,因为大家的无私,所以我也不能自私,呵呵,分享一下打造“自己2010选项卡”,2010选项卡的修改比2003版的菜单修改复杂了,希望能帮到一些对这方面感兴趣的朋友,由于水平够,里面有许多不足,欢迎大家...
  • 使用vb6自带的打包工具,生成的安装包,在win7下卸载后,在开始菜单中留有痕迹,怎么处理? xp下卸载没有问题。 这个打包工具的源码好像在vb安装目录下有,但是卸载不知道怎么改?
  • 如何用vb6建立带光栅的菜单2000-08-12 00:00作者:新天出处:yesky责任编辑:p> 编程爱好者一定对windows98中非常惹眼的“开始菜单羡慕不已,但是微软公司似乎对它的这个杰作存心垄断,它没有提供任何可供借用的...
  • 本节开始学习菜单和工具栏 MenuStrip菜单 MenuStrip本身没有什么可以介绍的属性和方法,重点在于菜单里面的子项。 双击添加MenuStrip,它会显示设计窗体的下面,此时可以进入菜单项的编辑: 当建好一个...

空空如也

空空如也

1 2 3 4 5 ... 15
收藏数 288
精华内容 115
关键字:

vb开始菜单