Duda en VB 6.0 con un ComboBox
Hola buen día. Espero me puedas ayudar.
Mira en un ComboBox en la propiedad List agregue una lista de productos, y quiero que al seleccionar alguno de esos productos me dé un valor que a cada uno le asigne y solamente ese valor se despliegue en un TextBosx. Por ejemplo: Si en la lista del ComboBox tengo "Monitor", "Teclado", etc. Y el valor que le dé a "Monitor" sea de 10% y a "Teclado" de 20%, como debe ser el código para que al seleccionar el en ComboBox "Monitor" se despliegue en un TextBox solamente 10% que es el valor que quiero que se vea en el Textbox pero que no se borre "Monitor" del ComboBox.
Ya busque y leí pero no encuentro la forma de crear el código.
De antemano Muchas Gracias
Mira en un ComboBox en la propiedad List agregue una lista de productos, y quiero que al seleccionar alguno de esos productos me dé un valor que a cada uno le asigne y solamente ese valor se despliegue en un TextBosx. Por ejemplo: Si en la lista del ComboBox tengo "Monitor", "Teclado", etc. Y el valor que le dé a "Monitor" sea de 10% y a "Teclado" de 20%, como debe ser el código para que al seleccionar el en ComboBox "Monitor" se despliegue en un TextBox solamente 10% que es el valor que quiero que se vea en el Textbox pero que no se borre "Monitor" del ComboBox.
Ya busque y leí pero no encuentro la forma de crear el código.
De antemano Muchas Gracias
1 Respuesta
Respuesta de Raul Hernandez
1
Este es el código que necesitas:
Private Sub Form_Load()
Combo1. AddItem "Monitor"
Combo1. AddItem "Teclado"
End Sub
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Text1.Text = "10%"
Case 1
Text1.Text = "20%"
End Select
End Sub
Private Sub Form_Load()
Combo1. AddItem "Monitor"
Combo1. AddItem "Teclado"
End Sub
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Text1.Text = "10%"
Case 1
Text1.Text = "20%"
End Select
End Sub
