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