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

VBʵÏÖSoap XML½âÎö

http://bbs.blueidea.com/viewthread.php?tid=531257
Èç¹ûÏëÁ˽âSOAPµ½µ×ÊÇʲô£¬¾ÍÒª×Ô¼º¶¯ÊÖ½¨Á¢×Ô¼ºµÄSOAP±ê×¼¶ÔÏó¡£±¾ÎÄ¿ÉÒÔ°ïÖúÄãÆð²½¡£
============================================
¼ò½é
SOAP - ¼òµ¥¶ÔÏó´¦ÀíЭÒé(Simple Object Access Protocol) - Êǵ±Ç°XML¿ª·¢µÄÈȵ㡣ËüÊÇ΢ÈíÐÂÒ»´úVisual StudioµÄÖ÷Òª½ÇÉ«£¬ÊÇ".NET"²ßÂԵĻù´¡¡£Èç¹ûÏëÓÃVB 6±àÖÆÒ»¸öÓб£ÕϵÄSOAP·þÎñ£¬¿ÉÒÔ²éÔÄ΢ÈíµÄSOAP¹¤¾ß°ü(VB)¡£µ«Èç¹ûÏëÁ˽âSOAPµ½µ×ÊÇʲô£¬¾ÍÒª×Ô¼º¶¯ÊÖ½¨Á¢×Ô¼ºµÄSOAP±ê×¼¶ÔÏó¡£±¾ÎÄ¿ÉÒÔ°ïÖúÄãÆð²½¡£
±¾ÎÄÖУ¬ÎÒÃÇ´´½¨Ò»¸ö¼òµ¥µÄSOAP·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë¡£·þÎñ¶ËÓÃASP±àд£¬ÃûΪsoap.asp¡£Õâ¸öÎļþÓ¦´æ·ÅÔÚ¸öÈËWeb·þÎñÆ÷µÄ¸ùĿ¼Ï£¬È磺\Inetpub\wwwroot¡£Õâ¸ö·þÎñÆ÷½«½ÓÊܺʹ¦Àí¿Í»§¶ËÌá³öµÄSOAPÇëÇ󡣿ͻ§¶ËÊÇÒ»¸ö¼òµ¥µÄVB¿ÉÖ´ÐÐÎļþ£¬ÓÉSub Main()Æô¶¯¡£
²½Öè
ÖÚËùÖÜÖª£¬SOAPÊÇÒ»¸ö“ºô½Ð-ÏìÓ¦”»úÖÆ£¬°´¿Í»§/·þÎñ·½Ê½ÔËÐС£¿Í»§¶Ë(Ó¦ÓóÌÐò)Ïò·þÎñ¶Ë(λÓÚ»¥ÁªÍøÉϵÄij¸öWeb·þÎñÆ÷)·¢³öº¯Êýµ÷ÓÃÇëÇó²¢´«µÝ²ÎÊý£»·þÎñ¶ËÔò·µ»ØÏìÓ¦¡£ºô½ÐÓëÏìÓ¦µÄÄÚÈݺÍÊý¾Ý¶¼Êǰ´XMLÎļþ¸ñʽ½øÐд«Ë͵ġ£Òò´Ë£¬Òª½¨Á¢Ò»¸ö¼òµ¥µÄSOAPÓ¦ÓÃϵͳ£¬¾ÍÒª½¨Á¢Ò»¸ö¿Í»§¶ËºÍÒ»¸ö·þÎñ¶Ë£¬¼´Ò»¸öºô½Ð-ÏìÓ¦Ìåϵ¡£
ÏÂÃæÊÇÒ»¸ö¼òµ¥Àý×Ó£º
ÎÒÃǽ¨Á¢Ò»¸ö·þÎñ¶ËÀ´¼ÆËãÏúÊÛ½»Ò×µÄ˰¿î¡£°´ÕÕ´«Í³µÄVBÊõÓ¼´½¨Á¢Ò»¸öº¯Êý£¬¶¨ÒåÈçÏ£º
      Public Function GetSalesTax(ByVal pSalesTotal As Double) as Double
          GetSalesTax = pSalesTotal * 0.04
      End Function
Ò»¸ö´Ö²ÚµÄº¯Êý£¬µ«¿É×÷ΪʾÀý(±¾ÀýÖ»ÄÜÓÃÓÚ˰ÂÊΪ4%µÄµØ·½)¡£
Õâ¸öº¯Êý¶¨ÒåÁËÒ»¸öº¯ÊýÃû(GetSalesTax)£¬Ò»¸ö²ÎÊý(pSalesTotal – ÏúÊÛ½ð¶î)ºÍÒ»¸ö·µ»ØÖµ(º¯Êý·µ»ØÖµ)¡£°´ÕÕÃæÏò¶ÔÏóÔ­Ôò£¬¿ÉÒÔÈÏΪpSalesTotalÊÇÒ»¸ö"IN"²ÎÊý£¬GetSalesTax·µ»ØÖµÊÇÒ»¸ö"OUT"²ÎÊý¡£Òò´ËÎÒÃǵÄSOAP·þÎñ¶Ë¾ÍÒªÕìÌý¿Í»§·¢³öµÄµ÷ÓÃGetSalesTaxµÄÇëÇóºÍ´«µÝµÄ"IN"²ÎÊý(ÏúÊÛ½ð¶î)£¬È»ºó·µ»Ø´øÓÐ"OUT"²ÎÊýµÄ»ØÓ¦£¬Ïò¿Í»§·µ»ØËùÐè˰¿î¡£
¿Í»§¶Ë
ÏÂÃæÊÇÓÃVB½¨Á¢Ò»¸öºô½Ð·þÎñµÄ¿Í»§¶Ë³ÌÐò£º
      dblSalesTax = GetSalesTax(100)
      µÃµ½·µ»ØÖµ$4¡£
      
      Èç¹ûGetSalesTaxº¯ÊýÊÇÒ»¸öÍⲿ¶ÔÏ󣬱ÈÈçÔÚMTS·þÎñÆ÷ÉÏ£¬¾ÍÒ


Ïà¹ØÎĵµ£º

ÔÚVBÖÐÀûÓÃAPI½øÐд®¿ÚͨÐÅ


       Ò»°ãÀ´Ëµ£¬ÔÚVBÖбàд´®¿ÚͨѶ³ÌÐò£¬Ê×ÏÈ¿¼Âǵ½ÊÇʹÓÃMSComm¿Ø¼þ£¬¿ÉÊǸÿؼþ²»ÄÜÉèÖó¬Ê±£¬¶øÇÒ¶ÔÐí¶àÄÚ²¿µÄ²ÎÊý½øÐÐÁËÒþ²Ø£¬´Ó¶ø²»ÄÜÂú×ãÓÐЩ¾ßÌåµÄ¹¤×÷¡£¶øÊ¹ÓÃAPI½øÐд®¿ÚͨÐÅ£¬´ó¶àÊÇʹÓÃVC£¬ºÜÉÙ¼ûµ½ÍêÕûµÄVB´úÂ룬Ϊ´Ë£¬ÎÒ±àдÁËÕâ¸öÄ£¿é¡£
     &nbs ......

Ò»´Î²ÂÃյĹý³Ì£ºÔÚVBÀïµ÷ÓÃûÓнӿÚ˵Ã÷µÄDLLº¯Êý

±¾ÎÄÀ´×Ôqingye2008Ëù·¢µÄ´ËÌûµÄÌÖÂÛ£¬¸Ðл³Â»Ô¡¢ÂíÔÆ½£¡¢qingyeµÄÄÍÐÄÖ¸µãºÍ·ÖÏí¡£
1¡¢ÒýÑÔ
»°ËµqingyeͬѧµÃµ½ÁËÒ»¸öÓÃÓÚ¼Ó½âÃܵÄDll£¨¸Ã¶¯Ì¬¿âÔÚÕâÀïÏÂÔØ£©£¬Í¨¹ýDll Export Viewer¿´µ½dllÓÐ2¸öµ¼³öº¯Êý·Ö±ðÊÇDll_EncInºÍDll_EncOut£¬qingyeͬѧÏëÔÚVBÖÐʹÓÃÕâÁ½¸öº¯Êý¡£ÒòΪ¸ã²»µ½½Ó¿Ú˵Ã÷£¬Ö»ºÃͨ¹ý²é¿´»ã±à´úÂëÀ´²Â ......

¹ØÓÚActiveXµÄ½Ì³Ì[vb]£¨×ªÌû£©

¹ØÓÚActiveXµÄ½Ì³Ì
Visual BasicÊÇÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼ÆÓïÑÔ£¬Î¢Èí¹«Ë¾ÍÆ³öÁËActiveX¼¼Êõ£¬ÀûÓÃActiveX¼¼ÊõÌá³öµÄ±ê×¼£¬¶Ô½çÃæµÄÉè¼Æ½øÐÐÁË·â×°£¬ÐγÉÁËһϵÁбà³Ì¿Ø¼þ£¬¼´Ìض¨¹¦ÄܵijÌÐòÄ£¿é¡£ÔÚ³ÌÐòµÄÉè¼ÆÖУ¬Éè¼ÆÈËÔ±Ö»ÐèÒªÍ϶¯ËùÐè¿Ø¼þµ½´°Ì壬Ȼºó¶Ô¿Ø¼þ½øÐÐÊôÐÔÉèÖúÍʹÓÃÆä·½·¨¡¢Ê¼þ¼´¿É£¬´ó´ó¼õÇáÁË·±ËöµÄ³ÌÐòÉè¼Æ¡ ......

vb¼Ç¼¼¯Êý¾Ýµ¼Èëµ½excel

 Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--½«DataGridµ¼³öÖÁExcel,ProgressBar1Ϊ½ø¶ÈÌõ,intFirstΪ´ÓÄÄÒ»ÁпªÊ¼´òÓ¡,intLastΪ´òÓ¡µ½ÄÄÒ»ÁÐ
On Error Resume ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ