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
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀﶼÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔص½´°ÌåÉÏ
Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName)
objExt.Visible = True
³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ô ......
ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?
ÐǪ̈ÁªÏµ·½Ê½ÄØ
ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨
¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ
±±¾©µÄÐв»£¿
ÎÒÔÚËÕÖÝ£¬ ......