vb常见问题的总结.docxVIP

vb常见问题总结 　　VB常见问题总结，欲发贴者请先过目　　各位朋友大家好，如果你在这里的时间够长，那么你会发现很多帖子的问题是相同的，既然这样，不如总结到一起让初学者来翻看，再热心的大虾也不愿意把一个答案重复几十遍：）Ryowu制作匆忙，难免错漏，还请见谅。若朋友您想要问如何才能学好vb，或者入门需要看什么教材一类的问题，建议你抱着一颗刻苦钻研的心去面对这门学问，多动脑，少提问，遇到不知道的，多查msdn，多看老贴，或者用断点来亲自试验。实在不会了，请在此贴中查找您的常见问题，如果还没有，那请您发出新贴，向各位高手讨教：）查找方法：按ctrl+f，输入要查找的问题关键字即可注明：本贴源于VB编程乐园网站，本人只是稍微编辑了一下。　　如何用VB建立快捷方式　　PrivateDeclareFunctionfCreateShellLinkLib(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLong　　SubCommand1_Click()　　DimlReturnAsLong　　添加到桌面　　lReturn=fCreateShellLink(..\..\Desktop,ShortcuttoCalculator,c:\windows\,)　　添加到程序组　　lReturn=fCreateShellLink(,ShortcuttoCalculator,c:\windows\,)　　添加到启动组　　lReturn=fCreateShellLink(\Startup,ShortcuttoCalculator,c:\windows\,)　　EndSub　　如何让程序在Windows启动时自动执行？　　有以下二个方法：　　方法1:直接将快捷方式放到启动群组中。　　方法2:　　在注册档HKEY_LOCAL_MACHINE中找到以下机码　　\Software\Microsoft\Windows\CurrentVersion\Run　　新增一个字串值，包括二个部份　　1.名称部份：自己取名，可设定为AP名称。　　2.资料部份：则是包含全路径档案名称及执行参数　　例如：　　ValueName=Notepad　　ValueData=c:\windows\　　////////////////////////////////////////////////////////////////////////////////////　　在TextBox中如何限制只能输入数字？　　参考下列程序：　　SubText1_KeyPress(KeyAsciiAsInteger)　　IfKeyAscii57Then　　KeyAscii=0　　EndIf　　EndSub　　我希望TextBox中能不接受某些特定字符，例如@#$%，有没有简单一点的写法？　　方法有好几种,以下列举二种：　　方法1:可以使用IF或SelectCase一个个判断,但如果不接受的字符多时,较麻烦!　　方法2:将要剔除的字符统统放在一个字串中，只要一个IF判断即可!!如下：　　PrivateSubText1_KeyPress(KeyAsciiAsInteger)　　DimsTemplateAsString　　sTemplate=!@#$%^*()_+-=用来存放不接受的字符　　IfInStr(1,sTemplate,Chr(KeyAscii))0Then　　KeyAscii=0　　EndIf　　EndSub　　如何让鼠标进入TextBox时自动选定TextBox中之整串文字？　　这个自动选定反白整串文字的动作，会使得输入的资料完全取代之前在TextBox中的所有字符。　　PrivateSubText1_GotFocus()　　=0　　=Len(Text1)　　EndSub　　如何检查软盘驱动器里是否有软盘？　　使用：　　DimFlagAsBoolean　　Flag=Fun_FloppyDrive(A:)　　IfFlag=FalseThenMsgBoxA:驱没有准备好，请将磁盘插入驱动器！,vbCritical　　-------------------------------　　函数:检查软驱中是否有盘的存在　　-------------------------------　　PrivateFunctionFun_FloppyDrive(sDriveAsString)AsBoolean　　OnErrorResu