VBµ÷ÓÃDLLÖеĺ¯Êý - VB / COM/DCOM/COM+
ÎÒÏëµ÷ÓÃDLLÖк¯Êý
ÒýÓÃ
dim obj as Object
set obj=new ¡¡
obj.function()
ÄãµÄdllÊÇʲôÀàÐ͵ģ¿
Èç¹ûÊÇAPIÀàÐ͵ģ¬ÄãµÃÏÈÉùÃ÷ÐèÒªµ÷Óõĺ¯Êý
Èç¹ûÊÇActive X Dll£¨active dll¾ÍÊÇ·â×°ÁË×é¼þµÄdll£©£¬ ÄÇôÄã¾ÍÒªÏÈÒýÓã¬È»ºóÉùÃ÷¶ÔÏ󣬲¢ÊµÀý»¯¡£ÔÙ½øÐе÷ÓÃ
ÏÈÒªÇå³þDLLÀï·â×°ÁËʲôÑùµÄº¯Êý ¼°Æä²ÎÊýÀàÐÍ
ÖªµÀÁËÖ®ºóÖ±½Ó¼ÓÔØÒýÓþͿÉÒÔÁË
xuexile
·ÖÇå³þdllÊÇʲôÀàÐ͵Ä
activex dll£¬¿ÉÒÔʹÓà createobject£¬Èç¹ûÕâ¸öcomÖ§³Ö×Ô¶¯»¯½Ó¿ÚµÄ»°¡£
·ñÔò¿ÉÒÔÓÃcoinitialize cocreateinstanceµÈһϵÁÐapi¡£
native dll£¬¿ÉÒÔʹÓÃdeclareÉùÃ÷º¯ÊýÔÐÍ£¬È»ºóʹÓ㬻òÕßʹÓÃLoadLibrary¶¯Ì¬¼ÓÔØ¡£
.net dll£¬¿ÉÒÔÏȰü×°³Écom dll£¬È»ºóʹÓá£
ÌáÎʵÄÒ¯.
·ÖÇå³þdllÊÇʲôÀàÐ͵Ä
activex dll£¬¿ÉÒÔʹÓà createobject£¬Èç¹ûÕâ¸öcomÖ§³Ö×Ô¶¯»¯½Ó¿ÚµÄ»°¡£
·ñÔò¿ÉÒÔÓÃcoinitialize cocreateinstanceµÈһϵÁÐapi¡£
native dll£¬¿ÉÒÔʹÓÃdeclareÉùÃ÷º¯ÊýÔÐÍ£¬È»ºóʹÓ㬻òÕßʹÓÃLoadLibrary¶¯Ì¬¼ÓÔØ¡£
.net dll£¬¿ÉÒÔÏȰü×°³Écom dll£¬È»ºóʹÓá£
End_rbody_64640724//-->
¸Ã»Ø¸´ÓÚ2010-04-14 08:55:19±»¹ÜÀíԱɾ³ý
¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TOP
vvhh33qq13
(vvhh33qq13)
µÈ¡¡¼¶£º
#9Â¥ µÃ·Ö£º0»Ø¸´ÓÚ£º2010-04-14 11:59:20
Ïà¹ØÎÊ´ð£º
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(& ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......