资源描述：
《VB精典实用源代码(详细)).doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、个人收藏的VB精典实用源代码。若朋友您想要问如何才能学好vb，或者入门需要看什么教材一类的问题，建议你抱着一颗刻苦钻研的心去面对这门学问，多动脑，少提问，遇到不知道的，多查资料，多看看帖子，或者用断点来亲自试验。实在不会了，请在此贴中查找您的常见问题，如果还没有，那请您发出新贴，向各位高手讨教：）查找方法：按ctrl+f，输入要查找的问题关键字即可每个问题中间用///分隔，这只是一部分最常见到的问题，以后会逐渐更新。////////////////////////////////////////////
2、////////////////////////////////////////如何用VB建立快捷方式PrivateDeclareFunctionfCreateShellLinkLib"STKIT432.DLL"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLongSubCommand1_Click()DimlReturnAs
3、Long'添加到桌面lReturn=fCreateShellLink("....Desktop","ShortcuttoCalculator","c:windowscalc.exe","")'添加到程序组lReturn=fCreateShellLink("","ShortcuttoCalculator","c:windowscalc.exe","")'添加到启动组lReturn=fCreateShellLink("Startup","ShortcuttoCalculator","c:wi
4、ndowscalc.exe","")EndSub////////////////////////////////////////////////////////////////////////////////////如何让程序在Windows启动时自动执行？有以下二个方法：方法1:直接将快捷方式放到启动群组中。方法2:在注册档HKEY_LOCAL_MACHINE中找到以下机码SoftwareMicrosoftWindowsCurrentVersionRun新增一个字串值，包括二个部份1.名称
5、部份：自己取名，可设定为AP名称。2.资料部份：则是包含'全路径档案名称'及'执行参数'例如：ValueName=NotepadValueData=c:windowsotepad.exe////////////////////////////////////////////////////////////////////////////////////在TextBox中如何限制只能输入数字？参考下列程序：SubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<
6、48OrKeyAscii>57ThenKeyAscii=0EndIfEndSub////////////////////////////////////////////////////////////////////////////////////我希望TextBox中能不接受某些特定字符，例如'#$%"，有没有简单一点的写法？方法有好几种,以下列举二种：方法1:可以使用IF或SelectCase一个个判断,但如果不接受的字符多时,较麻烦!方法2:将要剔除的字符统统放在一个字串中，只要一个IF判断即可!
7、!如下：PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimsTemplateAsStringsTemplate="!#$%^&*()_+-="'用来存放不接受的字符IfInStr(1,sTemplate,Chr(KeyAscii))>0ThenKeyAscii=0EndIfEndSub////////////////////////////////////////////////////////////////////////////////////如何让鼠标进
8、入TextBox时自动选定TextBox中之整串文字？这个自动选定反白整串文字的动作，会使得输入的资料完全取代之前在TextBox中的所有字符。PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1)EndSub////////////////////////////////////////////////////////////////////////////
