VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB问题全功略(10)
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10663, 日期:2002-01-26
VB问题全功略(10)

46、程序启动时,如何自动判断 Access 资料库是否损毁并自动修复?
47、如何让程序在 Windows 启动时自动执行?
48、如何让程序在新 User Login 时自动执行?
49、已将 TextBox 的 Alignment 属性设为「1-靠右对」(1-RightJustify),但文字却未向右靠?
50、在 TextBox 中如何限制只能输入数字?

46、程序启动时,如何自动判断 Access 资料库是否损毁并自动修复?

若程序使用 Access 资料库开发,当 Access 资料库损毁时,一进入程序,便会出现以下讯息:

Can注释:t open database 注释:name注释:. It may not be a database that your application recognizes, or the file may be corrupt. (Error 3049)

若是程序中未加入错误判断,程序便会中断跳出,这会给予使用者极不好的印象,要避免这种情形,甚至不让使用者发现资料库损毁,便要加入以下之程序码加以判断:

Private Sub Form_Load()
Dim db As Database
On Error GoTo error1
Set db = OpenDatabase("c:\test.mdb")
On Error GoTo 0
: 注释:正常程序开始
:
Exit Sub

error1:
If Err = 3049 Then 注释:资料库损毁
DBEngine.RepairDatabase "C:\test.mdb"
Resume
Else
MsgBox Err & Error(Err)
End If

47、如何让程序在 Windows 启动时自动执行?

有以下二个方法:

方法1: 直接将快捷方式放到启动群组中。

方法2:
在注册档 HKEY_LOCAL_MACHINE 中找到以下机码
\Software\Microsoft\Windows\CurrentVersion\Run
新增一个字串值,包括二个部份
1. 名称部份:自己取名,可设定为 AP 名称。
2. 资料部份:则是包含 注释:全路径档案名称注释: 及 注释:执行参数注释:

例如:
Value Name = Notepad
Value Data = c:\windows\notepad.exe

48、如何让程序在新 User Login 时自动执行?

在注册表中 HKEY_CURRENT_USER 找到以下代码
\Software\Microsoft\Windows\CurrentVersion\Run

新增一个字串值,包括二个部份
1. 名称部份:自己取名,可设定为 AP 名称。
2. 资料部份:则是包含 注释:全路径档案名称注释: 及 注释:执行参数注释:

例如:
Value Name = Notepad
Value Data = c:\windows\notepad.exe

49、已将 TextBox 的 Alignment 属性设为「1-靠右对」(1-RightJustify),但文字却未向右靠?

欲将 TextBox 内的文字向右靠,除了将 Alignment 属性设为「1-靠右对 」之外,亦 将 MultiLine 属性设为 True。

但是若您希望只有单行,不要多行,则必须判断 User 是否按了 Enter Key,那只好在 TextBox 的 KeyPress 中加入以下程序码,以去除 Enter 的作用:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
End If

50、在 TextBox 中如何限制只能输入数字?

参考下列程序:
Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub