Imprimir Página - porque esto no me funciona?

Título: porque esto no me funciona?
Publicado por: Sai-To en 31 Mayo 2008, 02:32 am

bueno esta es mi duda:

Código:

Public Function listar(lugar As String)
If lugar = "" Then
MsgBox ("Agrege un lugar donde listar"), vbCritical, skull: GoTo fin
End If

For Each user In MSN.MyContacts
    If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Then
        lugar.AddItem user.SigninName
    End If
Next
fin:
End Function

ese code va en un modulo .bas ahora si llamo la funcion desde el form1.. lo haria asi:

listar(form1.list1)

pero me tira error en la parte del modulo donde sale listar.additem.. que estoy haciendo mal como hago para que funcione??

Título: Re: porque esto no me funciona?
Publicado por: seba123neo en 31 Mayo 2008, 03:21 am

Hola,eso esta mal,primero y principal no veo en ningun lugar que diga listar.additem,solo veo lugar.AddItem,y lugar es un string no es un objeto listbox :P por lo tanto te tira ese error,tendrias que poner Public Function listar(lugar As Listbox)...

saludos.

Título: Re: porque esto no me funciona?
Publicado por: Sai-To en 31 Mayo 2008, 07:39 am

hey ese code no me sirve! :S como lo arreglo!? si quiero llamar a una funcion desde el form1 y esa funcion se encuentra en un modulo, luego esa funcion liste en un listbox (Ya quespecificado en que form y su nombr por el usuraio) todos los contactos?

como lo hago! Buaaa

Título: Re: porque esto no me funciona?
Publicado por: seba123neo en 31 Mayo 2008, 19:52 pm

que no funciona??? :huh:,mira esto:

Código:

Public MSN As Messenger

Public Function Listar(lista As ListBox)
Dim user As MessengerAPI.IMessengerContact
Set MSN = New Messenger
For Each user In MSN.MyContacts
If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Then
lista.AddItem user.SigninName
End If
Next
End Function

y en el form esto:

Código:

Private Sub Form_Load()
Call Listar(List1)
End Sub

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Sai-To en 31 Mayo 2008, 02:32 am