VB项目中必需的几点技巧

1. 点击右上角的关闭按钮，要弹出“提示”，是否关闭，但用右键关闭时，不能重复提示

在vb中找到这个事件
Private Sub Form_QueryUnload(Cancel As Integer,UnloadMode As Integer)
If MsgBox("是否要退出",vbYesNo + vbDefaultButton2,"提示") = vbNo Then
Cancel = True
End If
End Sub

2. 计算器中退格键的使用

假定backSpace按钮的name属性是：cmdBack

 输出窗口textbook的name属性是：dataout

Private Sub cmdBack_Click()

If dataout.Caption = "0" Then

 Exit Sub

 End If

If (dataout.Caption <> "") Then

dataout.Caption = Mid(dataout.Caption,1,Len(dataout.Caption) - 1)

ElseIf dataout.Caption = "" Then

dataout.Caption = "0"

End If

'----如果显示的是结果，那么清零

‘当没有计算时，要把结果标志位置1

If res Then

dataout.Caption = "0"

End If

End Sub

3. VB软件皮肤控件的使用

添加：在控件工具栏上右键，单击部件，然后在弹出的窗口里面“控件”标签下选择“浏览”，添加你所需要的xxx.OCX，记得前面复选框要打勾。

删除：在控件工具栏上右键，单击部件，然后在弹出的窗口里面“控件”标签下选择“浏览”，将你将要除去的xxx.OCX控件前面的复选框勾去除（前提：这个删除的控件你不能正在使用中）

4. 项目结束退出的问候语

MsgBox "谢谢使用" & vbCrLf & "再见！",vbOKOnly,"二期项目XXX"

5. 如何注册OCX控件

32位系统：
将文件放到c:windowssystem目录
注册 运行：Regsvr32 c:windowssystemxxx.ocx
取消注册运行：Regsvr32.exe /u c:windowssystemxxx.ocx

64位系统注册32位文件：
将文件放到c:windowssysWOW64目录
运行：Regsvr32.exe c:windowssysWOW64xxx.ocx

当然，也可以写一个注册表：

该文件夹下有这两个文件：

xxx.ocx和注册xxx.cmd;

其中xxx.cmd中写：

copy xxx *.* %windir%system32 /y

Regsvr32 %windir%system32XP xxx.ocx /s

pause

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!