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 È»ºóÔÙ×¢²á
Ó¦¸ÃÊÇÏ
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......