elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  porque esto no me funciona?		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: porque esto no me funciona?  (Leído 2,195 veces)
Sai-To

Desconectado Desconectado

Mensajes: 180


Ver Perfil
porque esto no me funciona?
« 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??
En línea
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: porque esto no me funciona?
« Respuesta #1 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.
En línea
Sai-To

Desconectado Desconectado

Mensajes: 180


Ver Perfil
Re: porque esto no me funciona?
« Respuesta #2 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
En línea
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: porque esto no me funciona?
« Respuesta #3 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
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
FPDF Porque esto no funciona?
PHP 		Kalister 4 4,551 Último mensaje 11 Enero 2011, 18:50 pm
por Nakp
porque Turbobit no me funciona con Jdownloader
Software 		isaaxlol 0 2,594 Último mensaje 24 Septiembre 2011, 08:07 am
por isaaxlol
¿Porque no funciona? codigo vb6
Programación Visual Basic 		RuniksFelipez 1 1,531 Último mensaje 20 Noviembre 2012, 23:28 pm
por Elemental Code
XmlDocument.LoadXml ¿Porque no me funciona?
.NET (C#, VB.NET, ASP) 		Eleкtro 3 2,698 Último mensaje 18 Diciembre 2012, 22:51 pm
por Novlucker
[CSS] ¿Porque no funciona?
Desarrollo Web 		Ori-chan 5 2,974 Último mensaje 24 Enero 2013, 16:38 pm
por Ori-chan
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines