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
 
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......