• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

vb高手搜集-常见问题总结(2)

　　如何让程序在 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 中能不接受某些特定字符(如 '@#&#36;&#37;")

　　方法有好几种, 以下列举二种：

　　方法1: 可以使用 if 或 select case 一个个判断, 但如果不接受的字符多时, 较麻烦!

　　方法2: 将要剔除的字符统统放在一个字串中，只要一个 if 判断即可 !! 如下：

private sub text1_keypress(keyascii as integer)
dim stemplate as string
stemplate = "!@#&#36;&#37;^&*()_+-=" '用来存放不接受的字符
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

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范