vbÔõôµ÷ÓÃvb±àдµÄdllÎļþ
±ÈÈ磺ÎÒÓиöÓÃvb±àдµÄdllÎļþÊÇaa.dll,ÄÇôÔÚÓÃvb±àдµÄexeÎļþÖÐÔõôµ÷Ó𡣡£¡£¡Ð»Ð»°¡£¡£¡£¡£¡£¡
²Ëµ¥——¡·¹¤³Ì——¡·ÒýÓà ÕÒµ½ÄãµÄDllÎļþ£¬¼´¿ÉÒýÓà ʹÓñê×¼µÄAPIµ÷Ó÷½·¨Ò²¿ÉÒÔʵÏÖ CreateObject()ÒýÓà ²Ëµ¥——¡·¹¤³Ì——¡·ÒýÓà ÕÒµ½ÄãµÄDllÎļþ£¬¼´¿ÉÒýÓà ÓõÄʱºò Dim dlltest Set dlltest= CreateObject("yourdll.XXX") 'yourdll,ÄãµÄdllÃû 'XXXÊÇÄãDllÖеķ½·¨ ËÑË÷¡£ °ï¶¥ fly1229ÀÏʦллÄãÁË£¬Äã˵µÄÕâЩÎÒ¶¼»á°¡£¬ÔÙÍùºóÔõôдÎÒ²»»áÁË£¬Ï£ÍûÄã¸æËßÎÒ£¬ºÃÂ𣡣¡Ð»Ð»£¡£¡ fly1229ÀÏʦ£¬ÎÒ°´ÄúµÄָʾ×öÁË£¬ÌáʾÈçÏ´íÎó£º ActiveX²¿¼þ²»ÄÜ´´½¨¶ÔÏó£¬ÔÙÔõô×ö£¬Çëָʾ°¡£¡£¡£¡ windyhero1983ÀÏʦ£¬¾ßÌåÔõôд´úÂë,ÇëÄúָʾ°¡£¡£¡£¡Ð»Ð»°¡ °Ñaa.dllÏÈ×¢²á¡£ regsvr32 /u Private Declare Function aa Lib "aa.DLL" (ByVal PortNumber As Integer, ByVal baudrate As Integer) As Integer 'µ÷ÓÃaa.DLLµÄÃüÁî ÊÔÒ»ÊÔ: (1)ÏȰÑdllÎļþ·ÅÔÚSystem32ÏÂ,È»ºó²Ëµ¥——>¹¤³Ì——>ÒýÓà >¹´Ñ¡ÄãdllÎļþ. (2)Dim obj as aa set obj=NEW aa syssz(ÀÏÕÅ)£¬ÏÂÒ»²½ÔÙÔõôд?Çëָʾ!!! qiangshou2301(qiangshou2301)ÀÏʦ,ÏÂÒ»²½ÔÙÔõôд?Çëָʾ!!! obj.ÄãµÄ·½·¨£¨ÊôÐÔ£© ÒªpublicµÄ¡£ Â¥Éϸ÷λ¶¼ËµµÄºÜÇå³þÁË,lz»¹ÓÐÎÊÌâÂð ºÃÏñÖ±½ÓÒýÓÃ
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö ´úÂëÓ¦¸ÃÔõô´ò£¿ LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË ´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ ´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£ »Ø¸´ ......
¸÷λ´óϺ£º ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
ÈçÌâ¡£ ²»ÓÃAPIÒ²ÄÜʵÏÖ: http://topic.csdn.net/u/20090503/10/b8bbc710-37e3-4474-a724-ea6fad2e6bc0.html ʹÓÃAPIÊä³öÎı¾´æÔÚÏÔʾˢÐÂÎÊÌâ,ÐèÔÚReSize»òPaintʼþÖмÓÈë´úÂë. http://download.csdn.net/ ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡ ²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£ Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......