VB常见问题总结.docVIP

快捷域名： 创建于：2005-6-5 共 6篇文章 访问统计：169 VB常见问题总结 点击数：138 发布日期：2005-6-5 18:28:00 【字体：大 中 小】【评论】【打印】 各位朋友大家好，如果你在这里的时间够长，那么你会发现很多帖子的问题是相同的，既然这样，不如总结到一起让初学者来翻看，再热心的大虾也不愿意把一个答案重复几十遍：）Ryowu制作匆忙，难免错漏，还请见谅。 若朋友您想要问如何才能学好vb，或者入门需要看什么教材一类的问题，建议你抱着一颗刻苦钻研的心去面对这门学问，多动脑，少提问，遇到不知道的，多查msdn，多看老贴，或者用断点来亲自试验。实在不会了，请在此贴中查找您的常见问题，如果还没有，那请您发出新贴，向各位高手讨教：） 查找方法：按ctrl+f，输入要查找的问题关键字即可 注明：本贴源于VB编程乐园网站，本人只是稍微编辑了一下。 每个问题中间用///分隔，这只是一部分最常见到的问题，以后会逐渐更新。 //////////////////////////////////////////////////////////////////////////////////// 如何用VB建立快捷方式 Private Declare Function fCreateShellLink Lib STKIT432.DLL (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long Sub Command1_Click() Dim lReturn As Long 添加到桌面 lReturn = fCreateShellLink(..\..\Desktop, Shortcut to Calculator, c:\windows\calc.exe, ) 添加到程序组 lReturn = fCreateShellLink(, Shortcut to Calculator, c:\windows\calc.exe, ) 添加到启动组 lReturn = fCreateShellLink(\Startup, Shortcut to Calculator, c:\windows\calc.exe, ) End Sub //////////////////////////////////////////////////////////////////////////////////// 如何让程序在 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, sTemp