|
Your "Problem" description isn't very clear. But, what you normally do in this situation is add each subfolder and populate it with a dummy blank node so the folder gets a "plus" next to it. When the user clicks the plus, your code has to check if the dummy node is there, and if it is, delete it, then populate the folder appropriately.
|
|
|
|
|
Thanks for the idea, Dave. Let me try to make it clearer:
- On the first level I only show the drives (e.g. "C:\") in the tree view, populated with nodes for existing subdirectories (e.g. "C:\Test", "C:\Real" etc.) in the "form_Load" event. This way, the nodes only have a "plus" once there are subdirectories existing! A drive without subdirectories (e.g. empty removable) doesn't have a "plus".
- Once the user selects and expands a node (e.g. "+ C:\"), I use the the "TreeView_BeforeExpand" event to populate the child nodes with the next level of subdirectories (grand children --> e.g. "C:\Test\TestDir1", "C:\Test\TestDir2" etc.). Again: If "C:\Real" doesn't have any subdirectories, it's not populated with "grandchild" nodes and therefore doesn't have a "plus" when the "C:\" node expands, while the other node ("+ C:\Test") has a "plus".
Other words: The event or the parent node populates all the child nodes with probable grandchild nodes before the child nodes are shown (without "plus" if they don't have subdirectories).
- For performance reasons I ONLY populate the children of the node that the user wants to expand. Not knowing it any better, I use the "SelectedNode" property in my code to find out which node to populate.
Up to here it works fine - and I think even better than with dummies, because adding dummies I have the "plus" even for folders without subfolders... don't I?
But here's my real problem:In case the user wants to expand the node by clicking on the "plus" ---> without explicitly selecting (or double-clicking) the drive letter (!) --- then my whole code doesn't populate the subfolders because my "for ... next" loop says "..each ChildNode ... in Treeview.SelectedNode".
Obviously clicking the "plus" doesn't select the relevant node! Which event is raised when the user clicks "plus" in the TreeView control?
It's a bit hard for me to explain... hope you know what I mean... otherwise I'd try again 
modified on Thursday, October 16, 2008 5:46 PM
|
|
|
|
|
Michael Schäuble wrote: Up to here it works fine - and I think even better than with dummies, because adding dummies I have the "plus" even for folders without subfolders... don't I?
Yep. The subfolder isn't populated until the user clicks on the plus. So, if there are an excessive number of sub-subfolders, you're not wasting time populating folders that the user isn't intersted in.
Michael Schäuble wrote: my "for ... next" loop says "..each ChildNode ... in Treeview.SelectedNode".
The event you're looking for is BeforeExpand. With it, you get the node that's expanding. You don't need SelectedNode at all.
|
|
|
|
|
Somehow I'm still stuck... BeforeExpand is the event I used in the code posted. Could you please have another look?
Starting that event with "Dim actNode as TreeNode = TreeView.SelectedNode" (like I did before) I run into my old problem.
Which command would I use to get the node that's expanding into "actNode"? If I just define it with "Dim actNode as TreeNode", then my "actNode" variable (needed to loop through the sub-nodes when populating these) is "Nothing" and the code doesn't work ... 
|
|
|
|
|
Michael Schäuble wrote: Dim actNode as TreeNode = TreeView.SelectedNode
Nope. Look at the eventargs you get in the method header, you know, the ByVal e As TreeView... part?? In the object, e, you get the node that is being expanded.
Private Sub TreeView1_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) _
Handles TreeView1.BeforeExpand
Dim actNode As TreeNode = e.Node
...
End Sub
|
|
|
|
|
Thanks for the detailed help, Dave! I haven't dared to mess with the "e.-Stuff" yet...
Works like charms  now. I'll test it under real conditions tonight. Since I haven't found such information (VB code) I guess it could even make my first article for the community 
Regards
Michael
|
|
|
|
|
Michael Schäuble wrote: I haven't dared to mess with the "e.-Stuff" yet...
You better start, and quick!  That's where the most useful stuff comes from when handling events.
|
|
|
|
|
Hello everyone!
Really confused by this problem. Usually I can search and find an answer, but I'm not even sure how to search for it. I have a function (obviously includes all days of the week, but shortened for shortness' sake):
Function getlabel(ByVal day As DayOfWeek, ByVal calendarRow As Integer) As System.Windows.Forms.Label
Select Case day 'Get a label name
Case DayOfWeek.Sunday
Select Case calendarRow
Case 1
Return su1
Case 2
Return su2
Case 3
Return su3
Case 4
Return su4
Case 5
Return su5
Case 6
Return su6
End Select
End Select
End Function
If I call it by:
Dim CurrentDayNum As Integer = CInt(getlabel(getCurrentDayOfWeek(dayShortName), CInt(ClickedLabel.Name.Substring(0, 4))).Name)
It returns nothing.
If I call it by a direct "DayOfWeek":
Dim CurrentDayNum As Integer = CInt(getlabel(DayOfWeek.Thursday, CInt(ClickedLabel.Name.Substring(0, 4))).Name)
It works fine, and returns the proper label.
When I type getCurrentDayOfWeek(dayShortName) into the debugger, it gives me: Thursday
getCurrentDayOfWeek is a Function As DayOfWeek
I hope that wasn't too confusing, I can be that way. Anybody have any suggestions?
|
|
|
|
|
is your first call Sunday? where is CASE 0?
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
There is no Case 0. It should always be sending a DayOfWeek.
There is a similar Case statement for each day of the week.
Or maybe I didn't understand your question. 
|
|
|
|
|
oooooooops misread your code.
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
Is your return type of getCurrentDayOfWeek(), DayOfWeek?
In which point did you try getCurrentDayOfWeek(dayShortName) in the debugger?
Intelligence is almost useless for those who have nothing else!
Email: caiokf@gmail.com
|
|
|
|
|
Caio Kinzel Filho wrote: Is your return type of getCurrentDayOfWeek(), DayOfWeek?
Yes it is.
Caio Kinzel Filho wrote: In which point did you try getCurrentDayOfWeek(dayShortName) in the debugger?
As soon as dayShortName was set, right before the problem function call.
|
|
|
|
|
can you post your getCurrentDayOfWeek function? I tryied here and works fine...
Intelligence is almost useless for those who have nothing else!
Email: caiokf@gmail.com
|
|
|
|
|
No problem.
Private Function getCurrentDayOfWeek(ByVal dayName As String) As DayOfWeek
Select Case dayName
Case "su"
getCurrentDayOfWeek = DayOfWeek.Sunday
Case "mo"
getCurrentDayOfWeek = DayOfWeek.Monday
Case "tu"
getCurrentDayOfWeek = DayOfWeek.Tuesday
Case "we"
getCurrentDayOfWeek = DayOfWeek.Wednesday
Case "th"
getCurrentDayOfWeek = DayOfWeek.Thursday
Case "fr"
getCurrentDayOfWeek = DayOfWeek.Friday
Case "sa"
getCurrentDayOfWeek = DayOfWeek.Saturday
End Select
Return getCurrentDayOfWeek
End Function
|
|
|
|
|
I did this:
MsgBox(getlabel(DayOfWeek.Sunday, 1))
MsgBox(getlabel(getCurrentDayOfWeek("su"), 1))
with your function and (for shortness..):
Function getlabel(ByVal day As DayOfWeek, ByVal calendarRow As Integer) As String
Select Case day 'Get a label name
Case DayOfWeek.Sunday
Select Case calendarRow
Case 1
Return "Sunday"
End Select
Case DayOfWeek.Monday
Select Case calendarRow
Case 1
Return "Monday"
End Select
Case DayOfWeek.Tuesday
Select Case calendarRow
Case 1
Return "Tuesday"
End Select
End Select
End Function
And it works...other than that...i think you will have to post your entire code...
Intelligence is almost useless for those who have nothing else!
Email: caiokf@gmail.com
|
|
|
|
|
There is no way the CInt(ClickedLabel.Name.Substring(0, 4))).Name could have changed between your calls, and have no valid data in your call using getCurrentDayOkWeek ??
Intelligence is almost useless for those who have nothing else!
Email: caiokf@gmail.com
|
|
|
|
|
|
The link doesn't work for me...send it to my email and I will take a look...caiokf@gmail.com
Regards
Intelligence is almost useless for those who have nothing else!
Email: caiokf@gmail.com
|
|
|
|
|
|
I have tried -
.SetApartmentState(ApartmentState.STA)
but when accessing the controls it is giving me the default values of .text not the value that I entered at run time. So if at design time I set .text to TEXT1 and then at run time I enter ABC, when I access the control from the thread it returns TEXT1 instead of ABC.
If I don't use
.SetApartmentState(ApartmentState.STA) then I get this error.
An error occurred creating the form. See Exception.InnerException for details. The error is: ActiveX control '35f36212-43a6-48fa-8a6a-af558abe7030' cannot be instantiated because the current thread is not in a single-threaded apartment.
This is a pain - you think it be simple to find the answer to it!
Thanks
Jim
Regards,
jim
|
|
|
|
|
Your will to use a Delegate
Public Delegate myDelegate()
Then inside the thread
Form1.TextBox1.Invoke(New myDelegate(AddressOf CheckTextBox1), New Object() {})
Then finally a sub to check the TextBox
Public Sub ChecktextBox1()
IF Form1.TextBox1.Text = "ABC..." Then
'Do something
End If
End Sub
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Sorry to be a pain here but that doesn't make sense to me.
First should it be Public Delegate Sub myDelegate() or Public Delegate Function myDelegate()? Public Delegate myDelegate() is giving me an error. I'm presuming it should be a SUB.
This is what I have for my thread
reportThread = New Thread(AddressOf ProcessReport)
With reportThread
.Priority = ThreadPriority.AboveNormal
.IsBackground = True
.Start()
End With
Inside the Sub ProcessReport I have
With frmDiscoveryII
Select Case True
Case .rbReportJourneySummary.Checked
...
Case .rbReportIdle.Checked
...
Its giving me the error at the WITH part.
As you can see I'm accessing a lot of the controls on the main form.
So where would INVOKE apply here?
Would I have to give my thread addressof a different sub to call, reportThread = New Thread(AddressOf WHATEVER) and within that set the INVOKE as following
Sub WHATEVER
frmDiscoveryII.rbReportJourneySummary.Invoke(New myDelegate(AddressOf ProcessReport), New Object() {})
frmDiscoveryII.rbReportIdle.Invoke(New myDelegate(AddressOf ProcessReport), New Object() {})
ProcessReport
END SUB
Thanks.
Regards,
jim
|
|
|
|
|
Better idea... Form2 shouldn't care anything about Form1, nor should it know of it's existance.
Create public properties on the Form2 that you fill in with the validated data from the controls on Form1. It solves the problem of breaking OOP rules, and solves your threading issues getting the data from those textbox's.
It does not, however, solve the problem of putting the data back. Like the other person said, use delegates. This code is going to have to marshal the propery call back to tue UI thread to set the text property of the controls. But, like before, you cannot just refer to them from Form2 code. For2 should only worry about the controls on Form2 and process any data it needs to. Messing with controls on Form1 is best left up to Form1 code.
|
|
|
|
|
Thanks Dave,
I have done that in the past but I believe there has to be a better way then creating public variables to hold values that are stored on a form that I should be able to access from another form. What was every wrong with form1.textbox.text = "ABS" that we use to have in previous VB verisons!
Regards,
jim
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
