|
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?
|
|
|
|
|
If you want to search for a String within an array of Strings you can use this function.
Private Function indexInArray(ByVal theArray As String(), ByVal value As String) As Integer
For i As Integer = 0 To theArray.Length - 1
If theArray(i) = value Then Return i
Next
Return -1
End Function
To use this function you have to pass the array you want the string to be searched in and the string you want to search (value).
This function will return -1 if it doesn't find the string you want to search within the array. If it does find it it returns the index. NOTE: This only works for one-dimensional arrays.
You can use this sub to test it.
Private Sub testIt()
Dim myStrings(1) As String
myStrings(0) = "hello"
myStrings(1) = "world"
If indexInArray(myStrings, "hello") <> -1 Then
MessageBox.Show("The string in contained within the array")
End If
End Sub
|
|
|
|
|
Thanx for reply but in function
If theArray(i) = value Then Return i //doesn't return i after finding index value same with value,it return -1 for all values
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
