VBµ÷ÓÃDLLÖеĺ¯Êý - VB / ¿Ø¼þ
ÎÒÏëʵÏÖÕâÑùÒ»¸ö¹¦ÄÜ£¬ÎÒÓÐÒ»¸öXMLÎļþ¸ñʽÈçÏÂ
<Field cnName="ÕʺÅ" fieldType="varchar" fieldLen="40" fieldScale="" ></Field>
<Field cnName="ÕË»§Ãû³Æ" fieldType="varchar" fieldLen="80" fieldScale="" ></Field>
<Field cnName="²¿ÃÅ " fieldType="varchar" fieldLen="4" fieldScale="" ></Field>
<Field cnName="¹ñÔ±×é " fieldType="char" fieldLen="2" fieldScale=""></Field>
cnName= ×Ö¶ÎÃû³Æ fieldType=×Ö¶ÎÀàÐÍ fieldLen=×ֶγ¤¶È fieldScale=СÊýµãµÄλÊý
ÎÒÏë°ÑXMLµÄ¸÷¸ö×Ö¶ÎÊôÐÔ¶ÁÈë±£´æµ½Êý×éÖУ¬È»ºó°ÑÊý×é×÷Ϊ²ÎÊý´«µÝ¸øActivex DLLÖк¯Êý£¬VBͨ¹ýµ÷Óøú¯Êý£¬°Ñ¸÷¸ö×ֶγÉÒ»¸öÄ£°å£¨Ö»Òª°Ñ×Ö¶ÎÒ»´Î´«¸ø¸Ãº¯ÊýµÄ²ÎÊý¼´¿É£©
DLLÃû³ÆÎªmakerdf.dll ÆäÖÐÀàΪ IdeaRDF
º¯ÊýΪAppendField(name As String,desc As String, vartype As Integer, Length As Integer, dec As Integer, impliedDec As Boolean, parameter As String))
name //×Ö¶ÎÃû³Æ>
desc //×Ö¶Î˵Ã÷>
vartype // 1-×Ö·û 2-Êý×Ö 5-ÈÕÆÚ Ê±¼ä 0-ÎÞЧÀàÐÍ>
offset //Æ«ÒÆ ¹Ì¶¨Îª0>
length //³¤¶È>
dec /СÊýλÊý> impliedDec //Èç¹ûÔ´Êý¾Ý°üÀ¨Ð¡Êýλȡfalse ²»°üÀ¨È¡true>
parameter //¸ñʽÑÚÂë ÈçÈÕÆÚÐ͵ĸñʽ¡°ÄêÄêÄêÄêÔÂÔÂÈÕÈÕ¡±
ÎÒдµÄ³ÌÐòÈçÏ£º£¨Ö»Ð´Á˶ÁÈëXML£¬ºÍÒýÓÃDLL²¿·Ö£¬µ÷Óò¿·ÖÂé·
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......