Ver Mensaje Individual
  #43 (permalink)  
Antiguo 03/05/2010, 03:22
Avatar de erbuson
erbuson
 
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 15 años
Puntos: 53
Respuesta: Ayuda por favor

Hola:

Pegaré aqui va función que es muy simple pero aqui la dejo para otros, a ti te la había adjuntado en el archivo que te mandé.

Código vb:
Ver original
  1. Public Sub ComboAdd(Combo As ComboBox, Item As String)
  2.   ' Añade Item al combo indicado si no está en el
  3.  Dim Indice As Single
  4.   For Indice = 0 To Combo.ListCount - 1
  5.     ' Si lo encuentra simplemente salimos
  6.    If Combo.List(Indice) = Item Then Exit Sub
  7.   Next
  8.   ' Si no hemos salido, debemos añadirlo
  9.  Combo.AddItem Item
  10. End Sub

Lo que hace esta función es añadir elementos a un combo controlando que no esté ya en él, en tu caso está aplicada para permitirte seleccionar un día de la semana del grid o sea, que aunque tengas 4 veces Martes en la columna x y 3 veces Jueves y 5 Lunes, en el combo sólo lo tendrás una vez.

Respecto a tu pregunta de lo que significa las variables que se definen, le estamos diciendo que cuando llamemos a ComboAdd le pasaremos como primer parámetro un objeto que es un ComboBox y como segundo una variable de Cadena a la que le pongo el nombre de Item para verlo mas claro.

Por ejemplo lo que no puedes hacer es llamar a la función de la siguiente manera:

Call ComboAdd(CajaTexto, 1215)

en primer lugar porque el primer parámetro es un TextBox y la rutina espera un ComboBox y el Segundo es un Numero y la rutina espera una cadena, por ejemplo la llamada correcta seria:

Call ComboAdd(MiCombo, "Lunes")

Saludos
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...