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
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
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 = cmbcol1limpiado()
llenado()
End Sub
Private Sub cmbcol2_GotFocus(sender As Object, e As EventArgs) Handles cmbcol2.GotFocus
arr = color obj = cmbcol2limpiado()
llenado()
End Sub
Private Sub cmbcol3_GotFocus(sender As Object, e As EventArgs) Handles cmbcol3.GotFocus
arr = color obj = cmbcol3limpiado()
llenado()
End Sub
Private Sub cmbcol4_GotFocus(sender As Object, e As EventArgs) Handles cmbcol4.GotFocus
arr = color obj = cmbcol4limpiado()
llenado()
End Sub
Private Sub cmbcol5_GotFocus(sender As Object, e As EventArgs) Handles cmbcol5.GotFocus
arr = color obj = cmbcol5limpiado()
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
0
