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

Ads Blocker Image Powered by Code Help Pro

Ads Blocker Detected!!!

En Programador Novato vivimos de los anuncios, hemos detectado que está utilizando extensiones para bloquear anuncios. Ayudanos deshabilitando tu bloqueador de anuncios. :)