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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。