Programacion Práctica 7: Uso de MenuStrip
Enviado por Sandra75 • 27 de Agosto de 2018 • 726 Palabras (3 Páginas) • 375 Visitas
...
Private Sub ExcelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExcelToolStripMenuItem.Click
ID = Shell("C:\Program Files (x86)\Microsoft Office\Office15\excel.exe", 1)
End Sub
------------------------------------------------------------------------------------------------------------------
Private Sub CartasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CartasToolStripMenuItem.Click
ID = Shell("c:\windows\system32\mspaint.exe", 1)
End Sub
------------------------------------------------------------------------------------------------------------------
Private Sub BuscaminasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscaminasToolStripMenuItem.Click
ID = Shell("c:\windows\system32\calc.exe", 1)
End Sub
------------------------------------------------------------------------------------------------------------------
Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
End
End Sub
End Class
------------------------------------------------------------------------------------------------------------------
Formulario 2
[pic 7]
Public Class Form2
------------------------------------------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
V = Val(TextBox1.Text)
T = Val(TextBox2.Text)
n = Val(TextBox3.Text)
P = n * 0.08205 * T / V
TextBox4.Text = Format(P, "##0.000")
End Sub
------------------------------------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.Focus()
End Sub
------------------------------------------------------------------------------------------------------------------
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form1.Show()
Me.Hide()
End Sub
End Class
------------------------------------------------------------------------------------------------------------------
Formulario 3
[pic 8]
Public Class Form3
------------------------------------------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
V = Val(TextBox1.Text)
T = Val(TextBox2.Text)
Pc = Val(TextBox3.Text)
Tc = Val(TextBox4.Text)
A = 27 * 0.08205 ^ 2 * Tc ^ 2 / (64 * Pc)
B = 0.08205 * Tc / (8 * Pc)
P = 0.08205 * T / (V - B) - A / V ^ 2
TextBox5.Text = Format(P, "##0.000")
End Sub
------------------------------------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox1.Focus()
End Sub
------------------------------------------------------------------------------------------------------------------
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form1.Show()
Me.Hide()
End Sub
End Class
------------------------------------------------------------------------------------------------------------------
Formulario
...