Visual Basic para Aplicaciones - Problema funcion listbox

Life is soft - evento anual de software empresarial
 
Vista:

Problema funcion listbox

Publicado por pipiolo (3 intervenciones) el 02/02/2007 00:13:01
Hola a todos,

estoy haciendo una macro en Excel 2000 con una serie de formulario. He creado una función a la que le paso un listbox para hacer una serie de operaciones con este.

La declaración de la función es "Public Function opera_listbox(lst_listbox as listbox) as integer " y desde el código que la llamo pongo "opera_listbox mi_listbox"., donde mi_listbox en un listbox del formulario.

El problema es que siempre me dice que los tipos de datos no coinciden y no se ejecuta. ¿Alguien podría ayudarme? Muchas gracias.

tb he dejado el mensaje en el foro de visual ya que no sabía donde encaja mejor
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema funcion listbox

Publicado por LSD (2 intervenciones) el 02/02/2007 18:47:24
Que tal pipiolo, bueno mira hice una prueba hice un formulario con un listbox el cual tiene los numeros 1 y 2, un boton que me llama a tu funcion y un textbox que en la cual escribo el resultado de la funcion, el codigo es el siguiente:

FORMULARIO:
Private Sub CommandButton1_Click()
Dim resultado As Integer
resultado = opera_listbox(ListBox)
TextBox1.Text = resultado
End Sub

'Al cargar el formulario se llena
Private Sub UserForm_Initialize()
ListBox.AddItem (1)
ListBox.AddItem (2)
End Sub

'y en un modulo cree la funcion que me retorna la suma

Public Function opera_listbox(con As Object) As Integer
opera_listbox = CInt(con.List(0)) + CInt(con.List(1))
End Function

Esta probado y me funciono perfecto, espero que te sea util, cualquier cosa no dudes en preguntar, suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Resuelto, Muchas gracias

Publicado por pipiolo (3 intervenciones) el 03/02/2007 04:13:23
Ya está resuelto. El problema era la declaración de la función que yo tenía:

Private Function mi_funcion (mi_listbox as listbox) as integer

y probando tu código debe ser:

Private Function mi_funcion (mi_listbox as object) as integer

Pensaba que se podía pasar el listox como argumente, pero por lo visto no funciona.

un saludo y muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Resuelto, Muchas gracias

Publicado por The Emulator (29 intervenciones) el 03/02/2007 19:48:05
Hola

El error debe ser otra cosa porque un Listbox si se puede pasar como argumento

Saludos
http://www.theemulator.tk
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar