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

vbµ÷ÓÃvc±àдµÄDLL£¬ÎÊÌ⣡

ÎÒÏëʵÏÖÕâÑùÒ»¸öЧ¹û£º
ÎÒÓÃVC±àдÁ˸öDLL £¬VB µ÷ÓÃÀïÃæµÄÒ»¸öº¯Êý£¬·µ»Ø¸øVBÒ»¸ö×Ö·û´®£¬
ĿǰҪ²»¾ÍÊÇÂÒÂ룬Ҫ²»¾ÍÊDZÀÀ££¡ÎÒ²éÁËÍøÉϺܶà×ÊÁÏ£¬¶¼Ã»Óгɹ¦ £¡
Çë´óϺÃÇ99999ÎÒ°¡ £¡
Àý×ÓÈçÏ£º
VC£º
SQLCE3_DRIVER_API BSTR TestString(LPCTSTR InStr)
{

CString Buf;  
  Buf = "²âÊÔÓÃÀý";  
  return Buf.AllocSysString();  
   
}
VB:
Private Declare Function TestString Lib "Sqlce3_Driver.dll" Alias "?TestString@@YAPA_WPB_W@Z" (ByVal strS As String) As String
  Dim a As String
  a = TestString("Õâ¸ö²ÎÊýûÓÐÒâÒå")

ÊäÈëÒ»¸öÒѾ­³õʼ»¯ºÃµÄ×Ö·û´®»º³åÇøµØÖ·,¼°Æä³¤¶È.

È»ºóDLLÀïÏòÄǸö»º³åÇøÐ´ÈëÄÚÈÝ,²¢·µ»ØÊµ¼ÊдÈëµÄ³¤¶È.

²Î¿¼GetComputerNameµÄÓ÷¨.

Äܲ»ÄܰïÎÒд¸öÀý×ÓÄØ £¬ÎÒºÜÉÙÓÃVB¡£Ð»Ð»ÁË ~

SQLCE3_DRIVER_API ÊÇʲô?VCÎÒ²»Êì.

µ«Ò»°ãÊÇÉùÃ÷ΪWINAPI,VBÖ»Ö§³ÖstdCall.

°ÑÀý×ÓÀïµÄBufÄÚÈݸ´ÖƵ½ÊäÈëµÄInStrÖ¸ÕëÀï.

ÔÙ¼Ó¸ö²ÎÊý,´óÔ¼ÈçÏÂ:

C/C++ code:
WINAPI INT TestString(LPCTSTR InStr,int StrLength)
{

CString Buf;
Buf = "²âÊÔÓÃÀý";
memcpy instr,&buf,sizeof(buf); 'ÕâÀïÒª¸´ÖÆ,Óï·¨²»ÖªµÀ¶Ô²»¶Ô
return sizeof(buf);
}

VB˕̾:


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ