VB精典实用源代码(详细)).docxVIP

个人收藏的VB精典实用源代码。若朋友您想要问如何才能学好vb，或者入门需要看什么教材一类的问题，建议你抱着一颗刻苦钻研的心去面对这门学问，多动脑，少提问，遇到不知道的，多查资料，多看看帖子，或者用断点来亲自试验。实在不会了，请在此贴中查找您的常见问题，如果还没有，那请您发出新贴，向各位高手讨教：）查找方法：按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 = NotepadValue Data = c:\windows\notepad.exe////////////////////////////////////////////////////////////////////////////////////在 TextBox 中如何限制只能输入数字？参考下列程序：Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 48 Or KeyAscii 57 ThenKeyAscii = 0End IfEnd Sub////////////////////////////////////////////////////////////////////////////////////我希望 TextBox 中能不接受某些特定字符，例如 @#$%，有没有简单一点的写法？方法有好几种, 以下列举二种：方法1: 可以使用 IF 或 Select Case 一个个判断, 但如果不接受的字符多时, 较麻烦! 方法2: 将要剔除的字符统统放在一个字串中，只要一个 IF 判断即可 !! 如下：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim sTemplate As StringsTemplate = !@#$%^*()_+-= 用来存放不接受的字符If InStr(1, sTemplate, Chr(KeyAscii)) 0 ThenKeyAscii = 0End IfEnd Sub////////////////////////////////////////////////////////////////////////////////////如何让鼠标进入 TextBox 时自动选定 TextBox 中之整串文字？这个自动选定反白整串文字的动作，会使得输入的资料完全取代之前在 TextBox 中的所有字符。Private Sub Text1_GotFocus()Text1.SelStart = 0Text1.SelLength