Stephane, I don't want you to take this wrong or anything, but .... are you
nuts!. The man IS TAKING AN EXAM! I would think this is for a programming
class and he can't figure out how to do this simple exercise. You come along
and give him the code which he will in turn submit as his own work. He
didn't learn anything and his teacher thinks he knows something. You didn't
do the poster any real favor here; you just helped him cheat. We don't like
to do people's homework (or answer their test question) for them.
Usually, it is hard to tell that the poster is trying to get someone here to
do their work for them; but, in this case, it was kind of easy to figure
out.<g> For future reference, if a question seems to be for a homework
assignment or test, ask the poster to show what he/she has tried; then point
out where they have gone wrong (don't give them the answer though) and ask
them to try again. He/she can always come back to the newsgroup with
additional questions should he/she have any. Doing it this way, you will
have actually helped the person to learn.
Sorry about being so harsh with you, but this kind of thing is a pet peeve
of mine.
Rick - MVP
"Stephane Richard" <st**************@verizon.net> wrote in message
news:4%***************@nwrdny02.gnilink.net...
Hi Miro,
Here it is.
Public Function Find(L As ListBox, Number As Integer ) As Integer
Dim WorkNumber As Integer
Dim Counter As Integer
WorkNumber = 0
For Counter = 0 to L.ListCount
If L.ListItem(Counter) = Number Then
WorkNumber = WorkNumber + 1
End If
Next Counter
Find = WorkNumber
End Function
--
Stéphane Richard
Senior Software and Technology Supervisor
http://www.totalweb-inc.com
For all your hosting and related needs
"Miro" <Mi*************@public.srce.hr> wrote in message
news:be**********@bagan.srce.hr... I need code example for: how many times number repeat in the list? It
must be declared as:
Public Function Find(L As ListBox, Number As Integer ) As Integer
Sorry on my badly english, im from Croatia!
P.S. I need this for exam!
