¸øVBÔö¼ÓÒ»¸ö¹öÂÖ£¬ÈÃVB±à´úÂëµÄʱºò¸ü·½±ã
VB6IDEMouseWheelAddin.dll
¾ÍÊÇÕâ¸öÄÜʹÄãÔÚVBµÄ´úÂë±à¼´°¿ÚÄܹ»Ê¹ÓÃÊó±ê¹öÂÖ£¬±à¼´úÂë¡¢²é¿´´úÂë¸ü·½±ã¡£
ÏÂÃæÏêÊö£º
1¡¢¸ø´ó¼ÒÒ»¸öÏÂÔصØÖ·£º
http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exeÓÒ»÷½âѹ£¬ÔÙÓÒ»÷½âѹ£¬Õâʱ¾Í»á¿´µ½Ò»¸ödllÎļþ£¬Õâ¸ö¾ÍÊÇÎÒÃÇÒªµÄdllÎļþ¡£
Èç¹ûÄã¾õµÃÂé·³µÄ»°¿ÉÒÔÖ±½ÓÏÂÔØÕâ¸ödllÎļþ£ºhttp://www.leszj.com/sfw/VB6IDEMouseWheelAddin.dll
2¡¢´ò¿ªÎҵĵçÄÔ→Windows→System32Îļþ¼Ð¡£½«Õâ¸ödllÎļþ¸´ÖÆÕ³Ìù¹ýÈ¥¡£
3¡¢½«Õâ¸ödllÎļþ×¢²á¡£·½·¨Îª£ºµã»÷¿ªÊ¼→ÔËÐУ¬ÊäÈë“regsvr32 ***.dll”£¨ÒýºÅ²»ÓÃÊäÈ룩£¬½«***»»³ÉÕâ¸ödllµÄÎļþÃû£¬Ò²¾ÍÊÇVB6IDEMouseWheelAddin£¬¼´regsvr32 VB6IDEMouseWheelAddin.dll¡£µã»÷È·¶¨£¬ÕâÑù¾ÍÍê³ÉÁË×¢²á¡£
4¡¢Èç¹ûÄãÏÖÔÚÕý´ò¿ªÒ»¸öVB±à¼Æ÷£¬°ÑËü±£´æһϹصô¡£ÖØдò¿ªVB£¬ÕâÑùËû²ÅÄÜÖØмÓÔØмÓÈëµÄdllÎļþ¡£²Ëµ¥“Íâ½Ó³ÌÐò”→“Íâ½Ó³ÌÐò¹ÜÀíÆ÷”ÀѡÖÐMouseWheel Fix£¬ÔÚ¼ÓÔØÐÐΪÀïÑ¡ÖГÔÚÆô¶¯ÖмÓÔØ”ºÍ“¼ÓÔØ/жÔØ”Á½Ïµã»÷È·¶¨¾Í¼ÓÔØÁË¡£
5¡¢ÔٴιرÕÕâ¸öVB±à¼Æ÷¡£Ôٴδò¿ªVB±à¼Æ÷¡£¿´¿´ÊDz»ÊÇ¿ÉÒÔÓùöÂÖÁË£¿£¡
Ïà¹ØÎĵµ£º
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......
·¢ËͶËÒÔ163ΪÀý
Ò»¡¢asp.net°æ using System.Web.Mail; //ÃüÃû¿Õ¼äÒýÓÃ
c#
MailMessage mail = new MailMessage();
mail.To = "shadow103@qq.com"; //½ÓÊÜÈ˵ÄÓÊÏä
& ......
È«Ãæ¿ØÖÆ Excel
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelID.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelID.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelID.WorkBooks.Add;
4) ´ò¿ªÒÑ´æÔÚµ ......
·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔÔò
·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐΪÌØÐÔ
·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......