vb.net 窗體布局的問題

1.先在窗體放置兩個pane，pane1的Dock屬性是Left，pane2是fill

目前創(chuàng)新互聯已為成百上千家的企業(yè)提供了網站建設、域名、網頁空間、綿陽服務器托管、企業(yè)網站設計、石樓網站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協力一起成長，共同發(fā)展。

2.再添加兩個pane，分別為pane3，pane4，把她們添加到pane2里面

3.再添加兩個button，放置到pane1里面

4.往pane3和pane4中分別放點不同的東西

5.然后button的事件是：

private void button1_Click(object sender, EventArgs e)

{

this.panel3.Visible = true;

this.panel4.Visible = false;

}

private void button2_Click(object sender, EventArgs e)

{

this.panel3.Visible = false;

this.panel4.Visible = true;

}

大概都是這么實現的，具體的效果還需要豐富

我以前也研究過vista優(yōu)化大師的效果

也仿照出來了，如果你需要源代碼，可以寫上你的郵箱，我給你發(fā)過去

vb.net xml 和treeview

你的xml文字有錯誤,正確的如下: ?xml version="1.0"? grouplist group name="1" server name="1.1"/ server name="2.2"/ /group group name="2" server name="2.1"/ server name="2.2"/ /group /grouplist 以下是在vs2008下調試成功 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tvw As TreeView Dim x As New Xml.XmlDocument Dim nd As Xml.XmlNode Dim pcnd As TreeNode Dim I As Integer Dim II As Integer tvw = New TreeView tvw.Parent = Me tvw.SetBounds(10, 10, 300, 300) x.Load("該處為xml文件路徑") '如 C:\\abc.xml For I = 1 To x.DocumentElement.ChildNodes.Count nd = x.DocumentElement.ChildNodes(I - 1) pcnd = tvw.Nodes.Add("G" I.ToString, nd.Attributes(0).Value) For II = 1 To nd.ChildNodes.Count pcnd.Nodes.Add(nd.ChildNodes(II - 1).Attributes(0).Value) Next pcnd.Expand() Next End Sub End Class

希望采納

vb.net操作xml數據庫(急)

使用System.XML

Imports Microsoft.VisualBasic

Imports System

Imports System.IO

Imports System.Xml

namespace HowTo.Samples.XML

public class WriteXmlFileSample

private const document as string = "newbooks.xml"

shared sub Main()

Dim myWriteXmlFileSample as WriteXmlFileSample

myWriteXmlFileSample = new WriteXmlFileSample()

myWriteXmlFileSample.Run(document)

end sub

public sub Run(args As String)

Dim myXmlTextReader as XmlTextReader = nothing

Dim myXmlTextWriter as XmlTextWriter = nothing

try

myXmlTextWriter = new XmlTextWriter (args, nothing)

myXmlTextWriter.Formatting = System.Xml.Formatting.Indented

myXmlTextWriter.WriteStartDocument(false)

myXmlTextWriter.WriteDocType("bookstore", nothing, "books.dtd", nothing)

myXmlTextWriter.WriteComment("此文件表示書店庫存數據庫的另一個片斷")

myXmlTextWriter.WriteStartElement("bookstore")

myXmlTextWriter.WriteStartElement("book", nothing)

myXmlTextWriter.WriteAttributeString("genre","autobiography")

myXmlTextWriter.WriteAttributeString("publicationdate","1979")

myXmlTextWriter.WriteAttributeString("ISBN","0-7356-0562-9")

myXmlTextWriter.WriteElementString("title", nothing, "The Autobiography of Mark Twain")

myXmlTextWriter.WriteStartElement("Author", nothing)

myXmlTextWriter.WriteElementString("first-name", "Mark")

myXmlTextWriter.WriteElementString("last-name", "Twain")

myXmlTextWriter.WriteEndElement()

myXmlTextWriter.WriteElementString("price", "7.99")

myXmlTextWriter.WriteEndElement()

myXmlTextWriter.WriteEndElement()

'向文件寫 XML 并關閉編寫器

myXmlTextWriter.Flush()

myXmlTextWriter.Close()

' 讀取返回的文件并進行分析以確保正確生成 XML

myXmlTextReader = new XmlTextReader (args)

FormatXml (myXmlTextReader, args)

catch e as Exception

Console.WriteLine ("異常：{0}", e.ToString())

finally

Console.WriteLine()

Console.WriteLine("對文件 {0} 的處理已完成。", args)

If Not myXmlTextReader Is Nothing

myXmlTextReader.Close()

end if

'關閉編寫器

If Not myXmlTextWriter Is Nothing

myXmlTextWriter.Close()

end if

End try

End Sub

private shared Sub FormatXml (reader as XmlTextReader, filename as String)

Dim piCount, docCount, commentCount, elementCount as Integer

Dim attributeCount, textCount, whitespaceCount as Integer

While reader.Read()

Select (reader.NodeType)

case XmlNodeType.ProcessingInstruction:

Format (reader, "ProcessingInstruction")

piCount += 1

case XmlNodeType.DocumentType:

Format (reader, "DocumentType")

docCount += 1

case XmlNodeType.Comment:

Format (reader, "Comment")

commentCount += 1

case XmlNodeType.Element:

Format (reader, "Element")

elementCount += 1

While reader.MoveToNextAttribute()

Format (reader, "Attribute")

end While

if (reader.HasAttributes)

attributeCount += reader.AttributeCount

end if

case XmlNodeType.Text:

Format (reader, "Text")

textCount += 1

case XmlNodeType.Whitespace:

whitespaceCount += 1

End Select

End While

' 顯示該文件的統(tǒng)計信息

Console.WriteLine ()

Console.WriteLine("{0} 文件的統(tǒng)計信息", filename)

Console.WriteLine ()

Console.WriteLine("處理指令：" piCount)

Console.WriteLine("文檔類型：" docCount)

Console.WriteLine("注釋：" commentCount)

Console.WriteLine("元素：" elementCount)

Console.WriteLine("屬性：" attributeCount)

Console.WriteLine("文本：" textCount)

Console.WriteLine("空白：" whitespaceCount)

End Sub

private shared Sub Format(byref reader as XmlTextReader , NodeType as String)

' 格式化輸出

Console.Write(reader.Depth " ")

Console.Write(reader.AttributeCount " ")

Dim i as Integer

for i = 0 to reader.Depth - 1

Console.Write(Strings.chr(9))

Next

Console.Write(reader.Prefix NodeType "" reader.Name "" reader.Value)

Console.WriteLine()

End Sub

End Class

End Namespace

參考:

vb.net中怎么創(chuàng)建xml文件并寫數據

DataSet 和 DataTable都有現成的方法：WriteXml

DataTable tb = this.dataGridView1.DataSource as DataTable;

if(tb != null)

{

tb.WriteXml(@"C:\table.xml",true);

return;

}

DataView dv = this.dataGridView1.DataSource as DataView;

if(dv != null)

{

dv.Table.WriteXml(@"C:\table.xml",true);

return;

}

IList list = this.dataGridView1.DataSource as IList;

if(list != null)

{

//to do,如果是IList,就要你自己想辦法導出了

//XmlDocument or XmlWriter都可以考慮

}

怎么用vb 修改 xml ?

有多種方法.

如果是vb.net，則其本身就有xml編輯支持，具有xml系統(tǒng)類，可以直接調用，再配合了listview來進行可視化處理。

如果是vb 6.0

則可以借助外部的控件，或者別人做好的控件。

其實xml也是一種可編輯的純文本格式。

你可以在vb里用richtextbox的load方法加載，然后自己用find方法分析，在列出樹形圖。

VB.NET 的TreeView控件連接XML文件

把XML看成一棵樹吧..用xmldocument操作,,,這里有參考的

有點難度噢...

分享名稱：關于vb.netxml布局的信息
分享URL：http://aaarwkj.com/article18/hhhodp.html

成都網站建設公司_創(chuàng)新互聯，為您提供網站制作、定制開發(fā)、手機網站建設、網站內鏈、移動網站建設、小程序開發(fā)

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯