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

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. :)