|
Thanks Works perfectly
Andrew
|
|
|
|
|
I am doing some work using an ArrayList in VB .Net (I'm new to VB, coming from a C# background) and I am currently without my library of code samples. here is what i am hoping to accomplish. say i have built an arraylist like so:
<br />
Dim arr As ArrayList<br />
arr.Add("a")<br />
arr.Add("b")<br />
arr.Add("c")<br />
arr.Add("d")<br />
arr.Add("e")<br />
arr.Add("a")<br />
arr.Add("e")<br />
arr.Add("a")<br />
<br />
What I am trying to accomplish is to make the array have only one instance of each value, so that once I run this arraylist, the vales would be:
a
b
c
d
e
Any suggestions would be great
______________________
Mr Griffin, eleventy billion is not a number...
|
|
|
|
|
Here is function that will do the trick.
Private Function DistinctArray(ByVal arr As ArrayList) As ArrayList<br />
Dim x As New ArrayList<br />
Dim myEnumerator As System.Collections.IEnumerator = _<br />
arr.GetEnumerator()<br />
While myEnumerator.MoveNext()<br />
If Not x.Contains(myEnumerator.Current) Then<br />
x.Add(myEnumerator.Current)<br />
End If<br />
'Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)<br />
End While<br />
Return x<br />
End Function
Here is my test code.
Dim arr As New ArrayList<br />
arr.Add("a")<br />
arr.Add("b")<br />
arr.Add("c")<br />
arr.Add("d")<br />
arr.Add("e")<br />
arr.Add("a")<br />
arr.Add("e")<br />
arr.Add("a")<br />
Dim strValues As String<br />
Dim x As New ArrayList<br />
x = DistinctArray(arr)<br />
Dim myEnumerator As System.Collections.IEnumerator = x.GetEnumerator()<br />
While myEnumerator.MoveNext()<br />
strValues += myEnumerator.Current & ", "<br />
End While<br />
MsgBox(strValues)
"People who never make mistakes, never do anything."
My blog
http://toddsnotsoamazinglife.blogspot.com/
|
|
|
|
|
Awesome! that is Exactly what I needed
Thanks A ton.
______________________
Mr Griffin, eleventy billion is not a number...
|
|
|
|
|
I have a datatable filled with data.
How can I query a cell in the table to see if it has changed since the last acceptchanges?
I'm familar with the column changing event. I want something similar to this where i can query the original value and proposed value etc. But I want to just make reference to a cell in the table and test it at my own liesure.
I can do this with a row by typing the following:
if drw.RowState = DataRowState.Unchanged then
' Do something...
endif
Is there any way to test the following for a change?
dataset.tables(0).rows(0).item <--has changes
And if so is it possible to test the current value against the oginal value in the cell?
I want to check if a certain cell value has changed and action the result.
Thanks Glenn
|
|
|
|
|
In a datagrid how can I get the current row value of its underlying table?
Or how can I get the dataset field value of the datagrids current row?
Thanks.
|
|
|
|
|
|
That did it, thanks alot!
|
|
|
|
|
Hi
Can anyone tell me is there any way to interact autocad in vb.net
if yes please tell me i need it in urgently
Thanks in advance
|
|
|
|
|
|
In a text box I want only numeric or backspace allowed. I know how to do the numeric but have not a clue with the backspace.
Here is my code. How do I also get the backspace?
'An integer allowed only
If e.KeyChar.IsNumber(e.KeyChar) = False Then
e.Handled = True
End If
|
|
|
|
|
Hi
I know this is not exaclty what you are were asking for, but it works...
If Not(e.KeyChar.IsNumber(e.KeyChar)) And Not(e.KeyChar.IsControl(e.KeyChar)) then
e.Handled = True
End If
|
|
|
|
|
Asc(e.KeyChar) returns the ASCII value of the key pressed. The [backspace] has an ASCII value of 8.
|
|
|
|
|
hi,
I want to select only certain fields from listbox which is populated by the
fields of a table and on selecting those fields .I want those field only on to a crystal report other field shouldn't appear.
thanks,
Note:Christian graus you don't give answer to this.
|
|
|
|
|
you can do this but it all depends on the report format.
like in my case I had a report and it has to display the details of one record per page like details of employee. so what I did , I put these type of fields in one section and made them hide or display at run time. if this is the case then you got the solution. in other case like you are displaying records in columns then you have to make all the fields label as parameter fields and all the data as formula field. Now from vbCode is label parameter = "" then in formula field dont display any thing else display
hope you understand what I am trying to explain.
note: I am not sure that you can move the labels right or left for adjustment of blank spaces. but will solve the problem.
may be there is any other good method to do this. as this is some thing I did when I was exausted with this issue.
|
|
|
|
|
I need how to connect vb to SQL?
|
|
|
|
|
I want to convert a number of jpg's given in series to a single avi. Can any body tell me of any link or any help...
Thanx
|
|
|
|
|
I want to do that in vb6 as well....
|
|
|
|
|
Hello,
Is there any way to determite the % usage of my cpu?
I am using vb.net.
|
|
|
|
|
Take a look at CpuInfo & CpuUsage[^] from Mentalis.org
"..Commit yourself to quality from day one..it's better to do nothing at all than to do something badly.."
-- Mark McCormick
|
|
|
|
|
Download links don't work.
|
|
|
|
|
Sorry for the late reply, i was on holiday...
Weird, i can download it fine, have you tried http://www.mentalis.org/php/dm/dm.qpx?26[^] (link to download CpuUsage zip file)?
If it still doesn't work, i can mail it to you...
"..Commit yourself to quality from day one..it's better to do nothing at all than to do something badly.."
-- Mark McCormick
|
|
|
|
|
Thanks, now it works it didnt work few weeks ago but now server is working again.
|
|
|
|
|
please info about vb.net database
|
|
|
|
|