VB,C#ʹÓÃVCµÄ.libºÍ.hÎļþ
——————————————————————————————————
ÔÚc#ÖÐÈçºÎʹÓÃÒÔÇ°c++µÄ.lib¿âºÍ.hÍ·Îļþ
zhujiang_1977£¨Öì½£©
ÎÒÔø¾Óöµ½¹ýÀàËƵÄÎÊÌ⣬ÎҵĽâ¾ö·½·¨ÊÇ£¬ÓÃVC½«“ÒÔÇ°c++µÄ.lib¿âºÍ.hÍ·Îļþ”±àÒë³ÉCOM£¬ÔÙÔÚC#ÖÐʹÓ㬽á¹ûÊǹ¦ÄÜÉÏ´óÌ嶼¿ÉÒÔʵÏÖ£¬µ«ÊÇËÙ¶ÈÉÏÉÔ΢ÓÐЩÂý¡£
fa2002£¨·çÏèÍòÀ
ÎÒд¹ý2¸öVCµÄ½Ó¿ÚÁ¬½Ó³ÌÐò£¬Ã»COMʲôÊ£¬ÎÒ½¨ÒéÄãµ½MSDNÖÐÑ°ÕÒ"·âËÍ´¦Àí" ¿´¿´MSµÄ½¨Òé·½·¨ÔÙ˵¡£
zeaing£¨£©
ÄãµÄÎÊÌâÊǸöºÜ´óµÄÎÊÌ⣬ǣÉæµ½´úÂëµÄÖØÓá¢COM DLLµÄÖØÓá¢Win32 API DLLµÄÖØÓ㬵ȵȡ£Ö»ÄܸøÄãһЩ½¨Ò飺
1£©´úÂ뼶ÖØÓÃÊÇ×ö²»µ½µÄ¡£C++µÄ´úÂë²»ÄÜÖ±½ÓÓÃÔÚC#ÖС£
2£©ÄãÌáµ½Á˺ܶàÏÖÓеÄÀà¿â£¬ÀýÈçOpenGL¡¢DirectXµÈµÈ¡£ÕâЩÀà¿â£¬¶¼ÊÇÒÔDLLÐÎʽ³öÏֵģ¬ÒªÃ´ÊÇWin32 API DLL£¬ÒªÃ´ÊÇCOM DLL¡£ÎÞÂÛÊÇÄÄÒ»ÖÖ£¬¶¼¿ÉÒÔÔÚC#ÀïÃæͨ¹ýInteroperationÖØÓá£ÍøÉÏÓкܶàDLLImportºÍCOM InteropµÄÀý×ÓºÍÎĵµ¡£
3£©Èç¹ûÐèÒªÖØÓÃ.libºÍ.h£¬¾ÍÐèÒªÇø±ðÇé¿ö¶Ô´ý¡£Èç¹û.libÊÇ´¿´âµÄAPIº¯Êý¿â£¬ÄÇ¿ÉÒÔ°Ñ.libºÍ.h±àÒë³É.dll£¬¾Í¿ÉÒÔÔÚC#ÀïÃæͨ¹ýDLLImportÀ´ÖØÓá£Èç¹û.libºÍ.hÀïÃæÓÐ×Ô¶¨µÄÀ࣬¾Í±È½ÏÂé·³£¬×îºÃÊÇ°ÑÔ´Âë¿Ù³öÀ´£¨Èç¹ûûÓÐÔ´Â룬¾Í×Ô¼ºÔÙÔÚÍâÃæ°üÒ»²ã×Ô¼ºµÄÀࣩ£¬È»ºóÓÃCOMµÄ·½·¨ÖØаüװһϣ¬ÔÙ±àÒë³ÉDLL£¬ÕâÑù¾Í¿ÉÒÔÔÚC#ÀïÃæÓÃCOM InteropÀ´ÖØÓá£
unmanaged codeÊÇÒ»¸öºÜ´óºÜ´óµÄ»°Ì⣬½¨ÒéÄãÂýÂýÌå»áÂýÂý×êÑУ¬Ç°Ãæzhujiang_1977, fa2002ºÍ Muf¸øµÄ½¨Ò鶼ºÜÓвο¼¼ÛÖµ¡£Ö»ÓжÔWin32 API DLL¡¢COMÒÔ¼°.NETÖеÄInteroperation¶¼ÒѾÊìϤÁË£¬²ÅÄÜÈÚ»á¹áͨµÄ´¦Àí´úÂëÖØÓõÄÎÊÌâ¡£Ò»¿ÚÊdzԲ»Ï´óÅÖ×ӵġ£
Çë½ÌC++DLLµÄÎÊÌ⣬ÎÒÓÐÒ»¸ö.hºÍ.libÎļþ£¬ÇëÎÊÄÜÉú³ÉDLLÎļþÂð£¿
popy007£¨Twinsen£©
½¨Á¢Ò»¸öDLLµÄ¹¤³Ì£¬°Ñ.hºÍ.libÎļþµ¼Èë½ø¹¤³Ì£¬È»ºóÄ㽨Á¢Ò»Ð©×Ô¼ºµÄ·½·¨£¬Ã¿Ò»¸ö·½·¨ºÍ.hºÍ.libÖеÄÒ»¸ö·½·¨¶ÔÓ¦£¬²¢°Ñÿһ¸öºóÕß·â×°µ½Ò»¸ö¶ÔÓ¦µÄÇ°Õß¡£×îºó£¬µ¼³öDLLºó£¬Äã¿ÉÒÔʹÓÃ×Ô¼º±àдµÄ·½·¨£¬¶øÕâ·½·¨·â×°µÄ¶¼Ê
Ïà¹ØÎĵµ£º
Put Óï¾ä
½«Ò»¸ö±äÁ¿µÄÊý¾ÝдÈë´ÅÅÌÎļþÖС£
Put [#]filenumber, [recnumber], varname
Get Óï¾ä
½«Ò»¸öÒÑ´ò¿ªµÄ´ÅÅÌÎļþ¶ÁÈëÒ»¸ö±äÁ¿Ö®ÖС£
Get [#]filenumber, [recnumber], varname
ÀýÈ磺
dim B as byte
open "File1.txt" for binary as #1
get #1, 1, B
close #1
¼´¿É½«File1.txtÎļþµ ......
Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
Public Declare Function VarPtrStringArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
È¡¶ÔÏóµØÖ·: ObjPtr
È¡OLE¶ÔÏóµÄµØÖ·: OLE_NAME.LpOleObject
È¡º¯ÊýµØÖ·: AddressOf
È¡×Ö·û´®µØÖ·: StrPtr
È¡ ......
×¢Òâ:
ÔÚʹÓÃFindControlʱ,Ò»¶¨ÒªÔÚ×îÌù½ü²éÕÒ¶ÔÏóµÄÍâ±ß¼ÓÉϸöÈÝÆ÷,Èç¹ûÄãÖ±½ÓÓÃthis.FindControl,»òPage.FindControlÄÇô¾Í»á¾³£³öÏÖ佫¶ÔÏóÉèÖõ½ÊµÀý
µÄ´íÎó,ËùÒÔ×îºÃ¼ÓÒ»¸öÈÝÆ÷,ÄÇôÕâÀï¼ÓµÄDIV¾ÍÊÇÒ»¸öÈÝÆ÷,ΪÁËÈÃFindControlÔÚIDΪ"TextBoxs"µÄDIVÄÚÈ¥ÕÒÃûΪcom1,com2,com3µÄTextBOx;
<div ......
Option Explicit
Public Function ascii2Char(strInput As String) As String
Dim i As Integer
Dim strTemp As String
Dim nPos As Integer
Dim nValue As Integer
i = 1
nPos = InStr(i, strInput, "&#", vbTextCompare)
While (nPos > 0)
ascii2Char = ascii2Char + Left(st ......
ÕªÒª£º ±¾ÎIJûÊöÁËÔÚVB³ÌÐòÖÐÀûÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬ÕâЩ·½·¨ÔÚ¿ª·¢VBÊý¾Ý¿âÓ¦ÓóÌÐòÖкÜÓÐʵÓüÛÖµ£¬Ëü¿ÉÒÔÌá¸ßÊý¾Ý¿â³ÌÐòÁé»îÐÔ¡£
¡¡¡¡¹Ø¼ü´Ê£ºÊý¾Ý¿â¡¢Êý¾Ý±í¡¢ADO¡¢ADOX
¡¡¡¡1: ÎÊÌâµÄÌá³ö
¡¡¡¡ÔÚVisual BasicÖУ¬³£ÓõÄÊý¾Ý·ÃÎʽӿÚÓÐÏÂÁÐÈýÖÖ£ºÊý¾Ý¿â·ÃÎʶÔÏó(DAO£¬Data A ......