vb实例操作举例（精选3篇）
vb实例操作举例 第1篇
用 VB 5读写注册表实例 -------------------------------------------------------------------------------- ∈紫刃陆ㄒ桓龉こ蹋?谛陆ǖ拇疤迳咸砑右韵驴丶?⑸柚孟嘤κ粜裕?br 控件名 属性 值 Label1 Caption 注册表键值： Label2 Caption 注册姓名： Lab
用VB5读写注册表实例
--------------------------------------------------------------------------------
∈紫刃陆ㄒ桓龉こ蹋?谛陆ǖ拇疤迳咸砑右韵驴丶?⑸柚孟嘤κ粜裕?br> 控件名 属性 值
Label1 Caption 注册表键值：
Label2 Caption 注册姓名：
Label3 Caption 空
Label4 Caption 注册公司：
Label5 Caption 空
Label6 Caption 空
Text1 Text 空
Text2 Text 空
Command1 Caption 写入注册表
Command2 Caption 退出
然后，在程序的声明部分添加如下代码：
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 RegQueryValueEx Lib “advapi32.dll” Alias “RegQueryValueExA” (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData 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
Const error_suclearcase/“ target=”_blank“ >ccess = 0&
Const error_baddb = 1009&
Const error_badkey = 1010&
Const error_cantopen = 1011&
Const error_cantread = 1012&
Const error_cantwrite = 1013&
Const error_registry_recovered = 1014&
Const error_registry_corrupt = 1015&
Const error_registry_io_failed = 1016&
Const hkey_classes_root = &H80000000
Const hkey_current_user = &H80000001
Const hkey_local_machine = &H80000002
Const REG_SZ = 1
Const regkey = ”softwareMy SoftMy program“
接着为各个控件添加代码，代码如下：
Private Sub Command1_Click
Dim keyvalue As String
Dim retvalue As Long
Dim keyid As Long
retvalue = RegCreateKey(hkey_local_machine, regkey, keyid)
keyvalue = Text1.Text
retvalue = RegSetValueEx(keyid, ”注册名“, 0&, REG_SZ, ByVal keyvalue, Len(keyvalue) + 1)
keyvalue = Text2.Text
retvalue = RegSetValueEx(keyid, ”注册公司“, 0&, REG_SZ, ByVal keyvalue, Len(keyvalue) + 1)
If Text1.Text $#@60;$#@62; ”“ And Text2. t $#@60;$#@62; ”“ Then
Label3.Caption = Text1.Text
Label5.Caption = Text2.Text
End If
End Sub
Private Sub Command2_Click()
Unload Me
End
End Sub
Private Sub Form_Load()
Dim retvalue As Long
Dim result As Long
Dim keyid As Long
Dim keyvalue As String
Dim subkey As String
Dim bufsize As Long
Label6.Caption = regkey
retvalue = RegCreateKey(hkey_local_machine, regkey, keyid)
If retvalue = 0 Then
subkey = ”注册名“
retvalue = RegQueryValueEx(keyid, subkey, 0&, REG_SZ, 0&, bufsize)
If bufsize $#@60; 2 Then
keyvalue = ”“
retvalue = RegSetValueEx(keyid, subkey, 0&, REG_SZ, ByVal keyvalue, Len(keyvalue) + 1)
Else
keyvalue = String(bufsize + 1, ” “)
retvalue = RegQueryValueEx(keyid, subkey, 0&, REG_SZ, ByVal keyvalue, bufsize)
keyvalue = Left$(keyvalue, bufsize - 1)
Text1.Text = keyvalue
End If
Label3.Caption = keyvalue
subkey = ”注册公司“
retvalue = RegQueryValueEx(keyid, subkey, 0&, REG_SZ, 0&, bufsize)
If bufsize $#@60; 2 Then
keyvalue = ”“
retvalue = RegSetValueEx(keyid, subkey, 0&, REG_SZ, ByVal keyvalue, Len(keyvalue) + 1)
Else
keyvalue = String(bufsize + 1, ” “)
retvalue = RegQueryValueEx(keyid, subkey, 0&, REG_SZ, ByVal keyvalue, bufsize)
keyvalue = Left$(keyvalue, bufsize - 1)
Text2.Text = keyvalue
End If
Label5.Caption = keyvalue
End If
End Sub
好了，存盘，按F5运行程序，在两个Text中分别写入你的“注册姓名”和“注册公司”的名称，然后单击“写入注册表”按钮，现在打开“注册表编辑器”，找到HKEY_LOCAL_MACHINESOFTWAREMy SoftMy Program，看看右边是不是生成了“注册名”和“注册公司”两个键值，是的话，恭喜你，你成功了，
用VB5读写注册表实例VB
，
原文转自：www.ltesting.net
vb实例操作举例 第2篇
一、用VB6.0进行串行通信程序的设计方法简介
用visual basic6.0进行串行通信程序的设计有两种方式: (1) 直接调用Windows API。 (2) 使用通信组件。该方式实际上是通过通信组件间接调用Windows API函数, 其过程要比直接调用API要复杂, 但在程序上容易实现。使用MSComm控件时, 实际上就是使用了API函数, API函数将被Comm.drv解释并传送给外围设备驱动程序, 使用MSComm的用户只需要关心如何使用MSComm所提供的属性或事件, 以驱动API函数的接口完成工作。
二、串行通信程序的执行过程
MSComm控件通过串行端口传输和接收数据, 为应用程序提供串行通
信功能。该控件提供了两种处理通信的方式:
1、事件驱动通信。
事件驱动通信是处理串行端口交互作用的一种非常有效的方式。在使用事件驱动通信时, 每当有一个字符到达或端口状态发生改变, 或发生错误时, MSComm控件将触发On Comm事件进行捕获, 通过检查MSComm控件的Comm Event属性获知所发生的事件或错误, 从而采取相应的操作处理这些通信事件。这种方法的优点是程序响应及时, 可靠性高。
2、查询法。
该方法可以在程序的每个关键功能之后, 通过检查Comm Event属性的值来查询事件和错误。每个使用的MSComm控件对应着一个串行端口。如果应用程序需要访问多个串行端口, 必须使用多个MSComm控件。
查询法适合于较小的应用程序, 在这种情况下, 每当应用程序执行完某一串行口操作后, 将不断检查MSComm控件的Comm Event属性, 以检查执行结果或检查某一事件是否发生。
而进行串行通信时一般有两种传输方式:
(1) 字符形式:通常以小于ASCII码128的字符码来传递, 通常用于传送指令。
(2) 二进制形式:将数据以二进制编码的方式传递, 它可能含有ASCII码128以上的字符码。通常用来传送数据, 以提高速度。
三、串行通信实例
下面以一个实例来演示MSComm控件的主要属性。根据程序需要, 进行以下操作步骤:
1、新建工程。启动VB后, 新建一个标准的EXE工程。
2、设计用户界面。
(1) 在“工具”菜单中选中“部件”, 在“控件”选项卡中选择“Microsoft Comm Controls6.0”。然后从工具箱中将MSComm添加到窗体Form1中。 (2) 给窗体Form1添加1个计时器控件, 3个命令按钮控件, 并设置控件的相关属性。 (表1)
vb实例操作举例 第3篇
关键词VB计算机基础 操作教学 批阅软件
运用VB优化了计算机基础教学,实际教学中的效果良好。本文对此进行了研究。
一、界面设计与文件结构
界面设计:按照软件结构图设计好界面。文件结构:设计好每一套试题,并建立好相应的目录。题目少可以用文本文件来存储。题目多可以用Access数据库来存储。这样只要给数据库设置个密码就可以保证题库的安全性了。开发工具采用VB,一是因为VB适合快速开发,相对于VC等开发软件更易于上手,而且开发的效率高、周期短。二是因为Word、Excel等office软件里的宏都是VBA,而VBA是VB的一个子集,两者可以很好地结合,并且利用宏可以帮助快速有效地写出阅卷程序。
二、选题
设计好界面和题目后就可以编写各功能模块的代码了。当学生选择某一套试卷后,就要执行选题操作。对文件和文件夹进行操作需要使用FSO(File System Object)对象模型,FSO的功能非常强大,它能创建、改变、移动、删除文件/文件夹;能检测文件、文件夹是否存在,文件、文件夹的路径;能获取文件、文件夹的信息,如:名称、创建日期等。要使用FSO,首先必须在工程中引用Microsoft Scripting Runtime。采用与题库中各库表对应的试卷表———理论试卷表、操作系统试卷表、文档处理表等。
下面以抽取单选题为例说明其组卷过程如下:
(1)考试要求库。
(2)取出单选题题量。
(3)从单选题库中筛选符合要求(范围)的题目。
(4)判断题数<题量,若是则显示错误信息,退出。
(5)抽题数=0。
(6)判断抽题数<=题量,否则进入下一大题抽取。
(7)产生在1———题数范围内的随机整数。
(8)判断该题是否抽过,若是则返回(7),重新产生。
(9)抽取该题入理论题库。
(10)抽题数增加1,返回。
(11)抽取下一大题。选题主要使用了FSO复制文件和复制文件夹这两个方法,及CopyFile和CopyFolder。部分代码如下:Public Ex(5)As String'定义一个字符串数组用于存放试卷名Public fso As New FileSystemObject'定义一个fso对象Private Sub Form_Load()'窗体显示时初始化Ex()数组中的值Ex(1)="试卷一"Ex(2)="试卷二"Ex(3)="试卷三"Ex(4)="试卷四"Ex(5)="试卷五"End Sub因为每一个选题按钮的功能都是类似的,惟一不同的就是所抽取的试题名称不一样,所以可以将选题按钮做成按钮控件数组,以提高程序开发效率,也便于以后的源程序维护。这样,将试题的文件名用数组变量来表示,就可以用一段程序来实现所有按钮的选题功能。Private Sub Button1_Click(Index As Integer)'当点击某一套的按钮后执行选题操作fso.CreateFolder“(c:考生文件夹”)'在c盘下建立考生文件夹,路径和目录名可自已设定。fso.CopyFile App.Path&“xxjshkExcel”&Ex(in-dex)&“.xls”,“C:考生文件夹”&Ex(index)&“.xls”'复制Excel试题文件fso.CopyFolder App.Path&"xxjshkWebDo",“C:考生文件夹WebDo”'复制网页试题文件夹End Sub上述主要以复制Excel试题为例,复制其它试题方法类似。判断文件或文件夹是否存在通常使用fso的FileExists()和FolderExists()方法。
三、阅卷功能的实现
学生做完练习题后,需要点击“阅卷”按钮来反馈成绩。计算机教学中常见的操作试题类型有:Windows操作题、Word操作题、Excel操作题、PowerPoint操作题、Internet操作题等。下面介绍了Windows操作题操作题的阅卷原理。
没有编写过练习软件的老师可能会觉得很难,怎么知道学生有没有对文件执行新建、复制、剪切等操作呢?其实根本没必要去知道,不可能去写大量的代码来截取捕捉鼠标和键盘事件,看学生有没有执行这些操作,这样有些小题大做了。其实Windows操作题的阅卷非常简单,原理如下:新建、删除、重命名、复制、剪切、创建快捷方式就是判断该文件或文件夹是否存在。
判断文件夹是否存在:fso.FolderExists
判断文件是否存在:fso.FileExists
例如:If fso.FolderExists("C:单元二WinWorkFlowerBmp")=True Then score=score+5If fso.FileExists("C:单元一WinWorkNoipa.pas")=True Then score=score+5设置墙纸、屏保主要就是读取注册表中相关的键值。VB读取注册表:可以使用API函数RegOpenKeyEx、RegQueryValueEx、RegCloseKey来对注册表进行打开、查询等操作,并通过读取相对应的键值来判断墙纸、屏保的设置。
四、结语
运用VB优化了计算机基础教学,可以将教师从繁琐的教学环节中解放出来,节省了大量的人力、物力,使教师有更多的时间与精力放在题目的科学性建设中和教学内容、教学方法的钻研中。
参考文献:
[1]李雅琴.信息技术的应用、发展与创新人才的培养[A].中国教育技术协会2004年年会论文集[C].2004.
