vb快速访问注册表的方法
VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Reg Demo"
ClientHeight = 6570
ClientLeft = 45
ClientTop = 435
ClientWidth = 7695
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6570
ScaleWidth = 7695
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox txtData
Height = 270
Left = 1200
TabIndex = 6
Text = "ExCFormParser"
Top = 5400
Width = 6375
End
Begin VB.TextBox txtRegKey
Height = 270
Left = 1200
TabIndex = 4
Text = "\Registry\Machine"
Top = 5040
Width = 6375
End
Begin VB.CommandButton cmdEnd
Caption = "End"
Enabled = 0 'False
Height = 495
Left = 2760
TabIndex = 2
Top = 5760
Width = 1455
End
Begin VB.CommandButton cmdStart
Caption = "Start"
Height = 495
Left = 1200
TabIndex = 1
Top = 5760
Width = 1455
End
Begin VB.ListBox lstMsg
Height = 4545
Left = 120
TabIndex = 0
Top = 360
Width = 7455
End
Begin VB.Label lblMsg
AutoSize = -1 'True
Caption = "String:"
Height = 195
Index = 2
Left = 120
TabIndex = 7
Top = 5445
Width = 450
End
Begin VB.Label lblMsg
AutoSize = -1 'True
Caption = "Reg Path:"
相关文档：
VB文本加密 特别设计到中文加密 让很多人费尽周折,经常会碰到解密中文出现乱码的情况
下面这篇文章将对此做了说明
代码也在文章里面包括
计算机世界2000年第36期
实现中文文本的加密方法
武汉交通科技大学计算机科学与工程系 吴业福
本文介绍了在VB6中实现中、英文文本加� ......
VB实现VC TabControl控件
新建一个工程文件Project1，
在左侧工具栏中点右键
在出现的选项中点“Components”，在打开窗口中找到“Controls”选项也中的“Microsoft Tabbed Dialog Control 6.0”，然后点“应用”“确定”退出该页� ......
'添加个picture1和command1
Option Explicit
Dim lngCenter As Long
Dim lngMax As Long
Dim lngPad&
Dim PCurrent As POINT, PLast As POINT
Private Type POINT
x As Long
y As Long
End Type
Private Sub Form_Load()
lngCenter = (Picture1.Top + Picture1.Height) / 2
lngMax = Pictu ......
1. ASC(X)，Chr(X)：转换字符字符码
[格式]：
P=Asc(X) 返回字符串X的第一个字符的字符码
P=Chr(X) 返回字符码等于X的字符
[范例]：
(1)P=Chr(65)
‘ 输出字符A,因为A的ASCII码等于65 ......
'创建快捷方式，兼容vista
'要把vb6stkit.DLL放到程序目录
'敖士伟 09-10-27
'只对“桌面”和“开启”有效，其它还没做
'=========开启外部同步程序定义开始
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF 'Wait forever
Const WAIT_OBJECT_0 = 0 'The state of the spe ......
