[Visual Basic 6.0] Text zoeken in een Listbox

[Verwijderd]

Ik heb even een vraagje: Ik wil graag een email adres uit een listbox zoeken en een msgbox berichtje zetten dat [e-mail] online is gekomen. hebben jullie daar een antwoord op? hier volgt de code die ik tot nu toe heb:

code:

Public WithEvents msn As MessengerAPI.Messenger

Private Sub Command1_Click()
Dim msncontact As IMessengerContact

Dim msncontacts As IMessengerContacts

Set msncontacts = msn.MyContacts

For Each msncontact In msncontacts

If msncontact.Status <> MISTATUS_OFFLINE Then

   List1.AddItem msncontact.SigninName

End If

Next

End Sub


Private Sub Form_Load()
Combo1.AddItem "Online"
 Combo1.AddItem "Busy"
   Combo1.AddItem "Away"

Set msn = New MessengerAPI.Messenger


End Sub
Private Sub Combo1_Click()

If Combo1.Text = "Online" Then

   msn.MyStatus = MISTATUS_ONLINE
   
ElseIf Combo1.Text = "Busy" Then

   msn.MyStatus = MISTATUS_BUSY

ElseIf Combo1.Text = "Away" Then

   msn.MyStatus = MISTATUS_AWAY

End If

End Sub

Private Sub List1_DblClick()

msn.InstantMessage (List1.Text)

End Sub

Ik ben geen held in zoek woorden , dus uit Google/Tweakers forum is nog niet veel gekomen.
En ik ken de basics van Visual Basic en niet veel meer, maar ik ben bereid om te leren.

Hebben jullie een zoekwoord/stukje code voor mij?

Mvg Wessel

[ Voor 6% gewijzigd door Verwijderd op 22-11-2007 21:05 ]

[pkouwer]

wat lukt er niet ?

[lennartkocken]

VB6.. dat is lang geleden voor me, maar het zal iets zijn als

Visual Basic:

while i < listbox1.count
if zoekwoord = listbox1.items(i).selectedItem then
msgbox(i)
end if
end while

[whoami]

Nou, het is niet de bedoeling dat we op deze manier topics gaan openen.
We verwachten van jou, als topicstarter toch wel minstens dat je zelf al eens iets geprobeerd hebt om je probleem op te lossen, en dat je ook vermeld wat je al gedaan hebt om het op te lossen, anders wordt het hier snel een 'afhaalservice voor werkende code', en dat willen we niet.

Neem dus even de Quickstart door, en pas je topic aan aan deze Quickstart