Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

´ÓVBתÐÐVB.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃÅ°¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀﶼÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

VB Çë½Ì¸ßÊÖ¹ØÓÚÓû§¿Ø¼þÎÊÌâ

ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔص½´°ÌåÉÏ

    Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName)
    objExt.Visible = True

³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ô ......

ÊìϤVBµÄ½øÀ´£¬ÓÐÏîÄ¿


ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?

ÐǪ̈ÁªÏµ·½Ê½ÄØ

ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨

¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ

±±¾©µÄÐв»£¿

ÎÒÔÚËÕÖÝ£¬ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ