Re: Treeview
From: Bob Hollness (bob_at_blockbuster.com)
Date: 12/20/04
- Next message: Jay B. Harlow [MVP - Outlook]: "Re: Treeview"
- Previous message: Chris, Master of All Things Insignificant: "Re: Focus on a form"
- In reply to: Nick Stansbury: "Re: Treeview"
- Next in thread: Jay B. Harlow [MVP - Outlook]: "Re: Treeview"
- Messages sorted by: [ date ] [ thread ]
Date: Mon, 20 Dec 2004 17:23:46 +0100
Is it? I wish. As a Brit myself I don't get the luxury of finishing this
early!!!!! Thanks for the last post, i'm gonna play some more with this and
any results I post!
--
Bob
--------------------------------------
I'll have a B please Bob.
"Nick Stansbury" <nick.stansbury@sage-removepartners.com> wrote in message
news:OeV491q5EHA.3728@TK2MSFTNGP10.phx.gbl...
> Bob - It's quitting time in the UK now. If you need further help then
> email
> me and I'd be happy to answer in the morning, and we can post a solution
> back here after.
>
> Nick
>
>
> "Nick Stansbury" <nick.stansbury@sage-removepartners.com> wrote in message
> news:e6bTJ0q5EHA.1448@TK2MSFTNGP10.phx.gbl...
>> Firstly I'd check using an instr(string, ".") > 0 to do the check. It's a
>> bit less dodgy. Again the key is to use recursing like so:
>>
>> Private Sub SetImage(nNode as TreeNode0
>> if instr(nNode.text, ".") > 0 then
>> 'set the image on the node to be a file
>> else
>> 'set the image on the node to be a folder
>> end if
>>
>> for each ChildNode as TreeNode in nNode.Nodes
>> SetImage (ChildNode)
>> next
>> End sub
>>
>> This help?
>>
>> Nick
>>
>>
>> "Bob Hollness" <bob@blockbuster.com> wrote in message
>> news:O98bErq5EHA.1404@TK2MSFTNGP11.phx.gbl...
>> > Thanks. I have so far thrown together this code (with a lot of
> assistance
>> > from a webpage i found). It does the trick great. My only problem now
> is
>> > that I would like to somehow differenciate between files and folders by
>> > putting the appropriate icons in their places. This has me kinda
> stumped
>> at
>> > the moment. I guess the only way to do this is to look for a file
>> extension
>> > and the change the icon. As you can see in the code, there is a rather
>> > dodgy IF statement which tries to do this. The problem I have is that
> VB
>> > seems to only apply this rule for the first file in a directory (child
>> node)
>> > and then all the others have the folder icon.
>> >
>> > Any ideas / improvements?
>> >
>> >
>> >
>> > Private Function BuildNodeList(ByVal currentPath As String, ByVal
> NodeTree
>> > As TreeNodeCollection) As Boolean
>> >
>> > Dim NodeText As String
>> > Dim nNode As TreeNode
>> > Dim strPath() As String
>> >
>> > If currentPath.Chars(0) = "\" Then currentPath =
>> > currentPath.Substring(1)
>> >
>> > strPath = currentPath.Split("\")
>> >
>> > For Each NodeText In strPath
>> >
>> > For Each nNode In NodeTree
>> >
>> > If nNode.Text = NodeText Then
>> >
>> > If PathData = "" Then Exit Function
>> >
>> > PathData = PathData.Substring(strPath(0).Length)
>> > Add2Node2(PathData, nNode.Nodes)
>> >
>> > Exit Function
>> > End If
>> > Next
>> >
>> > If NodeText <> "" Then
>> >
>> > If Mid(NodeText, Len(NodeText) - 3, 1) = "." Then
>> > 'file
>> > NodeTree.Add(NodeText)
>> >
>> NodeTree.Item(NodeTree.GetEnumerator.Current).ImageIndex
>> > = 2
>> >
>> NodeTree.Item(NodeTree.GetEnumerator.Current).SelectedImageIndex
>> > = 2
>> > Else
>> > 'folder
>> > NodeTree.Add(NodeText)
>> >
>> NodeTree.Item(NodeTree.GetEnumerator.Current).ImageIndex
>> > = 1
>> >
>> NodeTree.Item(NodeTree.GetEnumerator.Current).SelectedImageIndex
>> > = 1
>> > End If
>> >
>> > Add2Node2 = True
>> >
>> > End If
>> > Next
>> >
>> > End Function
>> >
>> >
>> >
>> > --
>> >
>> > Bob
>> >
>> > --------------------------------------
>> > I'll have a B please Bob.
>> >
>> > "Nick Stansbury" <nick.stansbury@sage-removepartners.com> wrote in
> message
>> > news:%23bZSL8p5EHA.2804@TK2MSFTNGP15.phx.gbl...
>> > > Not that I know of. Here's some kind of pseudo code - you'll have to
>> fill
>> > > in
>> > > the blanks
>> > >
>> > > Class FilePath
>> > > Public ChildCollection as Collection
>> > > Public Address as string
>> > > Public DirectoryPath as string
>> > > Public FileName as string
>> > > ParentAddress as string
>> > > End Class
>> > >
>> > > Dim TempCollection as new Collection
>> > > Dim BaseFilePath as FilePath 'the root object
>> > > 'open a stream from the file and read each line into a local
>> > > variable.
>> > > Return EOF = true when finished with the last line
>> > > dim StrTmp as stirng
>> > > Dim CountOfSlashes as long
>> > > Dim StringIndex as long
>> > > dim LastSlash as boolean
>> > > dim CurrentPath as filePath
>> > >
>> > > Do until EOF
>> > > CurrentPath = new FilePath
>> > > StringIndex = 0
>> > > strTmp = readLine()
>> > > CurrentPath.Address = StrTmp
>> > > if instr(StrTmp, ".") > 0 then
>> > > 'this is a file, so we have to grab the directory path
>> > > stripping off the filename
>> > > StringIndex = StrTmp.LastIndexOf("\")
>> > > CurrentPath.DirectoryPath = Left(StrTmp, StringIndex +
> 1)
>> > > 'should get the C:\MyFolder\ section of C:\MyFolder\MyFile.txt
>> > > FileName = Mid(StrTmp, StringIndex + 1) ' should get
>> > > MyFile.txt part of the above sample string
>> > > else
>> > > CurrentPath.DirectoryPath = StrTmp
>> > > FileName = "" 'set to ZLS for testing purposes
>> > > end if
>> > > 'now get the parent address which should be the same for every
>> line
>> > > if instr(StrTmp, "\", 3) > 0 then 'start at the 4th character
> in
>> > > the
>> > > string (i.e. start just after the first slash in
> C:\MyFolder\MyFile.txt)
>> > > and
>> > > see if there are any following slashes
>> > > StringIndex = StrTmp.LastIndexOf("\")
>> > > 'now add the whole string up to this point as the parent
>> > > address
>> > > currentPath.ParentAddress = left(StrTmp, StringIndex)
>> > > 'should add the whole of strtmp up to the last "\" as the parent
> address
>> > > end if
>> > > TempCollection.add(CurrentPath)
>> > > Loop
>> > >
>> > > 'now it should simple be a case of iterating through the collection
> and
>> > > adding the object in a structured way to the base object.
>> > >
>> > >
>> > > Hope this helps - basically the idea is that you parse the strings to
>> > > break
>> > > them up into the parent section, the filename and the current
>> > > address.
>> You
>> > > then should compare the currentAddress to the parentAddress and be
> able
>> to
>> > > group them into a single recursive set of objects. Once you have them
> in
>> a
>> > > nice useable structure you should be able to draw the tree view very
>> > > easily.
>> > > You could also persist the object tree into memory for later use
>> > >
>> > > Nick
>> > >
>> > >
>> > >
>> > >
>> > >
>> > > "Bob Hollness" <bob@blockbuster.com> wrote in message
>> > > news:u6jlAMo5EHA.3840@tk2msftngp13.phx.gbl...
>> > >> do you know of anyone of telling VB that each entry in the treeview
> mus
>> t
>> > > be
>> > >> unique?
>> > >>
>> > >> --
>> > >>
>> > >> Bob
>> > >>
>> > >> --------------------------------------
>> > >> I'll have a B please Bob.
>> > >>
>> > >> "Nick Stansbury" <nick.stansbury@sage-removepartners.com> wrote in
>> > >> message
>> > >> news:%23E769Bo5EHA.1396@tk2msftngp13.phx.gbl...
>> > >> > Bob,
>> > >> >
>> > >> > You are, I presume, doing the binding code yourself. To make
> this
>> > > work
>> > >> > you'll need to a recursive binding methodology. My best guess
>> > >> > would
>> be
>> > >> > that
>> > >> > you'll need
>> > >> > to parse the text file in such a way that you do the work of
> marking
>> up
>> > >> > parents and children, and then add them to the tree recursively.
>> Doing
>> > >> > this
>> > >> > by hand is actually quite a complex problem - you might want to
> look
>> at
>> > >> > how
>> > >> > the text file is populated - outputting it as XML would make the
>> whole
>> > >> > process a lot easier.
>> > >> >
>> > >> > Regards,
>> > >> >
>> > >> > Nick Stansbury
>> > >> >
>> > >> >
>> > >> >
>> > >> >
>> > >> > "Bob Hollness" <bob@blockbuster.com> wrote in message
>> > >> > news:ugG4z3n5EHA.2540@TK2MSFTNGP09.phx.gbl...
>> > >> >> Hi.
>> > >> >>
>> > >> >> I have a text file containing a list of files and their path.
> I.e.
>> > >> >>
>> > >> >> c:\MyDocs\File1.txt
>> > >> >> c:\MyDocs\File2.txt
>> > >> >> c:\MyDocs\File3.txt
>> > >> >> c:\MyDocs\File4.txt
>> > >> >> C:\MyDocs\Folder\File1.txt
>> > >> >>
>> > >> >> etc.
>> > >> >>
>> > >> >> What I want to do is create a treeview that makes this look like
>> > >> >> a
>> > >> > directory
>> > >> >> listing (i.e. Windows Explorer). The problem I have is getting
>> > >> >> VB
>> to
>> > >> >> realise that "C:\MyDocs\Folder\File1.txt" should be a child of
>> > >> > "c:\MyDocs\"
>> > >> >> and add it as a child node. So far, all i get is each item
>> > >> >> listed
>> > >> >> individually in the treeview.
>> > >> >>
>> > >> >> Any ideas/help? Thanks.
>> > >> >>
>> > >> >> --
>> > >> >>
>> > >> >> Bob
>> > >> >>
>> > >> >> --------------------------------------
>> > >> >> I'll have a B please Bob.
>> > >> >>
>> > >> >>
>> > >> >
>> > >> >
>> > >>
>> > >>
>> > >
>> > >
>> >
>> >
>>
>>
>
>
- Next message: Jay B. Harlow [MVP - Outlook]: "Re: Treeview"
- Previous message: Chris, Master of All Things Insignificant: "Re: Focus on a form"
- In reply to: Nick Stansbury: "Re: Treeview"
- Next in thread: Jay B. Harlow [MVP - Outlook]: "Re: Treeview"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
