|
------------Begin Update on my original question
I have been able to successfully store the attribute list in the TreeNode.Tag field in the AddNode function.
I have changed the line of code in AddNode function
inTreeNode.Text = inTreeNode.Text & " " & (attrNode.OuterXml).Trim
TO
inTreeNode.Tag = inTreeNode.Tag & " " & (attrNode.OuterXml).Trim
I do not see the Tag field displayed on the treeview though.
Then I changed the line of code in SaveScreenChangesToFile function
Else
StreamWriterForXml.Write("<" & currentTreeNode.Text & ">")
TO
Else
StreamWriterForXml.Write("<" & currentTreeNode.Text & " " & currentTreeNode.Tag & ">")
-- now I can save the attributes to an output.
But part of my original questions remains... how to display attributes in treeview? Do I HAVE TO populate the TreeNode.text field with attributes to see it? Which will have the effect of complicating my function when I go to write it out as a file. I will have to parse the TreeNode.text field more carefully.
-----------End Update on my original question
Hello,
I am having success with the following code in parsing element's attributes and displaying them in a treeview in visual studio 2003 in a vb.net application. However, when I go to save the treeview using the following code, I do not get any attributes. I am wondering if the way I am storing the attributes in the treeview is the problem. It seems you can display attributes in a treeview but they are still considered elements in a treeview structure. Below is the code I am using. By the way, when I only display elements in the treeview using the code below, there is no problem displaying or saving elements. It is only when I try to add the ability to display and save attributes that my trouble begins because I miss creating ending tags in the saved output and it just gets totally wierd for other things. I am sorry I am not explaining all the output problems when I try to deal with attributes. If anyone is able to shed some light, I will be glad to bore you with the details.
thanks.
tanya
BEGIN code that parses xmldocument into treeview
----- begin button subroutine that fires off reading xml from
------sql server and dumping it into a datatable, then read
------ datatable into an xmldocument
Private Sub ButtonUseThisQuotNumber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUseThisQuotNumber.Click
PopulateDataSetWithXml(ComboBoxHelper.Text)
ButtonUseThisQuotNumber.Visible = False
DisplayXmlInTreeView()
TreeViewForXml.Visible = True
End Sub
----------BEGIN SUBSET of PopulateDataSetWithXml procedure used
Try
SQLCommandForQuery = "Select XMLData from webuser.WEB_ORDER_XML where Quote_Num = '" & nQuoteNum & "'"
Dim SqlDataAdapterForPopulateDataTable As New SqlDataAdapter(SQLCommandForQuery, DummyString)
SqlDataAdapterForPopulateDataTable.Fill(DataSetOfData, "TableOfData")
SqlDataAdapterForPopulateDataTable.Dispose()
Dim RowOfData As DataRow = DataSetOfData.Tables(0).Rows(0)
' just for fun I found out it is 42,000+ characters
i = RowOfData(0).ToString.Length
Dim XmlDoc As New Xml.XmlDocument
XmlDoc.LoadXml(RowOfData(0).ToString)
Dim AnXmlNode As XmlNode
AnXmlNode = XmlDoc.DocumentElement
Catch ee As Exception
MsgBox(ee.ToString)
End Try
----------END SUBSET of PopulateDataSetWithXml procedure used
Public Sub DisplayXmlInTreeView()
Dim showAttributes As DialogResult
Try
' SECTION 1. Create a DOM Document and load the XML data into it.
Dim RowOfDataForTreeView As DataRow = DataSetOfData.Tables(0).Rows(0)
domForTreeView.LoadXml(RowOfDataForTreeView(0).ToString)
showAttributes = MessageBox.Show("Do you want attributes displayed?", _
"Attributes in Treeview", MessageBoxButtons.YesNo)
If showAttributes = DialogResult.Yes Then
displayAttributesFlag = True
Else
displayAttributesFlag = False
End If
' SECTION 2. Initialize the treeview control.
TreeViewForXml.Nodes.Clear()
TreeViewForXml.Nodes.Add(New TreeNode(domForTreeView.DocumentElement.Name))
Dim tNode As New TreeNode
tNode = TreeViewForXml.Nodes(0)
' SECTION 3. Populate the TreeView with the DOM nodes.
AddNode(domForTreeView.DocumentElement, tNode)
TreeViewForXml.ExpandAll()
Catch xmlEx As XmlException
MessageBox.Show(xmlEx.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddNode(ByRef inXmlNode As XmlNode, ByRef inTreeNode As TreeNode)
Dim xNode, attrNode As XmlNode
Dim tNode As TreeNode
Dim nodeList As XmlNodeList
Dim i, j As Integer
Dim dumb As String
'Dim attributes As XmlAttributeCollection
' Loop through the XML nodes until the leaf is reached.
' Add the nodes to the TreeView during the looping process.
If inXmlNode.HasChildNodes() Then
nodeList = inXmlNode.ChildNodes
If (displayAttributesFlag = True) Then
If inXmlNode.NodeType = XmlNodeType.Element Then
If inXmlNode.Attributes.Count > 0 Then
' attributes = inXmlNode.Attributes
'dumb = attributes.Item(0).OuterXml
For j = 0 To inXmlNode.Attributes.Count - 1
attrNode = inXmlNode.Attributes(j)
inTreeNode.Text = inTreeNode.Text & " " & (attrNode.OuterXml).Trim
Next
End If
End If
End If
For i = 0 To nodeList.Count - 1
xNode = inXmlNode.ChildNodes(i)
inTreeNode.Nodes.Add(New TreeNode(xNode.Name))
tNode = inTreeNode.Nodes(i)
AddNode(xNode, tNode)
Next
Else
' Here you need to pull the data from the XmlNode based on the
' type of node, whether attribute values are required, and so forth.
inTreeNode.Text = (inXmlNode.OuterXml).Trim
End If
End Sub
END code that parses xmldocument into treeview
---------BEGIN code that reads the treeview into a file
Private Sub ButtonSaveScreenChangesToFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSaveScreenChangesToFile.Click
Dim parentNode As TreeNode
Dim testString As String
Dim xxx As Integer
'get the parent node
parentNode = TreeViewForXml.Nodes(0)
xxx = parentNode.GetNodeCount(True)
MsgBox(parentNode.Text & " has " & xxx & " nodes")
StreamWriterForXml = New StreamWriter("c:\xmlTestOutput.xml")
StreamWriterForXml.Write("<" & parentNode.Text & ">")
SaveScreenChangesToFile(parentNode)
StreamWriterForXml.Close()
MsgBox("Saved output to c:\xmlTestOutput.xml")
End Sub
Private Sub SaveScreenChangesToFile(ByVal nodePassedIn As TreeNode)
Dim tNode As TreeNode
Dim ie As IEnumerator
Dim nodeLabel As String
ie = nodePassedIn.Nodes.GetEnumerator()
nodeLabel = nodePassedIn.Text
While ie.MoveNext()
Dim currentTreeNode As TreeNode
currentTreeNode = ie.Current
If currentTreeNode.GetNodeCount(True) = 0 Then
'this node has no children to parse
StreamWriterForXml.Write(currentTreeNode.Text)
StreamWriterForXml.WriteLine("")
Else
StreamWriterForXml.Write("<" & currentTreeNode.Text & ">")
End If
If currentTreeNode.GetNodeCount(True) > 0 Then
'this node has children to parse, recursively call this program
SaveScreenChangesToFile(currentTreeNode)
End If
End While
StreamWriterForXml.Write("")
StreamWriterForXml.WriteLine("")
End Sub
----------END code that reads the treeview into a file
-- modified at 10:32 Monday 24th April, 2006
|
|
|
|
|
hi
i'm making a simple program in which i have textbox and a button.
what i want is that when i click on the button its shows me a text of textbox in a message box.
i have initialized a textbox in pageload.....
code is:-
for button
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(TextBox1.Text)
End Sub
in page load
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
TextBox1.Text = "Amit"
end sub
when i run this it always shows me the "Amit".
however i change the value of textbox it show me "Amit".
plz tell me where i'm wrong.
|
|
|
|
|
Looks like your Page_Load() event is being fired every time. Check your other code to see what's happening.
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once 
|
|
|
|
|
thanx
i haven't use ispostback false that is why i was getting th same value.
byeeeee
|
|
|
|
|
ASP.NET questions, which is what you're using, regardless of the language your writing your code in belong in the ASP.NET Forum.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi ,
if it is vb.net just try to change MsgBox with Messagebox.show(textbox1.text,"title",.....)
i think it will work
try to be good if you can't be the best
|
|
|
|
|
i have created a graph using Business Intelligence on Visual Studio 2005 and need to call that graph on an application that already exists, i've tried using the url of where the graph sits as a hyperlink but that seems not to work. please help. 
|
|
|
|
|
So... what is the error message you get - or describe the unwanted behaviour of the program so we have at least some ide where to start to help you. An example of the code you are using would also help (but don't paste the entire program ).
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once
|
|
|
|
|
hi there
how to create the folder dynamically in vb.net through the code, without opening the folderbrowser ?
bharath.s
|
|
|
|
|
System.IO.Directory.CreateDirectory(fullPathToCreate)
|
|
|
|
|
|
I have found an article about how to print listview in C#.NET and I converted the class, however, the class will not work.I hope someone will help me out! Thanks. Any way will be ok as long as I can print it out.
|
|
|
|
|
You need to provide:
(1) The link to the original code
(2) Some detail of what error you are getting
(3) The code after your conversion to Vb.net
Otherwise nobody can help you.
'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd
|
|
|
|
|
Protected Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim linesPerPage As Single = 0
Dim yPosition As Single = 0
Dim count As Integer = 0
Dim leftMargin As Single = ev.MarginBounds.Left
Dim topMargin As Single = ev.MarginBounds.Top
Dim line As String = Nothing
Dim printFont As Font = Me.ListView1.Font
Dim myBrush As New SolidBrush(Color.Black)
' Work out the number of lines per page, using the MarginBounds.
linesPerPage = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)
' Iterate over the string using the StringReader, printing each line.
line = myReader.ReadLine()
While count < linesPerPage And (Nothing <> line)
' calculate the next line position based on
' the height of the font according to the printing device
yPosition = (topMargin + (count * printFont.GetHeight(ev.Graphics)))
' draw the next line in the rich edit control
ev.Graphics.DrawString(line, printFont, myBrush, leftMargin, yPosition, New StringFormat())
count += 1
line = myReader.ReadLine()
End While
' If there are more lines, print another page.
If Not (line Is Nothing) Then
ev.HasMorePages = True
Else
ev.HasMorePages = False
End If
myBrush.Dispose()
End Sub 'ThePrintDocument_PrintPage
Private Sub PrintPreviewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPreviewToolStripMenuItem.Click
Try
Dim strText As String = Me.ListView1.Text
myReader = New StringReader(strText)
Dim printPreviewDialog1 As New PrintPreviewDialog()
printPreviewDialog1.Document = Me.PrintDocument1
printPreviewDialog1.FormBorderStyle = FormBorderStyle.Fixed3D
printPreviewDialog1.ShowDialog()
Catch exp As Exception
System.Console.WriteLine(exp.Message.ToString())
End Try
End Sub
Please try to modify this because we have the same problem.this can print and preview in richtextbox only
|
|
|
|
|
Hi,
How can we connect as400 database to vb6.0 ?
KhanR
|
|
|
|
|
Use ODBC to connect. Here's a Google search[^] to get you started.
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once 
|
|
|
|
|
How can i on a Form open like a browser (Explorer or so) and choose an image and save it on a form??. Like an employee photo on an employee_record.
cld
|
|
|
|
|
You're question is worded that clearly, but I think you're looking for the openFileDialog[^].
Other than that, I have no idea what you mean by "store an image on a form".
Dave Kreskowiak
Microsoft MVP - Visual Basic
-- modified at 12:24 Monday 24th April, 2006
|
|
|
|
|
Hi ,
i think she meant like MSN isn't it ??
in MSN the Pic saved in the form even if you delete the pic from your computer
if you meant that actualy i have no idea if you get something please tell me but if you meant that you want just to show the pictures of the employees that you have already their pictures on your computer & you have the root in the data base i can help you just tell me & i will send you the code cuz i just don't mind it now
see ya
try to be good if you can't be the best
|
|
|
|
|
There is no "storing" of any image on a form. The closest you can come to that definition is seting the BackgroundImage property to the requested image. but I serisouly doubt that's what is required.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hello i have set of tables in Access Database.
I need to upload the data from access to SQL. I have to do so by considering the codes
that exists in the sql and based on the primary key values i have to change details in the access database and then upload.
what i like to do is
get all tables in the access Database into adapters.
and then update the values in the adapters ie primary key based on what i got in sql.
after changing the values in adapters i need to insert those values into sql server.
Need help in doing this with code example.
Thanks in advance
Help in need is the help indeed
|
|
|
|
|
Who can share a software that about student manegement System?
All your apropriate help will be welcome and thank, i hope to get your help to reach my goal of begining with the programing.
your faithfully,
Don't try it, just do it!
*Archibald*rever dragon!
|
|
|
|
|
|
Hi,
How can I help you? will help you if I can
The CMS system included the following module which we developed.
1. All the basic setup including subject, grade, lecturer class, etc
2. Prospect
3. Registration for student, programme, subject and class.
4. Counseling, passport, visa
5. Family history
6. Attendance
7. Billing (Auto & Manual)
8. Payment
9. Fee wavier
10. Dashboard
11. MDS Points System
12. Staff
13. Time
14. Security
15. E-Learning
16. Survey
Etc it’s a huge system.
raj
|
|
|
|
|
hi,
i want to create query at runtime in MS ACCESS.
how can i do this
vipin paliwal
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
