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

vb±àдµÄDLL±»³ÌÐòµ÷ÓÃʱµÄ³öÏÖÎÊÌ⣿

ÎÒ֮ǰÓõÄһЩ¶¯Ì¬Á´½Ó¿â£¨´ó²¿·Ö²»ÊÇvbÓïÑÔ±àдµÄ£©µ÷ÓÃʱ¶¼ÊÇÔÚ³ÌÐòÖÐÉùÃ÷һϺ¯Êý¾Í¿ÉÒÔµ÷ÓÃÁË£¬
vb±àдµÄ¶¯Ì¬Á´½Ó¿âÔÚ±ðµÄÓïÑÔÖе÷ÓÃʱ¿ÉÒÔÖ±½ÓÉùÃ÷ÁËÒÔºóµ÷ÓÃÂð£¿Èç¹û²»Ðеϰ£¬ÔÚ±ðµÄÓïÑÔµ÷ÓÃʱӦ¸ÃÔõô×ö£¿ÔÚvbÓïÑÔµ÷ÓÃʱÓÖÓ¦¸ÃÔõô×ö£¿Çëд³ö¾ßÌåµ÷Óò½Ö裡
ÔÙÕߣ¬ÎҵIJÙ×÷²½ÖèÈçÏ£¬²»¹ýÀÏÊÇÌáʾ³ö´í£¬ÇëÖ¸µã£º
  1¡¢ÎÒн¨Ò»¸öActiveX DLL£¬ÔÚ×Ô¶¯´ò¿ªµÄclass1ÖУ¬±àдÈçÏ´úÂ루Çó×î´ó¹«Ô¼Êý£©
  Public Function gcd(ByVal x As Integer, ByVal b As Integer) As Integer
    Do While y <> 0
    reminder = x Mod y
    x = y
    y = reminder
    Loop
    gcd = x
End Function
2¡¢È»ºó±£´æ¹¤³ÌÃûΪ£ºMySDK.vbp£¬ÀàÃû£ºMykits.cls£¬
3¡¢Éú³ÉMySDK.dll£¬
4¡¢½«Éú³ÉµÄ¶¯Ì¬¿â·ÅÔÚsystem32Ï£¬Ôڵ㡰¿ªÊ¼--ÔËÐÐ--дÈ룺Regsvr32 MySDK.dll--È·¶¨¡±£¬
5£¬ÔÙн¨Ò»¸ö¹¤³Ì´ò¿ª¡°±ê×¼.exe¡±È»ºó±à´úÂëÈçÏ£º
Private Sub Form_Click()
    Dim a As Integer, b As Integer, x As Integer
    a = 96: b = 64
    x = gcd(a, b)
    Print "G.C.D="; x
End Sub
½«¹¤³Ì±£´æÎªgh.vbp£¬´°¿Ú±£´æÎª£ºfg.frm¡£µã£º¹¤³Ì-- ÒýÓÃ-- Ñ¡Ôñsystem32ÏµĶ¯Ì¬Á´½Ó¿â£¬È·¶¨ºóÌáʾ£º¡°Ä£¿éÓëÒÑ´æÔÚµÄÄ£¿é¡¢¹¤³Ì»ò¶ÔÏó³åÍ»¡±ÕâÊÇÔõô»ØÊ°¡£¿ÎÒÔÚÄÄÒ»²½Öè×ö´íÁË£¬Ó¦¸ÃÔõôÐ޸ģ¿ÇëÖ¸µãÖ¸µã£¡¶àл£¡

MySDK.dllÃû×ÖÓгåÍ»,»»¸öÃû×Ö

Regsvr32 /u MySDK.dll È»ºóÔÙ×¢²á


Ó¦¸ÃÊÇÏ


Ïà¹ØÎÊ´ð£º

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

Vb.net Access CrystalReport - .NET¼¼Êõ / VB.NET

µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ