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 È»ºóÔÙ×¢²á
Ó¦¸ÃÊÇÏ
Ïà¹ØÎÊ´ð£º
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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 ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÏÖÓÐÒ»¶Ñ¿Ø¼þimage1(0),image1(1),image1(2)....
ÈçºÎ¸ü¸ÄΪ :image1,image2,image3
ºÃÏóÖ±½Ó¸ü¸Ä¿Ø¼þÃû²»¿ÉÒԵİ¡
Ò²¾ÍÊÇ˵Äܲ»ÄÜÈ¡Ïûµô¿Ø¼þÊý×é
ΪʲôҪ¸ü¸ÄÄØ£¿ÓÃÒ»¸öÑ»·£¬¿Ø¼þÊý×éimage1(i)ÓÃÆðÀ´¸ü·½±ã ......