Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Añadir Un Elemento Nuevo A Un Combobox Desde Su Caja De Texto
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Añadir Un Elemento Nuevo A Un Combobox Desde Su Caja De Texto 
 
Buenas!.

La idea de este ejemplo es.

- Tenemos una serie de elementos en el combobox que podemos seleccionar.
- Queremos añadir un nuevo elemento al desplegable del combobox en ejecución para poder ampliar la lista seleccionable de este.
- Usaremos su propia caja de texto.

Entraremos un nombre en la caja de texto y podemos escribir que categoría de deporte hace o seleccionamos una en el desplegable
del combobox. Una vez tengamos el nombre y la categoría, la entraremos. Se mostrará en la ListBox inferior y podemos volver
a empezar.

 formularioprincipal_1510659323_976197

Tenemos solo tres categorías de deportistas.  Corredores, baloncestistas y  nadadores. Añado Futbolista ( por poner algo ).

 nuevacategoria

La última categoría se muestra en la caja de texto del combobox y podemos seleccionarla de su lista.

Este es el código del ejemplo:

Public Sub ComboBox1_KeyPress()  
  Dim nuevacategoria As String
  
  ' Si el contenido de la caja de texto no es nula  
  If Not IsNull(TextBox1.Text) Then
    'Si la tecla pulsada es Enter o Return
    If Key.Code = Key.Enter Or Key.Code = Key.Return Then
      nuevacategoria = ComboBox1.Text
      If Not IsNull(nuevacategoria)      
        If ComboBox1.Find(nuevacategoria) = -1 Then        
          ComboBox1.Add(nuevacategoria)      
          ListBox1.Add(TextBox1.Text & " - " & nuevacategoria)  
          ComboBox1.Text = nuevacategoria              
        Else
          ListBox1.Add(TextBox1.Text & " - " & ComboBox1.Text)                      
        Endif
        TextBox1.Text = ""
        TextBox1.SetFocus          
      Endif      
    Endif        
  Else
    'Si la caja de texto no contiene un texto valido volvemos a enfocarla
    TextBox1.SetFocus
  Endif  
  
End

Public Sub TextBox1_KeyPress()
    
  If Key.Code = Key.Enter Or Key.Code = Key.Return Then ComboBox1.SetFocus
  
End
 


La variable nuevacategoria he tenido que usarla obligatoriamente.  Sin ella el combobox no se comporta como quiero.
Imaginar que quiero prescindir de ella y usar solo combobox1.text. No parece suficiente y debo usar una variable auxiliar.

Aquí el ejemplo.

Saludos
 




===================
Gambas Básico
“Lo mejor de los booleanos es que si te equivocas estás a un solo bit de la solución correcta. Anónimo."
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Añadir Un Elemento Nuevo A Un Combobox Desde Su Caja De Texto 
 
Te propongo este código mas resumido.

Public Sub ComboBox1_KeyPress()
  Dim nuevacategoria As String
  If Key.Code = Key.Enter Or Key.Code = Key.Return Then
    Print "Enter"
    If ComboBox1.List.Exist(ComboBox1.Text) = False Then
      nuevacategoria = ComboBox1.Text
      ComboBox1.Add(nuevacategoria)
      ComboBox1.Text = nuevacategoria
    Endif
    ComboBox1.SetFocus
  Endif
End
 


Creo que lo que decis que no se comporta como queres es que no le asignas el valor que acabas de gregar a la lista al combobox.text

Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Detectar Elemento De Combobox Que Tiene El... v3ctor General 2 Domingo, 14 Diciembre 2014, 10:33 Ver último mensaje
jsbsan
No hay nuevos mensajes Comprobar El Elemento Combobox Seleccionad... CanihoJR General 9 Lunes, 02 Agosto 2010, 04:14 Ver último mensaje
abarzuaf
No hay nuevos mensajes Como Elegir Un Elemento De La Lista Sin Us... v3ctor Controles/Librerías/Componentes 1 Domingo, 15 Diciembre 2013, 17:04 Ver último mensaje
jsbsan
No hay nuevos mensajes Añadir Datos De Un Combobox A Un Lisbox O... sasogu Controles/Librerías/Componentes 2 Sabado, 27 Agosto 2011, 10:34 Ver último mensaje
sasogu
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario