FORM2
Private
Me.Hide()End Sub Class
Form2.Show()
End Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Public Class Form1
Dim IMC As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
IMC = Val(TextBox2.Text) / Val(TextBox3.Text) * Val(TextBox3.Text)
Form2.DataGridView1.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, IMC)
MsgBox("Datos Ingresados")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Hide()
Form2.Show()
End Sub
End Class
No hay comentarios:
Publicar un comentario