Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 540

Aug 25th, 2009

If any of item in Array

Expand Post »

Dim Friends(0 To 10) As String

Private Sub Command1_Click()
If Friends(any) = text1.text Then   '(what should I put here instead of any?)
MsgBox "You already have " &  text1.text " in the list 
else

end if
End Sub

In above code
I have an empty array of 10 friends
I have a button,
on pressing it I can add a new friend in any array

I want such a code:

While adding a new friend, it should prompt if the friend is already available in array.

Please Help!

Similar Threads

Stripping the last element off an array in Perl
remove item in array in C++
Using recursion to find largest item in an array in C++
Delete an item from an array in C
array of structures within a struct in C++

raavi.munaf

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

4 posts
since Aug 2008

Permalink

Aug 25th, 2009

Re: If any of item in Array

You will need a variable to keep track of how many friends have been entered.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim MyFriendCount As Integer, LoopCounter As Integer
Dim MyFriendCount As Integer, LoopCounter As Integer

Then you will need to initialize your friend counter

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

MyFriendCount = -1

Then you will need to test to see if you haved entered any friends yet...

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim FoundFriend As Boolean
If MyFriendCount = -1 Then 'no friend have been entered
Dim FoundFriend As Boolean
If MyFriendCount = -1 Then 'no friend have been entered

But if they have then you need to test if you have reached the limit...

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
ElseIf MyFriendCount > 10 Then 'too many friends or you need to redimension array so notify user...
ElseIf MyFriendCount > 10 Then 'too many friends or you need to redimension array so notify user...

Then of course if you have not exceeded the friend count...

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Else 'need to check to see if you have already entered friend
  For LoopCounter = 0 To MyFriendCount
    If UCase(Text1.Text) = UCase(Friends(LoopCount)) Then
      FoundFriend = True
    Else
      FoundFriend = False
    End If
  Next LoopCount
 
  If FoundFriend = True Then
    'notify user
  Else
    MyFriendCount = MyFriendCount + 1
    Friends(MyFriendCount) = Text1.Text
  End If
End If
Else 'need to check to see if you have already entered friend
  For LoopCounter = 0 To MyFriendCount
    If UCase(Text1.Text) = UCase(Friends(LoopCount)) Then
      FoundFriend = True
    Else
      FoundFriend = False
    End If
  Next LoopCount
  
  If FoundFriend = True Then
    'notify user
  Else
    MyFriendCount = MyFriendCount + 1
    Friends(MyFriendCount) = Text1.Text
  End If
End If

Good Luck

vb5prgrmr

Reputation Points: 156

Solved Threads: 296

Posting Virtuoso

Offline

1,670 posts
since Mar 2009

Permalink

Aug 25th, 2009

Re: If any of item in Array

Dear Friend
Thanks!

I will surely add you as a friend in my array.

raavi.munaf

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

4 posts
since Aug 2008

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: SQL command and vb6

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Auto Increent Value and Then Save it.

DaniWeb Message

Cancel Changes

User Name
Password