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

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

vb²Ù×÷sqlÊý¾Ý¿âµÄµäÐÍÀý×Ó

±¾³ÌÐòÓÐÒ»²Ëµ¥¿ªÊ¼£¬ÀïÃæÓвéѯ£¬É¾³ý£¬Ð޸ģ¬Ìí¼Ó£¬³ÌÐò²»Ò»Ò»Áгö£¬Ö»Ð´³ö»ù±¾µÄ¹ý³Ì£¬Á¬½ÓÊý¾Ý¿â²ÉÓñê׼ģ¿é£º
'Public publicstr As String
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub main()     'Êý¾Ý¿âÁ¬½Ó¹²Ïíº¯Êý
  Set conn = New ADODB.Connect ......

VBÖеÄUnicode ºÍ Ansi ¸ñʽ ת»»


 VBÖеÄUnicode ºÍ Ansi ¸ñʽ
    Visual Basic 32-bit °æ±¾µÄ×Ö´®´¦Àí²ÉÓà Unicode£¬Ò²¾ÍÊÇ˵×Ö´®ÔÚ VB ÄÚ²¿ÊÇÒÔUnicode µÄ¸ñʽÀ´´æ·Å¡£ºÎν Unicode£¿¼òµ¥µÄ˵£¬¾ÍÊÇÿһ¸ö×Ö·û¶¼ÊÇÒÔ 2-byte µÄÐÎʽ±íʾ£¬¶øÃ¿¸ö¡¸ÊµÌå×Ö·û¡¹¾ÍÊÇÒ»¸ö¡¸×Ö·û¡¹¡£Òò´Ë£¬
 Len("´ó¼ÒºÃ")
 Len("abc")
& ......

ÔÙ̸ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥

    È¥ÄêÔøÐ´¹ýһƪ²©ÎÄ£¬Ãû³Æ½Ð¡¶ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥¡·£¬¸ÃÎÄÓÐÒ»¸ö¹ÛµãÊÇ´íÎóµÄ£¬¼´Í¸Ã÷ÎÞ´°¿ÚUsercontrol²»Ö§³ÖÉè¼ÆÊ±µãÑ¡¡£Æäʵ£¬Í¨¹ýÔÚUserControl_HitTest¹ý³ÌÀï¼ÓÈëHitResult = vbHitResultHitÓï¾ä£¬¾Í¿ÉÒÔʵÏÖÉè¼ÆÊ±µÄµãÑ¡ÁË£¬Îª´Ë£¬Ð޸ĴúÂëÈçÏ£º
'* ******************* ......

VB OpenGL»æÍ¼

×î½üÔÚʹÓúÍÑо¿OpenGL»æÍ¼£¬Óöµ½²»ÉÙÎÊÌâ¡£ÍøÉϲéÔÄ×ÊÁϵÄʱºò£¬·¢Ïִ󲿷Ö×ÊÁ϶¼ÊÇCÓïÑÔ£¬ºÍC++дµÄ£¬VBÕâ·½ÃæµÄ×ÊÁÏÌ«ÉÙÁË£¬VB6.0µÄ¾Í¸üÉÙ£¬ÏÖÔÚ¶¼Á÷ÐÐdotnet¡£×Ô¼ºÂòÁ˱¾OpenGLÊéÊÇÒ²ÊÇCÓïÑÔ°æµÄ¡£Õâ¸ö²©¿ÍÒ²¿ªÁË2Äê¶àÁË£¬¶¼Ã»Ð´µã¶«¶«ÉÏÀ´¡£³ÃÍíÉÏ˯²»×Å£¬ÉÏÀ´Ð´µã¡£
 
 Ò»¡¢Ê²Ã´ÊÇOpenGL£¿
OpenGLÊÇOpe ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ