Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¸ø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»ÊÇ¿ÉÒÔÓùöÂÖÁË£¿£¡


Ïà¹ØÎĵµ£º

΢ÐÍORM——ÓÃVBºÍC#±àдµÄ¶¯Ì¬ÀàÐÍORM

      ½üÀ´ORM±äµÃÔ½À´Ô½ÆÕ±é£¬Õâ¶¼¹éÓÚÒ»Öֺܾß˵·þÁ¦µÄÔ­Òò£»Ëü¿ÉÒÔʹ¿ª·¢Êý¾Ý¿âÇý¶¯µÄÓ¦ÓóÌÐò±äµÃ¸ü¿ì¡¢¸üÊ¡Á¦¡£µ«ÊÇORM¿ò¼Ü¶¼Óе㓹ÌÖ´¼º¼û”£¬ËûÃÇÆÚÍû¿ª·¢Õß×ñ´ÓÌØ¶¨µÄ¹æÔò£¬µ±¹æÔò±»´òÆÆµÄʱºò¾Í·Ç³£ÄÑÒÔʹÓá£×îͨ³£µÄ¹æÔòÖ®Ò»¾ÍÊÇ£¬´æ´¢¹ý³Ì±ØÐë×ÜÊÇ·µ»Øµ¥¶ÀµÄ½á¹û¼¯£¬ÆäÖд ......

VBΪ×Ô¼ºµÄ³ÌÐòÉ趨ÏûÏ¢(¿É½ÓÊÕ´¦Àí)


VBΪ×Ô¼ºµÄ³ÌÐòÉ趨ÏûÏ¢(¿É½ÓÊÕ´¦Àí)
Posted by JiaJia 5 March,2009 (0)Comment
¡¡¡¡ÓÃAPIº¯Êý SetWindowLong Ö¸¶¨´¦ÀíÏûÏ¢µÄ´°¿Ú¹ý³ÌΪ×Ô¶¨ÒåµÄº¯Êý WindowProc£¬²¶»ñÏûÏ¢IDΪ WM_USER+1 µÄ×Ô¶¨ÒåÏûÏ¢»òϵͳÏûÏ¢¡£²¢ÇÒ£¬ÎªÁ˱£Ö¤´°¿ÚÄÜÕýÈ·µÄÏìÓ¦ÏûÏ¢£¬ÐèÒª±£´æÔ­À´Ä¬ÈϵĴ°¿Ú¹ý³Ì²¢ÔÚ×Ô¶¨Ò庯ÊýWindowProcÖе÷Óᣠ......

VB¼ì²éºÏ·¨IPµØÖ·

Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
    On Error GoTo Handler
    Dim varAddress As Variant, n As Long, lCount As Long
    varAddress = Split(strIPAddress, ".", , vbTextCompare)
    If IsArray(varAd ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ