VB项目中必需的几点技巧

标签：vb   vb计算器   注册ocx控件   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:\windows\system目录
注册 运行：Regsvr32 c:\windows\system\xxx.ocx
取消注册运行：Regsvr32.exe /u c:\windows\system\xxx.ocx

64位系统注册32位文件：
将文件放到 c:\windows\sysWOW64目录
运行：Regsvr32.exe c:\windows\sysWOW64\xxx.ocx

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

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

xxx.ocx和注册xxx.cmd;

其中xxx.cmd中写：

copy xxx *.* %windir%\system32\ /y

Regsvr32 %windir%\system32\XP xxx.ocx /s

pause

VB项目中必需的几点技巧

标签：vb   vb计算器   注册ocx控件   vb皮肤控件   关闭按钮   

原文地址：http://blog.csdn.net/u013457167/article/details/45558965