Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

vbÖÐÈçºÎʵÏÖ¶ÔÏóÊôÐԵĶ¯Ì¬ÉèÖà - VB / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......

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

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