Dudas con el control Listbox
Hola Experto:
Mi problema consiste en lo siguiente: Quiero saber como puedo hacer
para pasar como variable un control, para que me comprendas mejor
te voy a explicar lo que quiero hacer:
Tengo dos Listbox Uno el general con todas las personas y el otro
con las personas empleadas, el tema es que los dos listbox hacen
cosas parecidas como asignar desde el listbox de personas al listbox de
personas empleadas y viceversa. Tengo los procedimientos
para cada una de estas tareas, pero no me parece muy eficiente mi solución, mi pregunta es como puedo hacer para tener un solo procedimiento en donde yo le pase el listbox que quiero
Desde ya muchas gracias
Mi problema consiste en lo siguiente: Quiero saber como puedo hacer
para pasar como variable un control, para que me comprendas mejor
te voy a explicar lo que quiero hacer:
Tengo dos Listbox Uno el general con todas las personas y el otro
con las personas empleadas, el tema es que los dos listbox hacen
cosas parecidas como asignar desde el listbox de personas al listbox de
personas empleadas y viceversa. Tengo los procedimientos
para cada una de estas tareas, pero no me parece muy eficiente mi solución, mi pregunta es como puedo hacer para tener un solo procedimiento en donde yo le pase el listbox que quiero
Desde ya muchas gracias
1 Respuesta
Respuesta de adrianxxi
1
Prueba algo así:
Private Sub Command1_Click()
'llamada a TU procedimiento
Procesar(list1)
End Sub
Private Sub Procesar(xxx as Control)
Private Sub Command1_Click()
'llamada a TU procedimiento
Procesar(list1)
End Sub
Private Sub Procesar(xxx as Control)
Hola: yo de nuevo, gracias por tu respuesta, pero he hecho lo que me decías y visual me dice que no coinciden los tipos cuando llamo al procedimiento.
Te voy a mostrar un ejemplo simple de lo que quiero hacer:
Teniendo dos list, cuando cargue algún elemento en cualquiera de los list, llamaría al procedimiento
cargar_list
Private sub Cargar_list()
'adentro del parentesis del procedimiento tendria que ir el parametro
list_var.additem var_algo
end sub
En donde list_variable es cualquiera de los list
Mil disculpas por las molestias causadas... Muchas Gracias
Te voy a mostrar un ejemplo simple de lo que quiero hacer:
Teniendo dos list, cuando cargue algún elemento en cualquiera de los list, llamaría al procedimiento
cargar_list
Private sub Cargar_list()
'adentro del parentesis del procedimiento tendria que ir el parametro
list_var.additem var_algo
end sub
En donde list_variable es cualquiera de los list
Mil disculpas por las molestias causadas... Muchas Gracias
Adentro del paréntesis del procedimiento pasas un numero como parámetro que surge del Click de cada uno de los list
Private Sub List1_click()
V_Numero=1
End Sub
Private Sub List2_click()
V_Numero=2
End Sub
La variable V_Numero la declaras en las DECLARACIONES del FORMULARIO.
y en el Load la inicializas en 0 (cero)
Private sub Cargar_list(x as Byte)
if x=1 then
list_var.additem var_algo1
elseif x=2 then
list_var.additem var_algo2
else
' en caso que sea '0' y no se haya hecho click en alguno de los list
Msgbox "seleccione algo"
endif
end sub
Private Sub List1_click()
V_Numero=1
End Sub
Private Sub List2_click()
V_Numero=2
End Sub
La variable V_Numero la declaras en las DECLARACIONES del FORMULARIO.
y en el Load la inicializas en 0 (cero)
Private sub Cargar_list(x as Byte)
if x=1 then
list_var.additem var_algo1
elseif x=2 then
list_var.additem var_algo2
else
' en caso que sea '0' y no se haya hecho click en alguno de los list
Msgbox "seleccione algo"
endif
end sub
