¹ØÓÚActiveXµÄ½Ì³Ì[vb]£¨×ªÌû£©
¹ØÓÚActiveXµÄ½Ì³Ì
Visual BasicÊÇÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼ÆÓïÑÔ£¬Î¢Èí¹«Ë¾ÍÆ³öÁËActiveX¼¼Êõ£¬ÀûÓÃActiveX¼¼ÊõÌá³öµÄ±ê×¼£¬¶Ô½çÃæµÄÉè¼Æ½øÐÐÁË·â×°£¬ÐγÉÁËһϵÁбà³Ì¿Ø¼þ£¬¼´Ìض¨¹¦ÄܵijÌÐòÄ£¿é¡£ÔÚ³ÌÐòµÄÉè¼ÆÖУ¬Éè¼ÆÈËÔ±Ö»ÐèÒªÍ϶¯ËùÐè¿Ø¼þµ½´°Ì壬Ȼºó¶Ô¿Ø¼þ½øÐÐÊôÐÔÉèÖúÍʹÓÃÆä·½·¨¡¢Ê¼þ¼´¿É£¬´ó´ó¼õÇáÁË·±ËöµÄ³ÌÐòÉè¼Æ¡£
µÚÒ»½Ú ÈÏʶ²¢×°ÔØActiveX¿Ø¼þ
ÈÎÎñ1£ºActiveX¿Ø¼þµÄ¸ÅÄîºÍActiveX¿Ø¼þµÄ×°ÔØ·½·¨
¡¾ÈÎÎñµÄÌá³ö¡¿Visual Basic¹¤¾ßÏäÉϵıê×¼¿Ø¼þÖ»ÓÐ21¸ö¡£¶ÔÓÚ¸´ÔÓµÄÓ¦ÓóÌÐò£¬½ö½öʹÓÃһЩ±ê×¼¿Ø¼þÊDz»¹»µÄ£¬¿ÉÒÔÓ¦ÓÃVisual BasicÒÔ¼°µÚÈý·½¿ª·¢ÉÌÌṩµÄ´óÁ¿AcitveX¿Ø¼þ¡£ÕâЩ¿Ø¼þ¿ÉÒÔÌí¼ÓÔÚ¹¤¾ßÏäÉÏ¡£Ä¿Ç°ÔÚInternetÉÏ´óÔ¼ÓÐ1000¶àÖÖAcitveX¿Ø¼þ¿É¹©ÏÂÔØ£¬´ó´ó½ÚÔ¼ÁËÎÒÃǵĿª·¢Ê±¼ä¡£
±¾ÈÎÎñÖ÷Òª°üÀ¨ÒÔÏÂÄÚÈÝ£º
(1) ¿Ø¼þ·ÖÀ༰ActiveXµÄ¸ÅÄî¡£
(2) ×°ÔØActiveX¿Ø¼þ¡£
11.1.1 ¿Ø¼þ·ÖÀ༰ActiveXµÄ¸ÅÄî
Visual Basic 6.0ÖпؼþÖ÷Òª·ÖΪÈýÖÖ£ºÄÚ²¿¿Ø¼þ£¨±ê×¼¿Ø¼þ£©¡¢ActiveX¿Ø¼þ£¨Íⲿ¿Ø¼þ£©ºÍ¿É²åÈë¶ÔÏó¡£
1£®ÄÚ²¿¿Ø¼þ£¨Ò²³Æ±ê×¼¿Ø¼þ£©
¾ÍÊÇÎÒÃÇͨ³£Ê¹ÓõÄÈç±êÇ©¡¢Îı¾¿ò¡¢ÃüÁî°´Å¥µÈ³£Óÿؼþ£¬ÔÚÎÒÃÇÔËÐÐVisual Basic 6.0»·¾³Ê±£¬¿É×Ô¶¯ÔÚ¹¤¾ßÏäÖгöÏÖ¡£Èçͼ11-1Ëùʾ¡£
ͼ11-1 ¹¤¾ßÏäÖеÄÄÚ²¿¿Ø¼þ
2£®ActiveX¿Ø¼þ
£¨1£©ActiveX²¿¼þ
VB¹¦ÄÜÖ®ËùÒÔÇ¿´ó£¬ºÜ´ó³Ì¶ÈÉÏÊǽèÖúÓÚActiveX²¿¼þ¡£ËùνActiveX²¿¼þÊÇÖ¸Ò»¼þ¿ÉÕдýµÄ´úÂ룬ÈçÒ»¸ö.exe ¡¢.dll»ò .ocxÎļþ£¬ËüÃÇÔÚÌṩ¶ÔÏóʱ×ñÑActiveXµÄ¹æ·¶¡£ÔÚVBÖУ¬¾ßÓÐËÄÖÖÀàÐ͵ÄActiveX²¿¼þ£ºActiveX ¿Ø¼þ¡¢ActiveX.EXE¡¢ActiveX.DLL ¡¢ActiveX Îĵµ¡£ActiveX.EXE²¿¼þÊDz»¿ÉÊӵĴúÂ벿¼þ£¬Äܹ»·þÎñÓÚ¶à¸öÓ¦ÓóÌÐò£¬²¢ÇÒÄܹ»ÔÚÔ¶³Ì¼ÆËã»úÉÏÔËÐУ¬Äܰ²×°ÔÚ·þÎñÆ÷¶Ë£»ActiveX.DLL ²¿¼þÊDz»¿ÉÊӵĴúÂ벿¼þ£¬Äܹ»ÓëÓ¦ÓóÌÐòÔËÐÐÔÚͬһ¸ö½ø³ÌÖУ¬Äܰ²×°ÔÚ¿Í»§¶Ë£»ActiveX ¿Ø¼þÊÇÒ»¸ö¿ÉÊӵIJ¿¼þ£¬Äܹ»×÷Ϊ¿Ø¼þ±»ÍϷŵ½²»Í¬µÄÓ¦ÓóÌÐòÖУ»ActiveX ÎĵµÒ²ÊÇÒ»¸ö¿ÉÊӵIJ¿¼þ£¬Äܹ»Í¨¹ýInternetÉϵÄWebä¯ÀÀÆ÷´ò¿ª¡£
£¨2£©ActiveX¿Ø¼þ
ActiveX¿Ø¼þ³ÆÎªÀ©³ä¿Ø¼þ¡£ActiveX¿Ø¼þÊÇÒ»ÖÖ¾ßÓпÉÊÓÉè¼ÆÍâ¹Û£¬²¢ÇÒÄܹ»×÷Ϊ¿É²å¼þÒýÈëµ½Ó¦ÓóÌÐòÖÐÈ¥µÄActiveX²¿¼þ£¬ÈçADO Data¿Ø¼þ¾ÍÊÇÆäÖÐÖ®Ò»¡£“ActiveX¿Ø¼þ”ÊÇÒ»ÖÖÀ©Õ¹ÃûΪ .OCXµÄ¶ÀÁ¢Îļþ£¬Í¨³£´æ·ÅÔÚWindowsµÄSystemĿ¼ÖС£
´ó²¿·ÖÓ¦ÓóÌÐò¿ÉÒÔÓÃÄÚ²¿¿Ø¼þÀ´Éè¼Æ£¬µ«ÊÇÓÐЩ¹¦ÄÜ£¬È磺¶àýÌå¡¢¶¯»¡¢¼ÆËã»úͨѶµÈÎÞ·¨ÓÃÄÚ²¿¿Ø¼þÀ
Ïà¹ØÎĵµ£º
VBÖÐ Replace º¯Êý
ÃèÊö
·µ»Ø×Ö·û´®£¬ÆäÖÐÖ¸¶¨ÊýÄ¿µÄij×Ó×Ö·û´®±»Ì滻ΪÁíÒ»¸ö×Ó×Ö·û´®¡£
Óï·¨
Replace(expression, find, replacewith[, compare[, count[, start]]])
Replace º¯ÊýµÄÓï·¨ÓÐÒÔϲÎÊý£º
²ÎÊý ÃèÊö
expression ±ØÑ¡¡£×Ö·û´®±í´ïʽ£¬°üº¬ÒªÌæ»»µÄ×Ó×Ö·û´®¡£
find ±ØÑ¡¡£±»ËÑË÷µÄ×Ó×Ö·û´®¡£
......
Õâ¶Îʱ¼äÔÚÒÆÖ²ÏîÄ¿µÄ¹ý³ÌÖУ¬Æð³õÎÒÏëÅжÏÒ»¸ö×Ö·û´®ÖÐÊÇ·ñ´æÔÚij×Ö·û£¨´®£©£¬Ö±½ÓµÄʹÓ÷½·¨ÊÇÓÃinstr£¨start£¬string1£¬string2£¬VB compare£©£¬µ«¾¹ý·ÖÎöÔÚVBÖпÉÒÔÖ»ÓÃһϷ½·¨À´Åжϣ¡
1.³£ÓõÄINStr·½·¨
Function InStr([Start], [String1], [String2], [Compare A ......
ASPÊÇĿǰһÖÖ¹ãΪӦÓõÄÓÃÀ´¿ìËÙ¹¹½¨¶¯Ì¬WEBÕ¾µãµÄ±à³ÌÓïÑÔ£¬Ä¬ÈϵÄÄÚÖÿª·¢ÓïÑÔÊÇVBScript£¬ÓÉÓÚASPºÍ΢ÈíWindowsϵÁвÙ×÷ϵͳµÄ½áºÏ·Ç³£µÄºÃ£¬Ê¹µÃASPÒѾ³ÉΪÁËNT¿ª·¢Æ½Ì¨ÉÏÃæ½øÐÐWEB¿ª·¢µÄÊ×Ñ¡ÓïÑԺͻ·¾³¡£
ËûÓÐ׿òµ¥Ò×ѧ£¬·½±ã¿ìËÙ¿ª·¢µÄÖÖÖÖÓŵ㣬µ«ÊÇËûÒ²ÓÐ×ÅÖÂÃüµÄÈõµã£¬¾ÍÊÇËûÊǽű¾ÓïÑÔ½âÊÍÖ´Ðеģ¬ËÙ¶È»áÊܵ½ ......
ѧÉúʱ´úרҵÊÇ»úе£¬µ«ÊDzμӹ¤×÷ºó£¬»úÔµÇɺϴÓÊÂÁËÓëÈí¼þÏà¹ØµÄ¹¤×÷£¬¾ÍÊǶԴóÐ͹¤³ÌÈí¼þÈí¼þ×öһЩ¶þ´Î¿ª·¢£¬ÊÕ»ñ¹ý¿ìÀÖ£¬ÊÕ»ñ¹ýÐÁËᣬÔÚÒ»´ÎÓÖÒ»´ÎµÄµÃÓëʧÖУ¬ÏëÕÒÒ»¸öµØ·½£¬ÕÒһЩÈË¿ÉÒÔÂýÂýÓëÖ®·ÖÏí£¬ÓëÖ®½»Á÷£¬²¢ÆÚµÃµ½°ïÖú»òÌṩ°ïÖú£¡Ò²ÐíÄãÊÇÎÞÒâ¼û·¹ý£¬Éõ»òƯ¹ý£¬µ«ÄãµÄעĿÊÇÎÒǰ½øµÄ¶¯Á¦£¬ÓÐÐÒפ×ãÒ²»áÈÃÎÒ ......
Option Explicit
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias ......