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