VB×Ö·û´®×ªXMLÎļþ
¿ª·¢¹¤¾ß£ºVB6.0
ÏÖÓÐÈçÏ´úÂ룬Çë¸÷·¸ßÊִͽ̣¡Ð¡µÜ²»Ê¤¸Ð¼¤~~ÈçÓÐÔ´Âë¸üºÃ£¡
Private Sub Command1_Click()
Dim xmlStr As String
xmlStr = getXML
'ÇëÎÊÈçºÎ°ÑxmlStrת³ÉÒ»¸öxmlÎĵµ?
End Sub
Public Function getXML() As String
Dim xml As String
xml = xml + " <?xml version='1.0' encoding='UTF-8'?>"
xml = xml + " <FREIGHTCPIC>"
xml = xml + " <HEADER>"
xml = xml + " <TYPE>IN </TYPE>"
xml = xml + " <WORKTYPE>0 </WORKTYPE>"
xml = xml + " <CLASSESTYPE>1 </CLASSESTYPE>"
xml = xml + " <LOGINUSERNAME>ayyt </LOGINUSERNAME>"
xml = xml + " <LOGINPASSWORD>ayyt </LOGINPASSWORD>"
xml = xml + " </HEADER>"
xml = xml + " </FREIGHTCPIC>"
getXML = xml
End Function
´ú¿ª¸÷ÐÐÒµ¡¾増Ö±/鐠ͨ¡¿
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÎÒÔÚ±àдһ¸öwince5.0µÄ³ÌÐò£¬ÏëʵÏÖ°ÑPDAÉϵÄÒ»¸öLIST <STRING>ÀàÐ͵ÄÊý¾ÝÐòÁл¯ÎªXML£¬È»ºóÔÚPCÉϵÄÒ»¸öwebserviceÄõ½Õâ¸öXML£¬×ª»¯ÎªDataset£¬¸üÐÂPCÉϵÄÊý¾Ý¿â£¬ÎÒÏëÎÊÔõô°ÑXML´«¸øwebserviceµÄÄØ£¿
......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......