如何让程序在 Windows 启动时自动执行
有以下二个方法:
方法1: 直接将快捷方式放到启动群组中。
方法2:
在注册档 HKEY_LOCAL_MACHINE 中找到以下机码:\Software\Microsoft\Windows\CurrentVersion\Run
新增一个字串值,包括二个部份:
1. 名称部份:自己取名,可设定为 AP 名称。
2. 资料部份:则是包含 '全路径档案名称' 及 '执行参数'
例如:
Value Name = Notepad
Value Data = c:\windows\notepad.exe
在 TextBox 中如何限制只能输入数字
参考下列程序: Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub TextBox 中能不接受某些特定字符(如 '@#$%") 方法有好几种, 以下列举二种: 方法1: 可以使用 IF 或 Select Case 一个个判断, 但如果不接受的字符多时, 较麻烦! 方法2: 将要剔除的字符统统放在一个字串中,只要一个 IF 判断即可 !! 如下:Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sTemplate As String sTemplate = "!@#$%^&*()_+-=" '用来存放不接受的字符 If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0 End If End Sub 如何让鼠标进入 TextBox 时自动选定 TextBox 中之整串文字 这个自动选定反白整串文字的动作,会使得输入的资料完全取代之前在 TextBox 中的所有字符。Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1) End Sub |
正在阅读:vb高手搜集-常见问题总结(2)vb高手搜集-常见问题总结(2)
2005-06-14 10:18
出处:
责任编辑:moningfeng
键盘也能翻页,试试“← →”键