|
I writing a program that is used for data entry for my company. On the main form there is a combo box that is full of different components we may test; things such as doors, window, closets, etc. This is list of components is store in a file in the program's directory and loaded when the program loads and all the different components are put into the combo box. This works fine. Now, when an inspector is in the field they may need to add a component not pre-programmed in. So they can go to another form and add the different components. Once they are finished enter any components they may need to add they click a command button "Done" that then saves the new components to a file:
<pre>
'Check if there are structures in the 'lstStructures' list box
If lstStructures.Items.Count > 0 Then
'Create a new file stream
Dim fs As FileStream = New FileStream(AppPath & "\" & StructureFile, FileMode.Truncate, FileAccess.Write, FileShare.None)
'Create a new stream writer
Dim Writer As StreamWriter = New StreamWriter(fs)
'Loop through each component in the 'ComponentArray' array list
For i As Integer = 0 To ComponentArray.Count - 1
'Save current component in the 'CurrentComponent' structure
CurrentComponent = ComponentArray.Item(i)
'Write the component/member string to the stream writer
'(Structure=Member1,Member2,...,MemberN)
Writer.WriteLine(CurrentComponent.ComponentStructure & "=" & CurrentComponent.ComponentMember)
Next
'Flush the stream writer
Writer.Flush()
'Close the stream writer
Writer.Close()
'Close the file stream
fs.Close()
'Close this form
Me.Hide()
End If
FL_ADDED_NEW_STRUCTURE = True
'Load the structures on the main form
frmMain.ReLoadCustoms()
</pre>
Now the <code>frmMain.ReLoadCustoms</code> should reload the file with the newly added components and add them to the combo box:
<pre>
Public Sub ReLoadCustoms()
Dim fs As FileStream
Dim Reader As StreamReader
Dim div() As String
fs = New FileStream(AppPath & "\" & StructureFile, FileMode.Open, FileAccess.Read, FileShare.None)
'Clear Component Array
ComponentArray.Clear()
'Check if the file is empty
If Not fs.Length = 0 Then
'Create a new stream reader
Reader = New StreamReader(fs)
'Read each line of the file until the end of the file
Do Until Reader.EndOfStream
'Split each line delimited with '='
'(Structure=Member1,Member2,...,MemberN)
div = Reader.ReadLine.Split("=")
CurrentComponent.ComponentStructure = div(0)
CurrentComponent.ComponentMember = div(1)
'Save the component in the 'ComponentArray' array list
ComponentArray.Add(CurrentComponent)
Loop
'Close the stream reader
Reader.Close()
'Close the file stream
fs.Close()
End If
cboStructures.Items.Clear()
For i As Integer = 0 To ComponentArray.Count - 1
CurrentComponent = ComponentArray.Item(i)
cboStructures.Items.Add(CurrentComponent.ComponentStructure)
Next
cboStructures.Items.Add("...Add...")
cboStructures.SelectedIndex = 0
cboMembers.Items.Clear()
CurrentComponent = ComponentArray.Item(0)
div = CurrentComponent.ComponentMember.Split(",")
For i As Integer = 0 To div.GetUpperBound(0)
cboMembers.Items.Add(div(i))
Next
cboMembers.SelectedIndex = 0
cboStructures.Update()
FL_ADDED_NEW_STRUCTURE = False
End Sub
</pre>
The problem is that the new components that were added do not show up in the combo box, but they are written to the file. I have verified this by looking at the component file and because the next time the program loads the new components are present...the problem is that the whole program needs to be reloaded for some reason. Any help would be greatly appreciated as this has been driving me crazy for over a month! Thanks in advanced.
P.S. The <code>ReLoadCustoms</code> sub is on <code>frmMain</code> and the <code>SaveFile</code> sub is on <code>frmStructures</code> and this is running on a PPC.
UPDATE: I have come to realize that for some reason the cboStructures.Items.Clear in the ReLoadCustoms does not actually clear the combo box. Any suggestions?
modified on Friday, July 10, 2009 2:45 PM
|
|
|
|
|
Two things occur to me.
1) at the beginning of ReLoadCustoms() you go through the StructureFile file and add each item to an ArrayList. If you run your application with a dummy StructureFile containing say 2 to 3 items, then add 1 new item, it would be relatively painless to use the debugger to watch the items being added to the list. Once you are sure that they are there you can move on to dealing with the ComboBox. Before that though you should consider using a List (Of Component) instead of an ArrayList. Look it up in the MSDN Documentation under Generics.
Also where you create the FileStream and the StreamReader, consider using a Using block. This will ensure that they are both closed and disposed properly without you having to worry about it. Something like this:
Dim div() As String
Using fs As New FileStream(AppPath & "\" & StructureFile, FileMode.Open, FileAccess.Read, FileShare.None)
'Clear Component Array
ComponentArray.Clear()
'Check if the file is empty
If Not fs.Length = 0 Then
'Create a new stream reader
Using Reader As New StreamReader(fs)
'Read each line of the file until the end of the file
Do Until Reader.EndOfStream
'Split each line delimited with '='
'(Structure=Member1,Member2,...,MemberN)
div = Reader.ReadLine.Split("=")
CurrentComponent.ComponentStructure = div(0)
CurrentComponent.ComponentMember = div(1)
'Save the component in the 'ComponentArray' array list
ComponentArray.Add(CurrentComponent)
Loop
'Close the stream reader
End Using
End If
End Using
Again look up Using in MSDN. In the MSDN Index look-up Using Statement you will see two sub items, have a read of them. It is far safer.
2) Instead of going through your ArrayList (List (Of Component)) adding items to the Combo.Items one at a time, why not use DataBinding to bind the list to the ComboBox.DataSource. It will save you having to do all that clearing and adding. Take a look at ComboBox DataBinding Sample[^]
Please come back if I have not been clear.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
As to your first comment, I have used the debugger and have watched the items being added to the files. Also I didn't use generics because at the initial writing of this program I didn't understand them well enough and figured an ArrayList would be adequate.
As to your second comment, would I be able to use data binding with the way my ArrayList is set up? The ArrayList named ComponentArray holds a list of structures called CurrentComponent that is set up as follows:
Public Structure Component
Dim ComponentStructure as String
Dim ComponentMember as String
End Structure
The ComponentStructure may have something like "Window" while the ComponentMember has "Sash, Casing, Sill, Well." When I loop through the ArrayList I pull out the current ComponentStructure and add it to the cboStructures combo box, but the ComponentMember has to be comma delimited to get the individual members. Is this still possible using DataBinding? Also, I tried commenting out everything after where the code clears the cboStructures combo box and seeing if the combo box items would clear (cboStructures.Items.Clear()), and they would not. Any idea on why the combo box would not clear the items?
|
|
|
|
|
I have used the code that you originally posted to create a project. I did not alter any of your code and I put the methods on the forms that you said they belong to. Obviously I had to make some assumptions about how you did things like loading frmStructures and filling its components with data.
When I ran it I had no problems. I could add new structures and they appeared in frmMain after I clicked 'Done'. So I am not able to help with your problem in that regard.
However, I do have some suggestions, which I hope will help generally.
Your Component Structure:
1) I would suggest renaming this. .NET already has a Component class, and whilst it is not a problem at the moment, the name conflict could well bite you in the bum later.
2) For reasons that are in the next bit, I would suggest modifying it slightly:
Public Structure Component
Dim ComponentStructure As String
Dim ComponentMember As String
Public Overrides Function ToString() As String
Return Me.ComponentStructure
End Function
End Structure
Your ReloadCustoms() method:
I would suggest modifying it to be something like:
Public Sub ReLoadCustoms()
Dim fs As FileStream
Dim Reader As StreamReader
Dim div() As String
fs = New FileStream(AppPath & "\" & StructureFile, FileMode.Open, FileAccess.Read, FileShare.None)
'Clear Component Array
ComponentArray.Clear()
'Check if the file is empty
If Not fs.Length = 0 Then
'Create a new stream reader
Reader = New StreamReader(fs)
'Read each line of the file until the end of the file
Do Until Reader.EndOfStream
'Split each line delimited with '='
'(Structure=Member1,Member2,...,MemberN)
div = Reader.ReadLine.Split("=")
CurrentComponent.ComponentStructure = div(0)
CurrentComponent.ComponentMember = div(1)
'Save the component in the 'ComponentArray' array list
ComponentArray.Add(CurrentComponent)
Loop
'Close the stream reader
Reader.Close()
'Close the file stream
fs.Close()
End If
cboStructures.Items.Clear()
For i As Integer = 0 To ComponentArray.Count - 1
' <===================================================>
' <=== This is why the 'Component' structure was modified
' <=== The new ToString() method allows you to add the whole
' <=== structure to the combo, instead of just the 'ComponentStructure' string
' <===================================================>
Me.cboStructures.Items.Add(ComponentArray(i))
Next
cboStructures.Items.Add("...Add...")
cboStructures.SelectedIndex = 0
' <===================================================>
' <=== Loading cboMembers is not necessary here. That happens
' <=== in the SelectedIndexChanged handler for cboStructures (below)
' <===================================================>
cboStructures.Update()
FL_ADDED_NEW_STRUCTURE = False
End Sub
I have assumed that you handle the SelectedIndexchanged event for cboStructures. Mine looks like this:
Private Sub cboStructures_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboStructures.SelectedIndexChanged
If cboStructures.SelectedItem.ToString = "...Add..." Then
' <===================================================>
' <==== Your code for loading frmStructures
' <===================================================>
Else
' <===================================================>
' <==== because the whole 'Component' structure is in cboStructures
' <==== we can get at 'ComponentMember' easily to fill cboMembers
' <===================================================>
cboMembers.Items.Clear()
Dim comp As Component = CType(cboStructures.SelectedItem, Component)
Dim div As String() = comp.ComponentMember.Split(",")
cboMembers.Items.AddRange(div)
cboMembers.SelectedIndex = 0
End If
End Sub
Even though I was unable to replicate your problem, I hope these suggestions will be of some help to you.
Good Luck! 
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
I had a vb6 project I am upgrading, in that project I had a subroutine that I used to print results such that a string of data would appear in a different column. The end result being an example as illustrated below (the 'Y's are passed as a string and this procedure wrapped them.) Not real pretty but it worked if a fixed font was used.
sample output: (the Y string is actually a series of numbers separated by commas)
XXXXX YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY ZZZZ
YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY
YYYYYYYYY
the code:
Sub subPrintResults(slot As Integer, toPrint As String, Result As String, qty As Integer)
Dim i As Integer
Dim chr As String
Printer.CurrentX = 2000 ' first place to results line
Printer.Print Result; ' this is the 'XXXXX in the example above
Printer.CurrentX = 3000
'if we have a long string
If Len(toPrint) > 90 Then
i = 0 ' look for last comma, starting back 1
Do Until chr = ","
chr = Mid$(toPrint, 90 - i, 1)
i = i + 1
Loop
Printer.Print Mid$(toPrint, 2, 90 - i)
Printer.CurrentX = 3000
Printer.Print Mid$(toPrint, 90 - i + 2, Len(toPrint) - 90 - i + 1);
Else
Printer.Print Mid$(toPrint, 2, Len(toPrint) - 2);
End If
Printer.CurrentX = 10000
Printer.Print Format$(qty, "@@@@@")
Exit Sub
Can anyone point me to a way to determine the length of a string in vb .net to be output so I can reproduce this type of functionality?
Thanks
No-e
edit looks like the alignment in my example was thrown off when I posted, all the YYYYs in the example should be in a single column.
|
|
|
|
|
Take a look at the Graphics.MeasureString() method.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Very cool, thanks for the pointer. I did not realize it was there. I guess this is part of my learning curve so to speak
No-e
|
|
|
|
|
Hello,
16bit applications do not show up in System.Diagnostics.Process. Is there a dotnet way to list the 16bit applications that are running?
Thank you
Nathan
'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
|
|
|
|
|
Nope. They are contained within a shell process, either NTVDM or WOWEXEC.
|
|
|
|
|
Thanks Dave,
I figured that but was hopeful. I tried to use FindWindow api to find the title of the window i'm looking for but my pc is vista (work environment is split between vista and xp) and it returns a value regardless if it finds a window with that title or not.
Is there something else more accurate I can use?
Thanks again
Nathan
'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
|
|
|
|
|
Hi All,
I've been searching for this topic for days, am I wrong or aint there alot of articles about this?
All I see and popsup everywhere is a few things "Google Earth API", "API Key", "KML" , "GE Plugin"
Can someone please help me understand this:
All I want is a VB.NET Webpage where I can enter a Adress and it navigates to it.Thats all.
What the hell is the api? Is it a DLL?
Is tha api key the same thing as a api.
I have the plugin installed.
What is KML in english please.
How do I use/call these in my code :"Google Earth API", "API Key", "KML" , "GE Plugin"
Please can anyone please please give me a usefull link or any sound advice.
Thank you guys
|
|
|
|
|
Google documentation is usually reasonably good.
This might be a good starting point, it shows you how to get a map displayed in your webpage.
Google Documentation[^]
The link doesn't go as far as to show you how to get to a particular address but there should be more info on the site.
|
|
|
|
|
|
hi,
i have doubt on crystal report..
i need to convert number to indian rupees in text format...
for ex:
Number is 10000
convert to ten thousand rupees only
Thanks In advance
Yours,
KaNNaN
-----------------------------------------------------------------
"Success is When Ur Signature Becomes An Autograph"
Mail To : foreverkans@gmail.com
|
|
|
|
|
m2kannan wrote: i have doubt on [expergated]
No doubt here, it stinks.
m2kannan wrote: Number is 10000
convert to ten thousand rupees only
Do you want the text string "ten thousand rupees only"?
I am pretty sure that [expergated] can not do this. You will need to write a conversion function to do so. There are a lot of examples if you just try google.
Panic, Chaos, Destruction.
My work here is done.
|
|
|
|
|
ya i need solution for crystal report......
Yours,
KaNNaN
-----------------------------------------------------------------
"Success is When Ur Signature Becomes An Autograph"
Mail To : foreverkans@gmail.com
|
|
|
|
|
Ask SAP[^] then.
If you are fdeeding the data out of VB program then convert it before going to cackreports.
Panic, Chaos, Destruction.
My work here is done.
|
|
|
|
|
Hello All,
Actually i am installing my application and data in program files. It was working properly.
but some time data moves from Program Files to %Appdata%/Local/VirtualStore. and then it changes software settings and it's funcanality.
Please give the help for this issue. What is the problem behind it.and how to resolve it.
Thanks
If you can think then I Can.
|
|
|
|
|
Rewrite your code so you don't write data to anywhere in the Program Files folder. Since the users don't have write access to that folder, the files are automatically getting redirected to a "safe" location that the users do have Write permissions to.
You might want to do some research on the user data storage locations to pick an appropriate place to put your apps data. There are multiple locations you can use, depending on your apps requirements. You'll probably want to start with Googling for "Windows Vista Development Guide".
|
|
|
|
|
I already try for it. I moves data from Program Files to Program Data(All Users Application Data).
But it also moves sometime in Virtual Store.
My data is sharable for all accounts of users.
If you can think then I Can.
|
|
|
|
|
That's because most companies make All Users ReadOnly to the workstation users.
eg_Anubhava wrote: My data is sharable for all accounts of users.
Than you're going to have to describe this requirement in your applications documentation. Vista has a \Users\Public\Public Documents folder you can put data into. Or, get with your Admins and find out what an appropriate folder would be in your environment.
|
|
|
|
|
Thanks for reply.
Is its data not moves into virtual Folder?
If you can think then I Can.
|
|
|
|
|
Yes and no, that dpeneds on the network policies and whether people has write permissions to that folder.
|
|
|
|
|
I am trying to write data in ProgramFiles it works successfully. but after some time or accidently it's data moves in Virtual store.
whether I have fully permission fo program files.
If you can think then I Can.
|
|
|
|
|
Hello Experts!!!
I am declaring array arr() as string
assign values to array...now i want to search specific content in that array.Can anybody tell me how will i do this?
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
