label is not showing properly/not showing at all

[NewsBot]

Hi to all expert, ladies coders and gentlemen coders,

I m quite newbie in this. I just started vb.net not long ago..because i was too crazy bout making an application for my own phone. as for now, i m using .net compact framework to code for my wm6.

My program is easy. the purpose is to edit a .ini file by pointing the correct program path for each line .in the ini file.

in my program, a treeview is enabled. By selecting on the treenode, this will return me the full path of a .exe file/app. Unfortunately, in some folders, there are many subfolders (especially: /window) so it would take some time to show the treenode. so, i have made a label to appear when click to expand the tree and disappear the label before end sub. when, i put it to test, the label is not appearing at all when i click to expand "/window" folder in treeview. so what am i mising here?

 

below is my codemarked in red is the label to appear and disappear)

******************************************************this is configure the mouse click event

Private Sub treeView1_BeforeExpand(ByVal sender As Object, _

ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) _

Handles treeView1.BeforeExpand

plsWaitlbl.Visible = True

'MsgBox("start")

' —-if leaf node then exit—-

 

If e.Node.ImageIndex = icoFile Then Return

 

' —-remove the dummy node and display

 

' the subdirectories and files—-

 

Try

 

e.Node.Nodes.Clear() ' clears all the nodes and...

 

displayChildNodes(e.Node) ' create the nodes again

 

Catch err As Exception

 

MsgBox(err.ToString)

 

End Try

 

' —-change the icon for this node to open—-

 

If e.Node.GetNodeCount(False) > 0 Then

 

e.Node.ImageIndex = icoClose

 

e.Node.SelectedImageIndex = icoOpen

 

End If

plsWaitlbl.Visible = False

'MsgBox("stop")

End Sub

 

*************************************************** i m sure this is show the subdirectories and file

Private Sub displayChildNodes(ByVal parentNode As System.Windows.Forms.TreeNode)

 

Dim FS As New DirectoryInfo(stripExtraSlash _

(parentNode.FullPath))

Dim dirInfo As DirectoryInfo

Dim fileInfo As FileInfo

Try

' —-displays all dirs—-

For Each dirInfo In FS.GetDirectories()

' —-create a new node to be added—-

Dim node As New TreeNode

node.Text = dirInfo.Name ' name of file or dir

node.ImageIndex = icoClose

node.SelectedImageIndex = icoOpen

parentNode.Nodes.Add(node)

' —-add the dummy node—-

node.Nodes.Add("")

Next

 

Catch err As Exception

MsgBox(err.ToString)

End Try

Try

' —display all files—-

 

For Each fileInfo In FS.GetFiles()

If fileInfo.Extension = ".exe" Or fileInfo.Extension = ".lnk" Then

' —-create a new node to be added—-

 

Dim node As New TreeNode

 

node.Text = fileInfo.Name

 

node.ImageIndex = icoFile

 

node.SelectedImageIndex = icoFile

 

parentNode.Nodes.Add(node)

End If

Next

 

Catch err As Exception

MsgBox(err.ToString)

End Try

 

End Sub

***************************************************

Public Function stripExtraSlash(ByVal str As String) As String

' —-strip away the extra "\" for

' subdirectories. e.g. \My documents

 

Dim path As String

If str.Length > 1 And (Mid(str, 1, 1) = "\") Then

path = Mid(str, 2, str.Length - 1)

Else

path = str

End If

Return path

 

End Function

*********************************************************this to set the selected node path to the textbox

Private Sub MenuSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuSelect.Click

pathName = stripExtraSlash(treeView1.SelectedNode.FullPath)

'MsgBox(pathName)

appPathtxt.Text = pathName

 

End Sub

 

Please enlighten me...

 

 

 

More...

 

View All Our Microsoft Related Feeds