VBµ÷ÓÃVCдµÄDLL³öÁ˵ãÎÊÌâ
VC DLL£º
BOOL __stdcall LEDShowCharge(byte addr,byte ledaddr,int staytime,int charge)£»
VB £º
Declare Function LEDShowCharge Lib "CardPc300.dll" (ByVal Addr As Byte, ByVal ledaddr As Byte, ByVal stattime As Long, ByVal charge As Long) As Boolean
Private Sub LEDShowCharge_Click()
Dim stattime As Long
Dim charge As Long
Dim test As Byte
stattime = 20
charge = 5
test = 25
If LEDShowCharge(1, 255, stattime, charge) Then
MsgBox ("ÉèÖÃÊշѳɹ¦")
Else
MsgBox ("ʧ°Ü!")
End If
End Sub
½á¹û³öÏÖ ¡°´íÎóµØ²ÎÊýºÅ»òÊÇÎÞЧµØÊôÐÔ¸³Öµ¡± µÄ´íÎ󡣲鿴LEDShowCharge(1, 255, stattime, charge)µÄ¶¨ÒåʱÌáʾ˵ʲô±»Òþ²ØÁË¡£ÕâVB´úÂëÊÇÎÒͬÊÂдµÄ£¬VC DLLÊÇÎÒдµÄ£¬²»ÖªµÀ»á²»»áÊÇÎÒDLLµÄÎÊÌ⣬µ«ÊÇÎÒÓÃVC DELPHIµ÷ÓõÄʱºò¶¼Õý³£°¡
1¡¢ ÄãµÄDLLÖк¯Êýµ¼³öÁËÂð£¿
2¡¢Èç¹ûDLLÒѾµ¼³ö³öÏÖÕâ¸öÎÊÌ⣬°ÑVBµÄÉùÃ÷·µ»Ø²ÎÊýÓÃlong Ìæ»»booleanÊÔÊÔ
º¯ÊýÓе¼³ö£¬ÎÒÓÃdelphiµ÷ÓÃÒ²ºÜÕý³£¡£
Declare Function LEDShowCharge Lib "CardPc300.dll" (ByVal Addr As Byte, ByVal ledaddr As Byte, ByVal stattime As Long, ByVal charge As Long) As Long
---------------------------
C:
#define TRUE 1
#define FALSE 0
BOOL = int
bool = byte
VB:
True = -1
False
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......