04

Enlazar dos ventanas y usar checkbox y radiobutton en Visual Basic [04]

En este tutorial aprenderemos a enlazar dos ventanas y a usar los Check Box y Radio Buttons para ello continuaremos con el código de nuestro tutorial anterior:

  • Si el usuario y la contraseña son correctos crearemos y llamaremos una nueva ventana.
  • En esa nueva ventana colocaremos dos RadioButton y dos ChecksBox
    • A un Check Box le asignaremos un valor de 500 y al otro un valor de 1000.
    • A un radio button le asignaremos el valor de paypal y al segundo pago en efectivo.
    • Validar que por lo menos se seleccione un radio button y un checkbox de lo contrario mostrar un mensaje.

Codigo para enlazar dos ventanas: https://github.com/programadornovato/FormularioVisualBasic/commit/62ea1fe4dc385cf51d9a0775ed61a11ae10c7bcc

Public Class Form1

    Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
        If txtUsuario.Text = "programadornovato" And txtPass.Text = "123" Then
            'MessageBox.Show("Usuario valido")
            Dim v2 = New Ventana2()
            v2.Show()
            Me.Hide()
        Else
            MessageBox.Show("Usuario invalido")
            txtUsuario.Text = ""
            txtPass.Text = ""
        End If
    End Sub

    Private Sub btnSalir_Click(sender As Object, e As EventArgs) Handles btnSalir.Click
        Me.Close()
    End Sub
End Class
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 conChk = 0
        Dim conRad = 0
        If chk500.Checked = True Then
            total = total + 500
            conChk = conChk + 1
        End If
        If chk1000.Checked = True Then
            total = total + 1000
            conChk = conChk + 1
        End If
        If radPaypal.Checked = True Then
            pasarela = "Pago con paypal "
            conRad = conRad + 1
        End If
        If radTarjeta.Checked = True Then
            pasarela = "Pago con tarjeta "
            conRad = conRad + 1
        End If
        If conChk > 0 And conRad > 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
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 *