ComboBox, ListBox e Imágenes (PictureBox) en Visual Basic [05]
En este tutorial aprenderemos a usar ComboBox, ListBox e Imágenes en Visual Basic con el siguiente ejercicio:
- Agregamos un ComboBox y un ListBox y dos PictureBox.
- Agregamos nombres de los productos en el ComboBox.
- Agregamos pasarelas de pago en en el ListBox.
- Si se selecciona un producto en el ComboBox mostramos su imagen en un PictureBox.
- Si se selecciona una pasarela de pago en el ListBox mostramos su imagen – en un PictureBox.
- Al hacer click en pagar mostramos lo que se va a pagar y la pasarela con la que se va a pagar.
Codigo para crear ComboBox ListBox e Imágenes en Visual Basic: https://github.com/programadornovato/FormularioVisualBasic/commit/746e00b538c8afff253964e2aa10ed7d449916e0
Public Class Ventana2 Private Sub Ventana2_Load(sender As Object, e As EventArgs) Handles MyBase.Load lblResultado.Text = "" End Sub Private Sub btnPagar_Click(sender As Object, e As EventArgs) Handles btnPagar.Click Dim total = 0 Dim pasarela = "" Dim conProd = 0 Dim conPasarelas = 0 If cbProductos.Text = "Camisas 500" Then total = total + 500 conProd = conProd + 1 End If If cbProductos.Text = "Tenis 1000" Then total = total + 1000 conProd = conProd + 1 End If If lbPasarelas.Text = "Paypal" Then pasarela = "Pago con paypal " conPasarelas = conPasarelas + 1 End If If lbPasarelas.Text = "Tarjeta" Then pasarela = "Pago con tarjeta " conPasarelas = conPasarelas + 1 End If If conProd > 0 And conPasarelas > 0 Then lblResultado.Text = pasarela & total Else lblResultado.Text = "Humano debes seleccionar un producto y una pasarela" End If End Sub Private Sub btnRegresar_Click(sender As Object, e As EventArgs) Handles btnRegresar.Click Dim f = New Form1() f.Show() Me.Hide() End Sub Private Sub cbProductos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbProductos.SelectedIndexChanged imgProductos.ImageLocation = "C:/Users/eugenio/Pictures/VB/" & cbProductos.Text & ".png" End Sub Private Sub lbPasarelas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbPasarelas.SelectedIndexChanged imgPasarelas.ImageLocation = "C:/Users/eugenio/Pictures/VB/" & lbPasarelas.Text & ".png" End Sub End Class
[CURSO] VISUAL BASIC CON FORMULARIOS⛓️: https://www.youtube.com/playlist?list=PLCTD_CpMeEKT3ElKWfWYkyefyXdMxh-1v
[CURSO] Visual Basic.NET⛓️: https://www.youtube.com/watch?v=aiquJHzxNWw&list=PLCTD_CpMeEKSFwAFjvrfpvSwxmbs2maMo&ab_channel=programadornovato
[CURSO] C##️⃣: https://www.youtube.com/watch?v=NKPMGY6NCko&list=PLCTD_CpMeEKQSOU8Vf9VHXrZa2rc8X0X5&index=1&t=3s&ab_channel=programadornovatoprogramadornovato
[CURSO] C# CON FORMULARIOS#️⃣: https://www.youtube.com/watch?v=l0_U4oyOuns&list=PLCTD_CpMeEKTBih1VgeunCjc83ZQ6UBMI&index=1&ab_channel=programadornovatoprogramadornovato
[CURSO] C++ DE 0 A HEROE 🦸: https://www.youtube.com/watch?v=APN8aCyPvww&list=PLCTD_CpMeEKTofxs7iottRxJ5YPM7BOcc&ab_channel=programadornovato
[Curso] Java Netbeans GUI Completo☕: https://www.youtube.com/watch?v=18UA7X2ss8g&list=PLCTD_CpMeEKThfXo8D-RXOGu5FarO7_qv&ab_channel=programadornovato
🔗 Facebook: https://facebook.com/ProgramadorNovatoOficial
🔗 Twitter: https://twitter.com/programadornova
🔗 Linkedin: https://www.linkedin.com/in/programadornovato/
🔗 Instagram: https://www.instagram.com/programadornovato/
Anterior tutorial Siguiente tutorial