Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ʵÓú¯Êý

 ×ª×Ô:http://www.pconline.com.cn/pcedu/empolder/gj/vb/0506/644702.html
Time
·µ»ØÏµÍ³Ê±Öӵĵ±Ç°Ê±¼ä¡£
Date
·µ»ØÏµÍ³Ê±Öӵĵ±Ç°ÈÕÆÚ¡£
Now
·µ»Ø´ú±íµ±Ç°ÈÕÆÚºÍʱ¼äµÄ±àÂëÖµ¡£¸Ãº¯Êý¾­³£ÓÃ×÷ÆäËüϵͳʱÖÓº¯ÊýµÄ²ÎÊý¡£
Hour(Time)
·µ»ØÖ¸¶¨Ê±¼äµÄСʱ²¿·Ö£¨0µ½23£©¡£
Minute(Time)
·µ»ØÖ¸¶¨Ê±¼äµÄ·ÖÖÓ²¿· ......

VB ¡¢VBA ¡¢VSTO

****ʲôÊǶþ´Î¿ª·¢?
    Ò»°ãµÄÀ´Ëµ£¬Ò»Ð©´ó¹«Ë¾ÈçIBM¡¢MS¿ª·¢ÁËÒ»¸ö´óÐ͵ÄÈí¼þϵͳƽ̨£¬¸ù¾Ý²»Í¬µÄ¿Í»§µÄÐèÒª£¬Ò»Ð©ÆäËüµÄÖÐС¹«Ë¾Îª¿Í»§¸ù¾ÝÐèÇóÔÚ¸ÃÆ½Ì¨ÉϽøÐеڶþ´ÎÓÐÕë¶ÔÐԵĿª·¢£¬Õⱻͳ³ÆÎª¶þ´Î¿ª·¢¡£
¡¡ ¶þ´Î¿ª·¢Òª¿´Èí¼þÊÇ·ñÌṩÏàÓ¦µÄ½Ó¿Ú£¬ÓеãÈí¼þ¹«Ë¾Ö»ÌṩÈí¼þ£¬µ«Ò²ÓÐС¹«Ë¾Á¬´úÂëÒ»Æð³öÊÛ£¬È ......

VCµ÷ÓÃVBµÄdll

Óо²Ì¬ºÍ¶¯Ì¬Á½ÖÖ£¬¾²Ì¬µÄÐèÒªlib¶ø¶¯Ì¬µÄÖ»ÐèÒªÒ»¸ödll¾Í¿ÉÒÔÁË£¨µ«ÊÇÒªÖªµÀº¯ÊýµÄ¶¨ÒåÒ»°ãÊÇÍ·ÎÄ
¼þ£©¶¯Ì¬Ïà¶Ô¸´ÔÓÒ»µã£¡µ«ÊÇÕÆÎÕÁËÒ²²»ÊǺÜÄÑ  
  //µÚÒ»²½     ¶¨Ò庯ÊýÖ¸Õë¾ÍÊÇÄãÒªµ÷Óõĺ¯Êý£¬²ÎÊý±ØÐëÒ»Ö£¬²»È»¾ÍÄÚ´æÐ¹Â¶  
  typedef   HANDLE ......

vb ´òÓ¡

 Private Sub PrintTxt(txt As String, ConWidth As Long, LeftPosition As Long)
    Dim str As String
    Dim str1 As String
    Dim len1 As Long
   
    str = txt
    len1 = ConWidth
  &nbs ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ