05

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

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *