Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vbÈçºÎµ÷ÓÃIllustrator£¨´ËÇ°IllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

ÇëºÃÐÄÈË°ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ