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

VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢¡°±ê×¼¡±DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨2£©

VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢“±ê×¼”DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨2£©
 
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://blog.csdn.net/useway
        ×òÌìÎÒÃǽ²µ½£¬ÈçºÎͨ¹ýÌØÊâ·½·¨»ñÈ¡OBJÎļþ£¬ÄÇô½ñÌìÎÒÃǼÌÐø½²ÈçºÎ½øÐбàÒëÁ¬½Ó¡£
        ×òÌìµÄÉÏһƪ£ºhttp://blog.csdn.net/useway/archive/2010/04/14/5487046.aspx
 
       Ò»¡¢Ê×ÏÈÎÒÃÇ¿´¿´ÕâÖÖÌØÊâ·½·¨µÄ²Ù×÷×¼±¸²½Ö裺
 
       ²½ÖèÒ»£º½¨Á¢Ò»¸ö¼ÙµÄ“Link.exe”;
       ½¨Á¢Ò»¸öеÄÏîÄ¿£¬ÔÚÄǸöÏîÄ¿Öн¨Á¢Ò»¸ö“Form”£¬È»ºó£¬ÔÚ“Form”ÖмÓÈëÈçÏ´úÂ룺
 
Sub Form_Load() 
        MsgBox "ÏÖÔÚ¿ÉÒÔ¿½±´OBJÎļþÁË£¡£¡"
        End
End Sub
 
       ±àÒëΪ£ºLink.exe
 
       ²½Öè¶þ£º½«“C:\Program Files\Microsoft Visual Studio\VB98\Link.exe”¸ÄÃûΪ“Link2.exe”;
 
       ²½ÖèÈý£º½«¼ÙµÄÄǸöLink.exe¸´ÖƵ½“C:\Program Files\Microsoft Visual Studio\VB98\”ÖУ»
 
       ¶þ¡¢½¨Á¢Ò»¸öActiveX DLL
 
       ²½ÖèÒ»£º½¨Á¢Ò»¸öÐÂÏîÄ¿£¬Ñ¡Ôñ“ActiveX DLL”£¬È»ºó½¨Á¢Ò»¸ö“Module”ÔÚ´úÂëÖмÓÈëÈçÏ´úÂ룺
 
Function fun1(ByVal a As Long, ByVal b As Long) As Long
        fun1 = a + b
End Function
Function fun2() As Long
        fun2 = 1
End Function
      
        ²½Öè¶þ£º½¨Á¢Ò»¸ö¿ÕµÄ“Class” ;
 
        ²½ÖèÈý£ºÓÃVB²Ëµ¥±àÒë;
 
        ²½ÖèËÄ£º¸´ÖƳöOBJÎļþ;
   


Ïà¹ØÎĵµ£º

²ÉÓÃVB±àдµÄ¶¯Ì¬Á´½Ó¿â(ActiveX DLL)

¡ôÇëÓÉ´ËÈ·¶¨ÊÇ·ñ±»¶ñÒâÐ޸ġô
×÷ÕߣºÎÒÐÄ·ÉÏè
VBÖÐÒýÈë±¾DLLµÄ·½·¨
·½·¨Ò»£ºÑ¡Ôñ“¹¤³Ì(P)”²Ëµ¥ÏµēÒýÓÃ(N)”£¬ÔÚ³öÏֵĶԻ°¿òÖеã“ä¯ÀÀ°´Å¥”£¬²¢ÕÒµ½DLLËùÔÚλÖá£
·½·¨¶þ£º·ÖÁ½²½×ß
(1)×¢²á¶¯Ì¬Á´½Ó¿â£¬Ê¹ÓÃregsvr32ÃüÁî¡£ÔÚÔËÐжԻ°¿òÖУ¬ÊäÈë“regsvr32  DLLÍêÕû· ......

VB —ÍòÄêÀúʵÀý (2)

Éϼ¯ÖÐÖ»ÊÇÏÔʾÐÇÆÚ¼¸£¬²»¹»È«Ã棬ÍêÉÆºóÈçÏ£º
1¡¢´´½¨lbl1¡¢lbl2¡¢lbl3¡¢txt1¡¢cmd1¡¢Timer1
2¡¢lbl£º“ÊäÈëÄêÔÂÈÕ£¨Èç2000-8-16£©£º”£¬ÉèÖÃlbl¡¢txt1¡¢cmd1µÄ×ÖÌå´óСºÍÑÕÉ«¡£Timer1µÄEnableÊôÐÔÉèΪFalse£¬IntervalÊôÐÔÉèΪ£º1000¡£
3¡¢Ë«»÷cmd1£¬½øÈë´úÂë±à¼­´°¿Ú£¬ÇÃÈ룺
Private Sub Timer1_Timer() ......

VB¾ä±ú¸ÅÄî ²»¶®ÒÔºóÉîÈëÀí½â

×î½üÔÚѧϰwindows APIµÄʱºò·¢ÏÖÔÚ¸ö½Ð¾ä±úµÄ¸ÅÄî¸ã²»Çå³þ£¬ÓÚÊDzéÁËÒ»ÏÂÏÖÔÚ°Ñ×Ô¼ºµÄÀí½âд³öÀ´£¬ºóÃæÔÙÌùÍøÉϵĽéÉÜ¡£¾ä±úÊÇÒ»¸ö´ú±í´°¿ÚµÄÕýÕûÊý£¬µ±È»´°¿ÚµÄ¸ÅÄîÔÚÕâÀï°üº¬ÁË×ÀÃæ¡¢°´Å¥¡¢¹ö¶¯ÌõµÈ£¬Õâ¾ÍÊÇÎÒ×î¼òµ¥µÄÀí½âÁË¡£
ÒÔÏÂÊÇÍøÉϵĽéÉÜ£º
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Á˽â¾ä±ú
ÔÚµ÷ÓÃ ......

VBʵÀý —ÍòÄêÀú £¨1£©

1¡¢´´½¨¿Ø¼þ£ºlbl1¡¢txt1¡¢lbl2¡¢cmd1
2¡¢lbl1.caption=ÊäÈëÈÕÆÚ£¨ÈÎÒ»ÖÖÕýÈ·¸ñʽ£©£º
ÉèÖÃlbl1¡¢txt1¡¢lbl2¡¢cmd1µÄ×ÖÌå´óС¼°ÑÕÉ«£»
3¡¢Ë«»÷°´Å¥“È·ÈÏ”£¬Ìí¼Ó´úÂ룬Ч¹ûΪ£º
    Option Explicit
        Private Sub cmd1_Click()
  &nb ......

vb³£ÓõÄÄÚ²¿º¯Êý£¨Ò»£©£ºÊýѧº¯Êý


Êýѧº¯Êý£ºÖ÷ÒªÓÃÀ´Íê³ÉÊýÖµ¼ÆËã¡£
£¨1£©abs£¨X£©£º¾ø¶ÔÖµº¯Êý£¬¼ÆËãXµÄ¾ø¶ÔÖµ£¬XΪһ¸öÊýÖµ±í´ïʽ¡£
£¨2£©sgn£¨X£©£º·ûºÅº¯Êý¡£¸Ãº¯ÊýµÄ¹¦ÄÜÊÇÅжÏXµÄ·ûºÅ¡£µ±X>0ʱ£¬º¯ÊýֵΪ1£»X<0ʱ£¬º¯ÊýֵΪ-1£»X=0ʱ£¬º¯ÊýֵΪ0.
£¨3£©exp£¨x£©£ºÃÝÔËË㺯Êý¡£·µ»ØeµÄX´ÎÃݵÄÖµ£¬·µ»ØÖµÎªË«¾«¶ÈÐÍÊýÖµ¡£
£¨4£©log£¨x£©£º× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ