VB编程常用的注册表键值
1.HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\DisableCMD
功能：禁用或启用命令提示符（CMD）
设置：0：启用CMD
1：禁用CMD
数据类型：REG_DWORD
2.HKEY_CURRENT_USER\ Software \Microsoft\ Windows \CurrentV ersion \Policies \System\DisableRegistryTools
功能：禁用或启用注册表编辑器（Regedit）
设置：0：启用注册表编辑器
1：禁用注册表编辑器
数据类型：REG_DWORD
友情提示：
在试这个之前，最好先新建一个VB工程，然后将以下代码粘贴到Form_Load（）事件下，然后再试禁用注册表，如果发现运行注册表编辑器时显示注册表编辑器被禁用，就运行这个工程，当窗体出来时就可以解禁注册表管理器：
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.regwrite " HKEY_CURRENT_USER\ Software \Microsoft\ Windows \ CurrentV ersion \ Policies \System\ DisableRegistryTools", 0, "REG_DWORD"
3.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV ersion\Policies\System\ DisableTaskMgr
功能：禁用或启用任务管理器(TaskMgr)
设置：0：启用任务管理器
1：禁用任务管理器
数据类型：REG_DWORD
4.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV ersion\Run
功能：Windows开机自启动路径
设置：将程序的路径加入到此路径下，保存为REG_SZ类型，就可以开机自启动
数据类型：REG_SZ
5.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV ersion\Explorer\Advanced\Hidden
功能：是否将属性为隐藏的文件真的隐藏
设置：0：不真的隐藏（半透明显示）
1：真的隐藏
数据类型：REG_DWORD
6.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV ersion\Explorer\Advanced\HideFileExt
功能：是否隐藏文件的拓展名
设置：0：不隐藏
1：隐藏
数据类型：REG_DWORD
7.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV ersion\Explorer\User Shell Folders\Desktop
功能：获得桌面的路径
数据类型：REG_EXPAND_SZ
8.HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
功能：储存控制面板中的添加或删除页面的数据
数据类型：项
9.①HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentV ersion\Uninstall\~\DisplayIcon
功能：控制面板中的添加或删除页面的程序图标，设定后将可以在添加或删除页面看到这个图标，作为程序的图标设置：设置为图标所在的路径
数据类型：REG_SZ
②HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentV ersion\Uninstall\~\DisplayName
功能：控制面板中的添加或删除页面的程序名称
设置：自定义的程序名称
数据类型：REG_SZ
③HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentV ersion\Uninstall\~\DisplayVersion
功能：控制面板中的添加或删除页面的程序版本
设置：自定义的程序版本
数据类型：REG_SZ
④HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentV ersion\Uninstall\~\Publisher
功能：控制面板中的添加或删除页面的程序的技术支持，软件发行者栏
设置：自定义的软件发行者名称，如：×××公司
数据类型：REG_SZ
⑤HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentV ersion\Uninstall\~\UninstallString
功能：控制面板中的添加或删除页面的程序的卸载程序
设置：指向这个程序的卸载程序的路径，可以在当中添加参数，如将值设定为：
F:\abc.exe /s
这样当通过控制面板的添加/删除启动卸载程序时，程序就会获得值为S的参数，在程序中可以用Command（）函数获得程序的启动参数。
数据类型：REG_SZ
⑥HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentV ersion\Uninstall\~\URLInfoAbout
功能：关于控制面板中的添加或删除页面的程序的网页
设置：网络路径（以http://开头的字符串）
数据类型：REG_SZ
⑦HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentV ersion\Uninstall\~\ EstimatedSize
功能：程序文件的大小的大小
设置：自己程序文件大小的1024倍，自己的程序文件以MB为单位计算。
数据类型：REG_DWORD
备注：在注册表中的10进制数据是以KB为单位的，而添加删除中是以MB为单位的。，如果注册表中的值转换为进制值后，得到的值不足1024，添加删除就直接以KB为单位。
10.H KEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\ShellFolder\Attributes
功能：显示或隐藏我的电脑
设置：&HFFFFFFFF：隐藏我的电脑
&H0：显示我的电脑
数据类型：REG_BINARY
11.H KEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{645FF040-50
81-101B-9F08-00AA002F954E}
功能：显示/隐藏回收站
设置：删除：隐藏回收站
恢复：显示回收站
数据类型：REG_DWORD
12.H KEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentV ersion\Policies\Explorer\NoNetHood
功能：显示或隐藏网上邻居
设置：0：显示网上邻居
1：隐藏网上邻居
数据类型：REG_DWORD
13.HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SafeBoot\Minimal\{4D36E96B-E325-11CE-BFC1-08002BE1 0318}
功能：管理系统安全模式下的键盘
设置：删除，禁用安全模式下的键盘（安全模式下键盘失效）
恢复，恢复使用安全模式下的键盘
数据类型：项
友情提示：
在尝试这一项前，最好先在注册表编辑器中的这一项上单击右键，选择导出，然后将这一项导出到用以查找的地方，然后再删除这一项，进行试验，在试验后双击导出的文件（拓展名是*.reg），然后导入回注册表，以恢复注册表。对于下面的也应该这样做。
14.HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SafeBoot\Minimal\{4D36E96F-E325-11CE-BFC1-08002BE1 0318}
功能：管理系统安全模式下的鼠标
设置：删除，禁用安全模式下的鼠标（安全模式下鼠标失效）
恢复，恢复使用安全模式下的鼠标
数据类型：项
15. HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt
功能：管理IE右键菜单
设置：项名就是菜单名
默认值是程序路径
数据类型：项
16.HKEY_CLASSES_ROOT\.*
功能：注册一个拓展名为*的文件关联
设置（默认值）：文件关联的描述
数据类型：项
17. HKEY_CLASSES_ROOT\文件关联的描述
功能：管理一个文件关联
设置（默认值）：文件关联的描述
Defaulticon项的默认值：文件的图标
Shell项的默认值：Open
Shell项的子项：文件的右键菜单
数据类型：项
备注：1.Defaulticon和Shell项都在【HKEY_CLASSES_ROOT\文件关联的描述】下
2.open是设置启动程序的项，如果在当中的默认值中输入“%1” %*，的话，而且这种拓展名的文件是按照PE 文件的格式写成的，那么这种拓展名的文件就可以像EXE一样运行。
18. HKEY_CLASSES_ROOT\文件关联的描述\Shell\Open\Command
功能：管理一个文件关联,在对应的有这个文件拓展名的文件的右键菜单添加一个菜单项。
设置（默认值）：文件关联的程序+ 空格+“%1”
数据类型：REG_SZ
备注：空格不能漏。
19.HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services
功能：向系统中添加一个服务
设置（默认值）：文件关联的描述
Defaulticon项的默认值：文件的图标
Shell项的默认值：Open
Shell项的子项：文件的右键菜单
数据类型：项
20.HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Power\AwayModeEnabled
功能：设置系统的离开模式是否有效（Win7，Vista）
设置：1：生效
0：无效
数据类型：REG_DWORD
21.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV ersion\Policies\Explorer\AlwaysShowClassicMenu
功能：设置Windows系统的菜单是否总是显示
设置：0：不总是显示
1：总是显示
数据类型：REG_DWORD
22.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV ersion\Policies\Explorer\NoCDBurning
功能：设置Windows系统的光盘是否都不自动运行
设置：存在这个项：不自动运行
不存在这个项：自动运行
数据类型：REG_DWORD
VB编程常用的注册表键值 1.HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\DisableCMD 功能：禁用或启用命令提示符（CMD） 设置：0：启用CMD 1：禁用CMD 数据类型：REG_DWORD 2.HKEY_CURRENT_USER\ Software \Microsoft\ Windows \CurrentV ersion \Policies \System\DisableRegistryTools 功能：禁用或启用注册表编辑器（Regedit） 设置：0：启用注册表编辑器 1：禁用注册表编辑器 数据类型：REG_DWORD 友情提示： 在试这个之前，最好先新建一个VB工程，然后将以下代码粘贴到Form_Load（）事件下，然后再试禁用注册表，如果发现运行注册表编辑器时显示注册表编辑器被禁用，就运行这个工程，当窗体出来时就可以解禁注册表管理器： Set WSHShell = CreateObject("WScript.Shell") WSHShell.regwrite " HKEY_CURRENT_USER\ Software \Microsoft\ Windows \ CurrentV ersion \ Policies \System\ DisableRegistryTools", 0, "REG_DWORD" 3.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV ersion\Policies\System\ DisableTaskMgr 功能：禁用或启用任务管理器(TaskMgr) 设置：0：启用任务管理器 1：禁用任务管理器 数据类型：REG_DWORD 4.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV ersion\Run 功能：Windows开机自启动路径 设置：将程序的路径加入到此路径下，保存为REG_SZ类型，就可以开机自启动 数据类型：REG_SZ 5.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV ersion\Explorer\Advanced\Hidden 功能：是否将属性为隐藏的文件真的隐藏 设置：0：不真的隐藏（半透明显示） 1：真的隐藏 数据类型：REG_DWORD 6.HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV ersion\Explorer\Advanced\HideFileExt 功能：是否隐藏文件的拓展名
练习一 一、选择题 1、下面列出的程序设计语言中（A ）是面向问题的语言。 A、机器语言 B、汇编语言 C、高级语言 D、0、1二进制语言 解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（D ）不属于VB 6.0的版本。 A、学习版 B、专业版 C、企业版 D、共享版 解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题 1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。 3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。 练习二 一、选择题 1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为蓝色的语句正确的是（ A ） A、Forma1.Backcolor=vbBlue B、Backcolor= vbBlue C、Forma1 =vbBlue D、Forma1′s Backcolor is vbBlue. 2、下面方法中，不能打开编码编辑器的是（D） A、单击“视图”菜单中的“代码窗口”命令。 B、双击窗体设计器的窗体或控件。 C、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。 D、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。 3 、保存VB应用程序时，下列方法中正确的是（Ａ） A、先保存窗体文件，再保存工程文件。 B、先保存工程文件，再保存窗体文件 C、直接保存窗体文件，系统会自动按顺序先保存窗体文件再保存工程文件。 D、直接保存窗体文件，系统会自动按顺序先保存工程文件再保存窗体文件。 二、填空题 1、VB工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。 2、选中工程资源管理器中的窗体对象，再单击按钮可打开窗体设计器。 3、在VB中，按下工具栏中的“启动”按钮或
一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub
注册表键值大全 使系统没有“运行”选项 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRu n 让操作系统无“关闭系统”选项 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoCl ose 让操作系统无“注销”选项 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLo gOff 让操作系统无逻辑驱动器C HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDr ives 让操作系统无法切换至传统DOS的实模式下 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\N oRealMode 让系统登录时显示一个登录窗口，以下是写入启动弹出对话框标题 HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\Legal Noti ceCaption 写入启动弹出对话框内容 HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\Legal Noti ceText 二、对IE 相关注册表项值项的修改 设置浏览器默认主页 HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\First Home Page
VB程序设计的常用算法 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 For i = 1 To If a(i) < 10 Then Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i); End If If Then Next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来For i = 1 To 100 p = a(i) Mod 10 ' 求个位上的数字 If p = 0 Then p = 10 Next i Form1.Print "统计结果" For i = 1 To 10 p = i If i = 10 Then p = 0 Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个" Next i End Sub 二、求两个整数的最大公约数、最小公倍数 m=inputBox("m=") n=inputBox("n=") nm=n*m If m < n Then r=m mod n Do While m=n n=r
用VB5实现窗口图象缩放、滚动技巧 成都理工学院计算机工程系 洪志全 ---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。 ---- 一、获取图像 ---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。 ---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。 ---- 二、图像缩放 ---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为: PaintPicture Pic,DestX,DestY,DestWidth, DestHeight,ScrX,ScrY,ScrWidth,ScrHeight ---- 其中,Pic 为图片对象, 如图形控件对象等; DestX,DestY为目标图像起始坐标; DestWidth,DestHeight为目标图像幅面尺寸; ScrX,ScrY为源图像起始坐标; ScrWidth,ScrHeight为源图像剪裁尺寸。 ---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或
第一章 1 从功能上讲，Visual Basic 6.0有3种版本，即：学习版、专业版、企业版 2 与传统的程序设计语言相比，Visual Basic最突出的特点是事件驱动编程机制。 3 Visual Basic 6.0集成环境的主窗口中含有标题栏、菜单栏、工具栏 4用标准工具栏中的工具按钮不能执行的操作是打印源程序。 5关于Visual Basic"方法"的概念错误的是方法是对事件的响应 6在Visual Basic中，称对象的数据为属性 7Visual Basic应用程序可以用解释方式执行也可以用编译方式执行 第二章 1 计时器控件的Interval属性用于设置Timer事件发生的时间间隔，为了暂时关闭计时器，应把该计时器的Enabled 属性设置为False ，如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于1000 2 利用Ctrl + G操作可以打开立即窗口。 3 假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为：Lable1.BackStyle = 0 Lable1.BorderStyle = 0 4在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口 5 在Visual Basic中，窗体文件的扩展名为FRM 6 窗体的Name属性指定窗体的名称，用来标识一个窗体 7 改变控件在窗体中的上下位置，应修改该控件的属性是Top 8 表示滚动条控件取值范围最大值的属性是Max 9 如果要改变窗体的标题，则需要设置的属性是Caption 10 在文本框（Text）中，通过ForeColor属性来设置字体颜色 11 若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置Passwordchar属性值 为* 12 能够改变复选框中背景颜色的属性是Backcolor 13 图片框是不具有Picture属性的对象 14 窗体的Name属性指定窗体的名称，用来标识一个窗体 15 要想返回文本框中输入的内容则可利用text属性进行编程 第三章 1用于从字符串左边截取字符的函数是Left( )，设a="Visual Basic"，使b="Basic"的语句是b=Left(a,8,5)。 2下列符号中哪个是VB程序中合法的变量名：A ab7 B 7ab C If D a*bc （A）数字开头，关键字，* 3X是小于100的非负数，用VB表达式表达正确的是0<=X and X<100 4设有如下变量声明Dim TestDate As Date 为变量TestDate正确赋值的表达方式是 TextDate=#1/1/200 2# 5表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是5，设a=3,b=5，则表达式(a>b)Or(b>0)值为真。5/5.25 为1 如果除数与被除数不是整数时，系统会自动对其进行取整运算，取整是有规律的：如果整数部分为偶数，大于 0.5的就进位，小于等于0.5的就直接把小数去掉，5舍6入；如果整数部分为奇数，4舍5入。例如： 5\2.5等价于5\2 5\2.6等价于5\3 6函数String(n，"str")的功能是返回由n个字符组成的字符串 7设有如下声明： Dim X As Integer 如果Sgn(X) 的值为-1，则X的值是小于0的数Sgn(3-5)=-1 Sgn(5-3)=1 8Integer类型的数据由2字节组成，Long类型的数据由4字节组成。 9已知X＜Y，A＞B，正确表示它们之间关系的式子是Sgn(Y-X)-Sgn(A-B)=-2 10在一个有①逻辑运算②算术运算及③关系运算混合在一起的表达式(无括号)中，其运算顺序为②③①
1、求半径为r的圆的面积，要求用户从键盘输入半r。 程序代码： Private Sub Form_click() Const PI = 3.14 Dim r% Dim s! r = InputBox("请输入半径r的值：", "求圆的面积") s = PI * r * r Form1.FontSize = 16 Print "半径是" + Str(r) + "的圆的面积是" + Str(s) End Sub 2、输入三个整数，从小到大顺序输出。 程序代码： Private Sub Form_click() a = InputBox("a") b = InputBox("b") c = InputBox("c") Print "排序前："; a, b, c If a > b Then t = a: a = b: b = t If a > c Then t = a: a = c: c = t If b > c Then t = b: b = c: c = t Print "排序后："; a, b, c End Sub 3、输入三个整数，从大到小顺序输出。 程序代码： Private Sub Form_click() a = InputBox("a") b = InputBox("b") c = InputBox("c") Print "排序前："; a, b, c If a 注册表五大根键详解
HKEY_CLASSES_ROOT HKEY_CURRENT_USER HKEY_LOCAL_MACHINE HKEY_USERS HKEY_CURRENT_CONFIG HKEY_CLASSES_ROOT 展开HKEY_CLASSES_ROOT根键会发现其中包含的子项目非常多，这些子项中所储存的都是已经在系统中注册的各类文件的扩展名，以及文件关联等信息，本人的HKEY_CLASSES_ROOT根键里有，最少有几千个项 HKEY_CURRENT_USER HKEY_CURRENT_USER根键中储存了，计算机当前用户的配置信息，其中包括、应用程序配置，网络连接等 HKEY_LOCAL_MACHINE HKEY_LOCAL_MACHINE是注册表的一个重要分支，储存了windows系统和绝大多数数应用程序的数据信息，包括windows内存信息、硬件设备驱动程序，系统安全数据库、系统配置信息和已经安装的应用程序软件信息等。 HKEY_USERS 同HKEY_CURRENT_USER根键相比HKEY_USERS根键保存了所有用户的配置信息，而后者保存的则是当前用户的配置信息。如果用户的计算机只以一个用户名登录，则HKEY_USERS根键中存放的数据信息同HKEY_CURRENT_USER根键中存放的数据信息完全一致 HKEY_CURRENT_CONFIG HKEY_CURRENT_CONFIG根键存放着当前系统中硬件配置文件的信息，在注册表的几个根键中，HKEY_CURRENT_CONFIG根键同其他几个根键相比在本质上有一些差别，因为HKEY_CURRENT_CONFIG根键不是一个单独存在的根键，该根键中的内容只是HKEY_LOCAL_MACHINE根键下 SYSTEN\CurrentControlSet\Hardware Profiles\Current子项内容的一个映像，二者的内容完全相同
常用命令 FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。 FontItalic属性是逻辑型，决定对象上正文是否是斜体。 窗体的其它常用属性 2．Icon 控制图标属性：返回或设置窗体左上角显示或最小化时显示的图标。 注意：此属性必须在ControlBox属性设置为Ture才有效 3．ControlBox控制菜单框属性：设置Ture为有，如设置为False则无控件菜单，同时窗体也无最大化按钮和最小化按钮，即使MaxButton属性和MinButton属性设置为Ture。 5. BorderStyle：边框风格, 通过改变BorderStyle 属性，可以控制窗体如何调整大小。 0-None：无边框； 1-Fixed Single：单线边框，不可以改变窗口大小； 2-Sizable：双线边框，可以改变窗口大小； 3-Fixed Double：双线框架，不可以改变窗口大小。 4-Fixed Tool Window:窗体外观与工具条相似。有关闭按钮，不可以改变窗口大小。 5-Sizable Tool Window：窗体外观与工具条相似。有关闭按钮，可以改变窗口大小。 6. WindowsState属性 用来设置窗体的运行状态。 0-Normal：正常窗口状态，有窗口边界； 1-Minimized：最小化状态，以图标方式运行； 2-Maximized：最大化状态，无边框，充满整个屏幕。 7. AutoRedraw属性 该属性决定窗体被隐藏或被另一窗口覆盖之后，是否重新还原该窗体被隐藏或覆盖以前的画面。即是否重画如Circle、Line、Pset和Print等方法的输出。 当为True时，重新还原该窗体以前的画面。 当为False时，则不重画AutoRedraw属性。 4 Resize事件 无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。 5 Activate事件：当窗体由非活动窗体变为活动窗体，即当窗体得到焦点时触发该事件。窗体常用的方法有： 打印输出Print 移动Move 清除Cls 显示Show 隐藏Hide等方法。 方法的使用的形式: [对象.]方法[参数] 1.Print方法 形式: [窗体名.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，] 作用: 在对象上输出信息 Spc(n)函数：插入n个空格，允许重复使用。 Tab(n)函数：从窗体第n列开始输出，允许重复使用。 ；(分号)：光标定位上一个显示的字符后(紧凑格式)。 ，(逗号)：光标定位在下一个打印区的开始位置处。每个打印区占14列(标准格式)。无；，换行。
从Windows 95开始，Microsoft在Windows中引入了注册表（英文为REGISTRY）的概念（实际上原来在Windows NT中已有此概念）。注册表是Windows 95及Windows 98 的核心数据库，表中存放着各种参数，直接控制着Windows的启动、硬件驱动程序的装载以及一些Windows应用程序运行的正常与否，如果该注册表由于鞭种原因受到了破坏，轻者使Windows的启动过程出现异常，重者可能会导致整个Windows系统的完全瘫痪。因此正确地认识、修改、及时地备份以及有问题时恢复注册表，对Windows用户来说就显得非常重要了。 一、注册表的结构划分及相互关系 WINDOWS的注册表有六大根键，相当于一个硬盘被分成了六个分区。 在“运行”对话框中输入RegEdit，然后单击“确定”按钮，则可以运行注册表编辑器。 Windows 98中文版的注册表Registry(System.dat、User.dat、Config.pol)的数据组织结构。注册表的根键共六个。这些根键都是大写的,并以HKEY_为前缀;这种命令约定是以Win32 API的Registry函数的关键字的符号变量为基础的。 虽然在注册表中，六个根键看上去处于一种并列的地位，彼此毫无关系。但事实上，HKEY_CLASSES_ROOT和HKEY_CURRENT_CONFIG中存放的信息都是 HKEY_LOCAL_MACHINE中存放的信息的一部分，而HKEY_CURRENT_USER中存放的信息只是HKEY_USERS存放的信息的一部分。 HKEY_LOCAL_MACHINE包括HKEY_CLASSES_ROOT和HKEY_CURRENT_USER中所有的信息。在每次系统启动后，系统就映射出HKEY_CURRENT_USER中的信息，使得用户可以查看和编辑其中的信息。 实际上，HKEY_LOCAL_MACHINE\SOFTWARE\Classes就是HKEY_CLASSES_ROOT，为了用户便于查看和编辑，系统专门把它作为一个根键。同理， HKEY_CURRENT_CONFIG\SY-STEM\Current Control就是 HKEY_LOCAL_MACHINE\SYSTEM\Current Control。 HKEY_USERS中保存了默认用户和当前登录用户的用户信息。HKEY_CURRENT_USER 中保存了当前登录用户的用户信息。 HKEY_DYN_DATA保存了系统运行时的动态数据，它反映出系统的当前状态，在每次运行时都是不一样的，即便是在同一台机器上。 根据上面的分析，注册表中的信息可以分为HKEY_LOCAL_MACHINE和HKEY_USERS 两大类，这两大类的详细内容请看后面的介绍。 二、六大根键的作用 在注册表中，所有的数据都是通过一种树状结构以键和子键的方式组织起来，十分类似于目录结构。每个键都包含了一组特定的信息，每个键的键名都是和它所包含的信息相关的。如果这个键包含子键，则在注册表编辑器窗口中代表这个键的文件夹的左边将有“＋”符号，以表示在这个文件夹中有更多的内容。如果这个文件夹被用户打开了，那么这个“＋”就会变成“－”。 1.HKEY_USERS
注册表键值和作用详解 《增加CD/DVD-ROM缓存》（WIN9X） [HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\FileSystem\CDFS] "CacheSize"=hex:6b,02,00,00（默认） "Prefetch"=hex:e4,00,00,00（默认） 《优化文件系统》（WIN9X） [HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\FileSystem] "ConfigFileAllocSize"=dword:000001f4 《提高软盘驱动器的读写速度（使之具备后台存储管理功能）》（WIN9X） [HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\fdc\0000] "ForeFifo"=dword:00000000 《删除系统无用的动态链接库（DLL文件）》 [HEKY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\SharedDLL] [注]每个DLL文件的键值说明此DLL被几个应用程序共享，若为"01 00 00 00"则此DLL文件被一个应用程序共享。若为 "00 00 00 00"则该DLL文件对系统不起作用，说明它是一个^^文件，删除该键值，并且删除硬盘中的这个DLL文件。 《查看系统中的16位和32位DLL文件》 [HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager\Known16DLLs]（16位）（WIN9X）[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager\KnownDLLs]（32位） 《Windows自动刷新/手动刷新》 [HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Update] "UpdateMode"=hex:00,00,00,00（自动刷新）/01,00,00,00（手动刷新） ] 《在系统属性里显示更多的CPU信息》（WIN9X） [HKEY_LOCAL_MACHINE\Hardware\Description\System\CentralProcessor\0] "VendorIdentifier"="Genuine Intel"（注意空格） 《解决一些英文软件在中文版Windows下乱码问题》 [HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\fontassoc\Associated CharSet] "GB2312(86)"="no"（WIN9X） "SYMBOL(02)"="no"（WIN2000） 《解决删除虚拟光驱后原光驱无法使用的问题》 [HKEY_LOCAL_MACHINE\Enum\SCSI]（WIN9X）
注册表修改指南——注册表各键值详解 您可以可以按Ctrl+F键进行页面内搜索来方便地找到您想要的内容。 开始菜单及相关设置 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoRecentDocsMenu"=dword:00000001（隐藏开始->文档菜单） "NoRecentDocsHistory"=dword:00000001（禁止将打开的文档存入历史记录）"ClearRecentDocsOnExit"=dword:00000001（退出系统自动清除历史记录，包括文档、运行和查找）"NoFavoritesMenu"=dword:00000001（隐藏开始->收藏夹菜单） "NoSMHelp"=dword:00000001（隐藏开始->帮助菜单）（WIN2000/ME/XP） "NoFind"=dword:00000001（禁用查找/搜索） "NoRun"=dword:00000001（禁用运行，禁止IE访问本地资源，除非输入"桌面"，禁止WIN2000/XP 通过任务管理器创建新任务） "NoLogOff"=dword:00000001（禁用注销）（WIN9X） "StartMenuLogOff"=dword:00000001（禁用注销）（WIN2000/XP） "NoClose"=dword:00000001（禁用关闭系统/关闭计算机） "NoSetFolders"=dword:00000001（隐藏控制面板、打印机/网络连接，WIN2000/XP仅从开始菜单隐藏；此外还禁用WIN+E快捷键） "NoSetTaskbar"=dword:00000001（禁止设置任务栏和开始菜单） "NoFolderOptions"=dword:00000001（从开始->设置菜单和资源管理器菜单中删除文件夹选项）"NoWindowsUpdate"=dword:00000001（从开始菜单中删除Windows Update，禁止到Windows Update网站升级） "NoSetActiveDesktop"=dword:00000001（从开始->设置菜单中删除活动桌面）（WIN9X）"NoActiveDesktop"=dword:00000001（禁用活动桌面，WIN9X/2000在桌面右键菜单和显示属性里不出现相关项目） "NoActiveDesktopChanges"=dword:00000001（禁止更改活动桌面，在显示属性里不出现相关项目） 资源管理器设置 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoFileMenu"=dword:00000001（隐藏Explorer中的文件菜单）"NoNetConnectDisconnect"=dword:00000001（禁止使用资源管理器或网上邻居映射或断开网络驱动器） "NoWebView"=dword:00000001（禁止按Web页查看）（WIN2000/XP） 隐藏桌面图标 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "Nodesktop"=dword:00000001（隐藏桌面所有图标） "NoNetHood"=dword:00000001（隐藏桌面网上邻居图标） "NoInternetIcon"=dword:00000001（隐藏桌面Internet Explorer图标） 禁止使用鼠标右键
A,B,C排序由大到小 Dim a As Single,b As Single,c As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If b>a Then d=a:a=b:b=d End If If c>a Then d=a:a=c:c=d End If If c>b Then d=b:b=c:c=d End If Text4.Text=a Text5.Text=b Text6.Text=c End Sub Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" Text5.Text="" Text6.Text="" End Sub 计算a+b Private Sub Command1_Click() Text4.Text=Val(Text2.Text)+Val(Text3.Text) Text1.Text="欢迎新同学" End Sub 清除
Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" End Sub 奇偶数显示器 显示 Private Sub Command1_Click() Dim a As Integer a=Val(Text1.Text) If a/2=Int(a/2)Then Text2.Text="您输入的数是偶数" Else Text2.Text="您输入的数是奇数" End If End Sub 清除 Private Sub Command2_Click() Text1.Text="" Text2.Text="" End Sub 奇偶数判断 Dim a,b As Integer Dim result As Integer a=Val(InputBox("请输入一个整数","数的输入",300,400)) b=Val(InputBox("请输入一个整数","数的输入",300,400)) If a/2=Int(a/2)Then result=MsgBox("您输入的数:"&a&"是一个偶数",1,"判断结果") Form1.Print rusult Else m="您输入的数:"&a&"是一个奇数" result=MsgBox("您输入的数:"&a&"是一个奇数",1,"判断结果") Form1.Print result End If If b/2=Int(b/2)Then result=MsgBox("您输入的数:"&b&"是一个偶数",1,"判断结果") Form1.Print rusult Else result=MsgBox("您输入的数:"&b&"是一个奇数",1,"判断结果")
注册表 9X、2000、XP、2003所有注册表设置（很全很详细） 《开始菜单及相关设置》 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoRecentDocsMenu"=dword:00000001（隐藏开始->文档菜单） "NoRecentDocsHistory"=dword:00000001（禁止将打开的文档存入历史记录）"ClearRecentDocsOnExit"=dword:00000001（退出系统自动清除历史记录，包括文档、运行和查找） "NoFavoritesMenu"=dword:00000001（隐藏开始->收藏夹菜单） "NoSMHelp"=dword:00000001（隐藏开始->帮助菜单）（WIN2000/ME/XP） "NoFind"=dword:00000001（禁用查找/搜索） "NoRun"=dword:00000001（禁用运行，禁止IE访问本地资源，除非输入"桌面"，禁止WIN2000/XP 通过任务管理器创建新任务） "NoLogOff"=dword:00000001（禁用注销）（WIN9X） "StartMenuLogOff"=dword:00000001（禁用注销）（WIN2000/XP） "NoClose"=dword:00000001（禁用关闭系统/关闭计算机） "NoSetFolders"=dword:00000001（隐藏控制面板、打印机/网络连接，WIN2000/XP仅从开始菜单隐藏；此外还禁用WIN+E快捷键） "NoSetTaskbar"=dword:00000001（禁止设置任务栏和开始菜单） "NoFolderOptions"=dword:00000001（从开始->设置菜单和资源管理器菜单中删除文件夹选项）"NoWindowsUpdate"=dword:00000001（从开始菜单中删除Windows Update，禁止到Windows U
SQL注册表键值 SQLServer的注册表项使用技巧六则 SQL Server的管理和Windows的管理是息息相关的.通过Windows的注册表来管理SQL Server有时候非常方便,废话不多说,给出一些我长期使用或者收藏的注册表技巧给大家分享(注:所 有项目在windows2003+SQL Server2000开发版下验证通过) wriiten by:billpu 1 获得修改 SQL Server 注册: HKEY_CURRENT_USER\Software\Microsoft\Microsoft SQL Server\80\Tools\SQLEW\Registered Servers X\SQL Server Group 每一个键值对应SQL Server数据库注册表项,直接删除即可。(80对应SQL Server2000版本) 2 更改SQL Server的登录验证方式,这个大家应该相对熟悉, csdn上经常有人问这样的问题. sa用户密码也忘记了，然后由于安全原因把windows登陆的 那个登录名去掉了 ,这时只需要更改下列注册表项就可以. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\MSSQLServer 编辑LoginMode值,将原值从1改成2 (1为windows验证,2为混合验证),最后重启SQL Server服务不要忘记) 3 查看SQL Server 版本及其他信息 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\Setup Editon值:版本比如Enterprise Edition就是企业版