Visual Basic编程常见问题及解答

下一页 1 2 3 4 5 6 7 

　　 
　　各位朋友大家好，如果你在论坛的时间够长，那么你会发现很多帖子的问题是相同的，既然这样，不如总结到一起让初学者来翻看，再热心的大虾也不愿意把一个答案重复几十遍。

　　若朋友您想要问如何才能学好vb，或者入门需要看什么教材一类的问题，建议你抱着一颗刻苦钻研的心去面对这门学问，多动脑，少提问，遇到不知道的，多查msdn，多看老贴，或者用断点来亲自试验。实在不会了，请在此贴中查找您的常见问题，如果还没有，那请您发出新贴，向各位高手讨教。

　　查找方法：按ctrl+f，输入要查找的问题关键字即可，本人只是稍微编辑了一下。

　　如何用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, sTemplate, Chr(KeyAscii)) > 0 Then

　　　　KeyAscii = 0

　　　End If

　　End Sub

原文转自：http://www.ltesting.net