文件名称:
vb精彩编程200例（经典覆盖全面的编程实例）
开发工具:
文件大小: 390kb
下载次数: 0
上传时间: 2009-07-09
详细说明： VERSION 5.00 Begin VB.Form form1 BackColor = &H00FFC0C0& Caption = "在任务栏中禁用右键快捷菜单" ClientHeight = 1620 ClientLeft = 60 ClientTop = 345 ClientWidth = 3795 LinkTopic = &quo t;Form1" ScaleHeight = 1620 ScaleWidth = 3795 StartUpPosition = 1 '所有者中心 Begin VB.CommandButton Command3 BackColor = &H00FF8080& Caption = "退出" Height = 435 Left = 255 Style = 1 'Graphical TabIndex = 2 Top = 705 Width = 3300 End Begin VB.CommandButton Command2 BackColor = &H00FF8080& Caption = "允许使用任务栏中右键快捷菜单" Height = 435 Left = 1950 Style = 1 'Graphical TabIndex = 1 Top = 180 Width = 1590 End Begin VB.CommandButton Command1 BackColor = &H00FF8080& Caption = "禁止使用任务栏中右键快捷菜单" Height = 435 Left = 255 Style = 1 'Graphical TabIndex = 0 Top = 180 Width = 1590 End Begin VB.Label Label1 BackStyle = 0 'Transparent BeginProperty Font Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 15 TabIndex = 3 Top = 1215 Width = 3750 End End Attribute VB_Name = "form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Const REG_DWORD As Long = 4 Const HKEY_CURRENT_USER = &H80000001 Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" _ (ByVal hKey As Long, ByVal lpValueName As String) Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _ (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _ (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _ ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Private Sub Command1_Click() Dim hKey As Long RegCreateKey HKEY_CURRENT_USER, _ "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKey Dim L As Long L = 1 RegSetValueEx hKey, "notraycontextmenu", 0, REG_DWORD, L, 4 MsgBox "已禁止使用任务栏中的右键快捷菜单! 请重新启动计算机，试用任务栏中的右键快捷菜单。" RegCloseKey hKey End Sub Private Sub Command2_Click() Dim hKey As Long RegCreateKey HKEY_CURRENT_USER, _ "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKey RegDeleteValue hKey, "notraycontextmenu" MsgBox "已允许用任务栏中的右键快捷菜单! 请重新启动计算机，试用任务栏中的右键快捷菜单。" RegCloseKey hKey End Sub Private Sub Command3_Click() End End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
