VB问题全功略（10）

VB问题全功略（10） [查找本页请按Ctrl+F]

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