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

VB.NETÖвÙ×÷xmlÎļþ£¨²åÈë½Úµã¡¢Ð޸ġ¢É¾³ý£©

ÒÑÖªÓÐÒ»¸öXMLÎļþ£¨bookstore.xml£©ÈçÏ£º
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
</bookstore>
1¡¢Íù<bookstore>½ÚµãÖвåÈëÒ»¸ö<book>½Úµã£º
Dim xmlDoc As New XmlDocument()
xmlDoc.Load("bookstore.xml")
Dim root As XmlNode = xmlDoc.SelectSingleNode("bookstore") '²éÕÒ<bookstore>
Dim xe1 As XmlElement = xmlDoc.CreateElement("book") '´´½¨Ò»¸ö<book>½Úµã
xe1.SetAttribute("genre", "ÀîÔÞºì") 'ÉèÖøýڵãgenreÊôÐÔ
xe1.SetAttribute("ISBN", "2-3631-4") 'ÉèÖøýڵãISBNÊôÐÔ
Dim xesub1 As XmlElement = xmlDoc.CreateElement("title")
xesub1.InnerText = "CS´ÓÈëÃŵ½¾«Í¨" 'ÉèÖÃÎı¾½Úµã
xe1.AppendChild(xesub1) 'Ìí¼Óµ½<book>½ÚµãÖÐ
Dim xesub2 As XmlElement = xmlDoc.CreateElement("author")
xesub2.InnerText = "ºò½Ý"
xe1.AppendChild(xesub2)
Dim xesub3 As XmlElement = xmlDoc.CreateElement("price")
xesub3.InnerText = "58.3"
xe1.AppendChild(xesub3)
root.AppendChild(xe1) 'Ìí¼Óµ½<bookstore>½ÚµãÖÐ
xmlDoc.Save("bookstore.xml")
//===============================================
½á¹ûΪ£º
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
<book genre="ÀîÔÞºì" ISBN="2-3631-4">
<title>CS´ÓÈëÃŵ½¾«Í¨</title>
<author>ºò½Ý</author>
<price>58.3</price>
</book>
</bookstore>
2¡¢Ð޸Ľڵ㣺½«genreÊôÐÔֵΪ“ÀîÔ޺쓵ĽڵãµÄgenreÖµ¸ÄΪ“updateÀîÔ޺씣¬½«¸Ã½ÚµãµÄ×Ó½Úµã<author>µÄÎı¾ÐÞ¸ÄΪ“ÑÇʤ”¡£
Dim nodeList As XmlNodeList = xmlDoc.SelectSingleNode("bookstore").ChildNodes '»ñÈ¡bookstore½ÚµãµÄËùÓÐ×Ó½Úµã
Dim xn As XmlNode
For Each


Ïà¹ØÎĵµ£º

Ò½Ôº Ã×ÀÏʦ VB×ܽá

×òÌìÏÂÎçÎÒºÍСÅÖ±»Ã×ÀÏʦ´«»½µ½ÊÐҽԺȥ£¬Ã×ÀÏʦÏëÌýÌýËûÖÜÁùÉϵĿζÔÎÒµÄÓ°ÏìÓжà´ó£¬ÎһشðµÄ»ù±¾ÄÚÈݺ͡¶10Äê VB 1¡·ÀïÃæµÄÄÚÈݲ¶à£¬µ«Ã×ÀÏʦ¸Ð¾õºÜ¿Õ¶´£¬¸Ð¾õÎÒÔÚ·º·º¶ø̸£¬ÆäʵÎÒÒ²Óиоõ¡£
ΪÁ˽«Ã×ÀÏʦ˵µÄ×᷽ܽ·¨Ó¦ÓÃÓÚʵ¼ù£¬ÎÒÕâÁ½ÌìÇôúÂë·¢ÏÖMsgBox£¬InputBox£¬PrintµÄÓ÷¨²î²»¶à£¬È»ºó¾Í½«Æä×ܽáÈçÏ£º
......

VBʵÀý —ÍòÄêÀú (3)

Ô­À´µÄ´íÎóÊÇ£ºTimer1µÄEnabledÊôÐÔÉèΪTrue¡£
´úÂë´íÎóÊÇ£º
Private Sub Timer1_Timer()
Dim c As Date
    c = Time
    lbl3.Caption = CStr(c)
End Sub
————————————————&mdas ......

VB ³£Óà ¿ì½Ý¼ü Èȼü ³ÌÐòÔ±

´°ÌåÉèÖ㬿ؼþ²¼¾ÖʱÓÃ:
alt+v+x¿ÉÒÔ¿ìËÙÏÔʾ³ö¹¤¾ß¿ò
Alt+P+N ÒýÓÃ
ctrl+×óÓÒ¼üÍ·¿ÉÒÔÒƶ¯¿Ø¼þ  
shift+×óÓÒ¼üÍ·µ÷Õû¿Ø¼þ´óС
F7   Çл»µ½±à¼­´°¿Ú
Shift+f7 Çл»´úÂë´°¿Ú
¿ª·¢´úÂ룬µ÷ÊÔ´úÂ붼ÄÜÓõģº
Ctrl+C¸´ÖÆ
Ctrl+VÕ³Ìù
Ctrl+X¼ôÌù
Ctrl+F²éÕÒ
¿ª·¢´úÂëʱÓõÄ:
Tab ÏòÓÒÍÆ
Shi ......

vb³£ÓõÄÄÚ²¿º¯Êý£¨Ò»£©£ºÊýѧº¯Êý


Êýѧº¯Êý£ºÖ÷ÒªÓÃÀ´Íê³ÉÊýÖµ¼ÆËã¡£
£¨1£©abs£¨X£©£º¾ø¶ÔÖµº¯Êý£¬¼ÆËãXµÄ¾ø¶ÔÖµ£¬XΪһ¸öÊýÖµ±í´ïʽ¡£
£¨2£©sgn£¨X£©£º·ûºÅº¯Êý¡£¸Ãº¯ÊýµÄ¹¦ÄÜÊÇÅжÏXµÄ·ûºÅ¡£µ±X>0ʱ£¬º¯ÊýֵΪ1£»X<0ʱ£¬º¯ÊýֵΪ-1£»X=0ʱ£¬º¯ÊýֵΪ0.
£¨3£©exp£¨x£©£ºÃÝÔËË㺯Êý¡£·µ»ØeµÄX´ÎÃݵÄÖµ£¬·µ»ØֵΪ˫¾«¶ÈÐÍÊýÖµ¡£
£¨4£©log£¨x£©£º× ......

flash¶ÁÈ¡xmlÊý¾ÝÏÔʾͼƬÔÚ»ðºüÖв»ÄÜÕý³£ÏÔʾµÄÎÊÌâ

ÔÚhtmlÎļþÖÐǶÈëµÄ´úÂëÈçÏÂ:
<script type="text/javascript">
var xmlUrl="news.xml";
var swfURL="news.swf";
var img_Speed=2;
var page_Speed=3000;
var TextPosition="down";
var HeadlineColor="#ff0000";
var HeadlineFont="14px";
va ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ