ÈçºÎÓÃVBд°²È«¿Ø¼þ
×ÜÊö
±¾ÎÄÐðÊöÁËÈçºÎÔÚVBÖÐʵÏֿؼþµÄIobjectSafety½Ó¿Ú£¬ÒÔ±êÖ¾¸Ã¿Ø¼þÊǽű¾°²È«ºÍ³õʼ»¯°²È«µÄ¡£VB¿Ø¼þĬÈϵĴ¦Àí·½Ê½ÊÇÔÚ×¢²á±íÖÐ×¢²á×é¼þÀàÀ´±êʶÆä°²È«ÐÔ£¬µ«ÊµÏÖIobjectSafety½Ó¿ÚÊǸüºÃµÄ·½·¨¡£±¾ÑÔÓï°üÀ¨ÁËʵÏÖ¹ý³ÌÖÐËùÐèµÄËùÓдúÂë¡£
Çë×¢Ò⣬¿Ø¼þÖ»ÓÐȷȷʵʵÊǰ²È«µÄ£¬²ÅÄܱ»±êʶΪ“°²È«µÄ”¡£±¾ÎIJ¢Î´ÂÛ¼°ÈçºÎÈ·±£¿Ø¼þµÄ°²È«ÐÔ£¬Õâ¸öÎÊÌâÇë²ÎÔÄInternet Client Software Development Kit (SDK)ÖеÄÏà¹ØÎĵµ "Safe Initialization and Scripting for ActiveX Controls"£¬ËüÔÚComponent Development À¸Ä¿ÖС£
Ïà¹ØÐÅÏ¢£º
<´Ë´¦ÂÔÈ¥ÁËÒ»¶ÎÒ²ÐíÎ޹ؽôÒªµÄ¾¯¸æ>
ÏÖÔÚ¿ªÊ¼ÑÐò½¥½øµØ¾ÙÀý˵Ã÷ÔõÑù´´½¨Ò»¸ö¼òµ¥µÄVB¿Ø¼þ£¬ÒÔ¼°ÔõÑù½«Ëü±êʶΪ½Å±¾°²È«ºÍ³õʼ»¯°²È«¡£
Ê×ÏÈн¨Ò»¸öÎļþ¼ÐÀ´´æ·ÅÔÚ±¾ÀýÖÐËù²úÉúµÄÎļþ¡£
´ÓVB CD-ROMÈ¡µÃOLE ×Ô¶¯»¯Àà¿âµÄÖÆ×÷¹¤¾ß¡£½«VB°²×°¹âÅÌÖÐ\Common\Tools\VB\Unsupprt\Typlib\Ŀ¼ÏÂËùÓÐÄÚÈÝÒ»²¢¿½±´µ½Ç°ÃæÐ½¨µÄÏîÄ¿Îļþ¼ÐÖС£
°ÑÏÂÁÐÄÚÈÝ¿½±´µ½“¼Çʱ¾”ÖУ¬È»ºó±£´æµ½ÉÏÊöÎļþ¼Ð£¬ÎļþÃûΪObjsafe.odl£º
[
uuid(C67830E0-D11D-11cf-BD80-00AA00575603),
helpstring("VB IObjectSafety Interface"),
version(1.0)
]
library IObjectSafetyTLB
{
importlib("stdole2.tlb");
[
uuid(CB5BDC81-93C1-11cf-8F20-00805F2CD064),
helpstring("IObjectSafety Interface"),
odl
]
interface IObjectSafety:IUnknown {
[helpstring("GetInterfaceSafetyOptions")]
HRESULT GetInterfaceSafetyOptions(
[in] long riid,
[in] long *pdwSupportedOptions,
[in] long *pdwEnabledOptions);
[helpstring("SetInterfaceSafetyOptions")]
HRESULT SetInterfaceSafetyOptions(
[in] long riid,
[in] long dwOptionsSetMask,
[in] long dwEnabledOptions);
}
}
ÔÚÃüÁîÐÐÌáʾ·ûÏÂÇл»µ½ÏîÄ¿Îļþ¼Ð£¬ÊäÈëÏÂÁÐÃüÁî´´½¨Ò»¸ö.tlb Îļþ£º
MKTYPLIB objsafe.odl /tlb objsafe.tlb
ÔÚVBÖÐн¨Ò»¸öActiveX Control ÏîÄ¿¡£ÐÞ¸ÄÊôÐÔ£¬°ÑÏîÄ¿ÃüÃûΪIobjSafety£¬¿Ø¼þÃüÃûΪDemoCtl¡£ÔڿؼþÉÏ·ÅÖÃÒ»¸ö°´Å¥£¬ÃüÃûΪcmdTest£¬ÔÚËüµÄClickʼþÖмÓÈëÒ»¾ä´úÂë MsgBox "Test" ¡£
´ò¿ª²Ëµ¥“¹¤³Ì->ÒýÓÔ£¬µã“ä¯ÀÀ”£¬ÕÒµ½¸Õ¸Õ½¨Á¢µÄObjsafe.tlb£¬°ÑËü¼ÓÈëµ½ÒýÓÃÖС£
Ôö¼ÓÒ»¸öÐÂmoduleÃûΪbasSafeCtl£¬²¢ÔÚÆäÖм
Ïà¹ØÎĵµ£º
½ñÌìÓñà³ÌÓïÑÔVisual Basic£¨VB£©Ð´³ö×Ô¼ºµÄ¼Çʱ¾£¡¼ÇµÃ×Ô´ÓÉϴεÄÒ»¸öVB´òÔì¼òµ¥¼ÆËãÆ÷ºó¾ÍÔÙҲûÓÐдһЩС³ÌÐòÁË£¡½ñÌìÄØ£¬Ð´Ò»¸ö¼òµ¥µÄ¼Çʱ¾³ÌÐò°É£¡
¹¤¾ß£ºÒ»Ì¨¼ÆËã»ú£¨µçÄÔ£©¡££¨ÅäÖò»×öʲôҪÇó£¬ÏÖÔڵĻúÆ÷Ó¦¸ÃûÓÐÅäÖúܵ͵İɣ¡Ö»ÒªÄÜÔËÐÐVisual Basic 6.0¾ÍÐУ¡£©
&nbs ......
VCʵÏÖÀàËÆVBÖеÄLinkLabel¹¦ÄÜ
//VBÀïÃæÓиöLinkLabel£¬VBÖеÄLabelÔÚVCÖÐʽCStatic£¬µ«ÊÇVCÖÐCStaticûÓÐÀàËÆLinkLabelµÄ¹¦ÄÜ¡£¿ÉÒÔ×Ô¼º
//Ìí¼ÓÒ»µã´úÂëÀ´ÊµÏÖ£º
//²»ÖªµÀΪʲôIDC_HANDDÒ»¶¨Òª×Ô¼º¶¨ÒåÒ»ÏÂ
#define IDC_HAND MAKEINTRESOURCE(32649)
//´¦ÀíÊó±êÒÆ¶¯
void CAppNonameDlg::OnMouseMov ......
Õª×ÔVB°É¸ßÊÖ¾¨ÎÞµÐÐÖµÄÒ»¶Î¹ÜÊ×ʾÀý´úÂ룺
'******* ¶ÁÈ¡DOS³ÌÐòipconfig.exeµÄ·µ»Ø½á¹û£º ********
'×÷Õߣº ¾¨Î޵Р2006-10-19 21:57
'**************************************************
'´°Ìå´úÂ룺Form1
'**************************************************
Option Explicit
Private Const NOR ......
ÖØÊ°VBÖ®ËÄ£¬ÈÕÖ¾¼Óǿƪ
¹Ø¾¢ËÉ PMP
Ò»¡¢¹ØÓÚÈÕÖ¾¼Ç¼¹¦ÄÜ
Ö÷Òª¹¦ÄܵãÓÐ
1 ÔÚ³ÌÐòĿ¼ÏÂÉú³ÉlogĿ¼£¬ÓÃÓÚ±£´æÈÕÖ¾Îļþ¡£
2 ×Ô¶¯ÔÚlogĿ¼ÖУ¬Éú³ÉÈÕÖ¾Îļþ£¬ÎļþÃüÃûÓÃÄêÔÂÈÕ¶¨Ò壬Èç20100119_log.log¡£
3 ÔÚÈÕÖ¾ÎļþÖУ¬Ã¿ÐмǼһ¸öʱ¼äµãµÄÔËÐÐÄÚÈÝ¡£Ê±¼äµãµÄ¾«¶ÈÓ¦¸Ã´ïµ½ºÁÃë¡£
4 ÔÚÈÕÖ¾ÎļþÖУ¬Ã ......
ÎÒÓÃVBÖ´ÐÐDOSÃüÁÉú³ÉÎı¾ÎļþËæ¼´´ò¿ª
µ«ÊÇÓÉÓÚÎı¾ÎļþÉú³ÉÐèÒªÒ»¶Îʱ¼ä£¬
»¹Î´µÈÎļþÉú³ÉÍê±ÏVB¾Í´ò¿ªÁËÕâ¸öÎļþ
ÇëÎÊÈçºÎÈóÌÐòµÈ´ýDOSÃüÁîÖ´ÐÐÍê±ÏÔÙ´ò¿ªÕâ¸öÎı¾Îļþ°¡
×îºÃ»¹ÄܼÓÉÏÒ»¸öµÈ´ýµÄ½ø¶ÈÌõÏÔʾÎı¾ÎļþµÄÉú³É¹ý³Ì
´úÂëÈçÏ£º
Shell "cmd /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......