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

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²¿·Ö£¬µ÷Óò¿·ÖÂé·


Ïà¹ØÎÊ´ð£º

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

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

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

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

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

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ