Visual Basic - Ayuda con Combo Box VB

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 12 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Ayuda con Combo Box VB

Publicado por Rolando (2 intervenciones) el 28/10/2019 09:07:54
Saludos desde Mexico, espero que se encuentren muy bien este dia.
Me gustaria darles las gracias de antemano, y ademas, preguntar si hay forma de que el item seleccionado en cmbcol1 se borre de la lista de items que me mostrara en todos los otros combo box, al menos hasta que cambia de item seleccionado, y asi sucesivamente con los de mas items que seleccione en los de mas combo box

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Public Class Form1
    Public nacion() As String = {"Britanico", "Sueco", "Aleman", "Ingles", "Noruego"}
    Public color() As String = {"Blanco", "Amarillo", "Rojo", "Verde", "Azul"}
    Public bebida() As String = {"Agua", "Cafe", "Té", "Leche", "Cerveza"}
    Public cigarro() As String = {"Pall Mall", "Blends", "Prince", "Dunhill", "Bluemasters"}
    Public mascota() As String = {"Pez", "Gato", "Perro", "Caballo", "Pajaro"}
    Public obj As Object
    Public col As Integer
    Public arr As Object
 
    Private Sub llenado()
        obj.Items.AddRange(arr)
    End Sub
 
    Private Sub limpiado()
        obj.Items.Clear
    End Sub
 
    Private Sub cmbcol1_GotFocus(sender As Object, e As EventArgs) Handles cmbcol1.GotFocus
        arr = color
        obj = cmbcol1
        limpiado()
        llenado()
    End Sub
 
    Private Sub cmbcol2_GotFocus(sender As Object, e As EventArgs) Handles cmbcol2.GotFocus
        arr = color
        obj = cmbcol2
        limpiado()
        llenado()
    End Sub
 
    Private Sub cmbcol3_GotFocus(sender As Object, e As EventArgs) Handles cmbcol3.GotFocus
        arr = color
        obj = cmbcol3
        limpiado()
        llenado()
    End Sub
 
    Private Sub cmbcol4_GotFocus(sender As Object, e As EventArgs) Handles cmbcol4.GotFocus
        arr = color
        obj = cmbcol4
        limpiado()
        llenado()
    End Sub
 
    Private Sub cmbcol5_GotFocus(sender As Object, e As EventArgs) Handles cmbcol5.GotFocus
        arr = color
        obj = cmbcol5
        limpiado()
        llenado()
    End Sub
 
End Class

Aclaro que esto lo se hacer con un IF pero es mucha linea de codigo por eso deseo saber si hay una forma mas corta
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
Imágen de perfil de Andres Leonardo
Val: 3.783
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Ayuda con Combo Box VB

Publicado por Andres Leonardo (1510 intervenciones) el 28/10/2019 16:27:41
estimado esto ya no telo conteste??

'A este procedimiento enviarle un parametro adicional donde envies el elemento que no debe llenar
1
2
3
4
5
6
7
8
9
Sub llenar(ByVal fila As Integer, ByVal obj As Object, ItemX as string)
        columna = 0
        While columna < 5
        if itemX  <> llenado(fila,Columna) then   ' validar si el item es el que vas a llenar para omitirlo
            obj.Items.Add(llenado(fila, columna))
        end if
            columna += 1
        End While
    End Sub
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