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

VCµÄDLLÈç¹ûͨ¹ý²ÎÊýÏòVB´«Êý¾Ý£¿ - VB / »ù´¡Àà

ÎÒÕâÑùдµÄ.
VC DLL²¿·Ö
size_t *Ep2ReadLen;
extern "C" int _stdcall TestDLL(size_t* iPort2ReadLen)
{
Ep2ReadLen = iPort2ReadLen;
*Ep2ReadLen = 5; //͉˕
if (Ep2ReadLen)
{
free(Ep2ReadLen);
//Ep2ReadLen=NULL;
}

return 0;
}

VB²¿·Ö
Declare Function TestDLL Lib "XXX.dll" (ByRef iPort2ReadLen As Integer) As Integer
Dim iPort2ReadLen As Integer
rt = TestDLL(iPort2ReadLen)

±àÒëͨ¹ý£¬ÔËÐÐVB³ÌÐò£¬µ÷Óã¬ÄÜÕýÈ··µ»Ø5¡£µ«ÊÇÔڹرÕVB³ÌÐòʱ,±¨´í¡£
µ«ÔÚÉÏÃæµÄ *Ep2ReadLen = 5; ×¢Ê͵ôºó£¬¾Í²»±¨´íÁË¡£ËµÃ÷ÊÇÕâÐе¼Öµġ£
ÎÒÔø¿¼ÂÇÊDz»ÊÇVCÖ¸ÕëûÓÐÊÍ·Å£¬ËùÒÔ¼ÓÉÏ free(Ep2ReadLen);
µ«½á¹ûÈÔȻһÑù¡£
Çë½Ì¸÷룬´íÔÚÄÄÀ


¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢

free(Ep2ReadLen);µÄÌí¼Ó²»ÊÇÎҵı¾Ò⣬×îÏÈÊÇûÓмÓÕâÐе쬵«×îÖչرÕVB³ÌÐò±¨´íºó£¬ÎÒÔö¼ÓÁËÕâÐУ¬½á¹ûÏàͬ¡£
ÎÒÔ­ÒÔΪÊÇûÓÐÊÍ·ÅÖ¸Õ룬µ¼Öµı¨´í£¬µ«ÏÖÔÚ¿´ºÃÏñÓÖ²»ÊÇ :(

VBºÃÏñûÓÐÖ¸Õ룿

¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢

VBÖÐ
ÎÒÓÖÊÔÁËÒ»ÏÂ

²âÊÔÒ»£º

Dim iPort2ReadLen As Integer
Private Sub Command1_Click()  
  iPort2ReadLen = 34
  rt = TestDLL(iPort2ReadLen)
  MsgBox iPort2ReadLen
End Sub

iPort2ReadLen ×÷Ϊȫ¾Ö±äÁ¿£¬¹Ø±ÕVB´°Ìåʱ¡°±¨´í¡±¡£


²âÊÔ¶þ£º

Private Sub Command1_Click()  
  Dim iPort2ReadLen As Integer
 


Ïà¹ØÎÊ´ð£º

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb²Ù×÷excel - VB / »ù´¡Àà

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

vb WebBrowser СÎÊÌ⣬Çë½Ì - VB / »ù´¡Àà

vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·

¶¥Ï¶¥ÏÂ

ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0

BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ