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
 
Ïà¹ØÎÊ´ð£º
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......