formularios en visual basic
DISEÑOS DE PANTALLA
CÓDIGO DEL MENÚ
Public Class Form1
Dim X
Private Sub MANTENIMIENTOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MANTENIMIENTOToolStripMenuItem.Click
Form2.Show()
End Sub
Private SubVENTASDEREPUESTOSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VENTASDEREPUESTOSToolStripMenuItem.Click
Form3.Show()
End Sub
Private Sub CONTADOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CONTADOToolStripMenuItem.Click
Form4.Show()
End Sub
Private SubCRÉDITOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CRÉDITOToolStripMenuItem.Click
Form5.Show()
End Sub
Private Sub SALIRDELSISTEMAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SALIRDELSISTEMAToolStripMenuItem.Click
X = MsgBox("Usted está cerrando el sistema")
End Sub
End Class
CÓDIGO DEL FORMULARIODE MANTENIMIENTO
Public Class Form2
Dim precio As Double
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("amortiguadores")
ComboBox1.Items.Add("frenos")
ComboBox1.Items.Add("filtros")
ComboBox1.Items.Add("neumáticos")
ComboBox1.Items.Add("escobillaslimpiaparabrisas")
ComboBox1.Items.Add("lubricantes")
ComboBox1.Items.Add("iluminación")
ComboBox1.Items.Add("sistema de escape y catalizadores")
ComboBox1.Items.Add("correas de distribución")
ComboBox1.Items.Add("cambio de batería")
ComboBox1.Items.Add("silenciador")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click
If ComboBox1.Text = "amortiguadores" Then
TextBox2.Text = "48.00"
precio = precio + 48.0
TextBox1.Text = precio
Else
If ComboBox1.Text = "silenciador" Then
TextBox2.Text = "26.00"
precio = precio + 26.0
TextBox1.Text = precioElse
If ComboBox1.Text = "frenos" Then
TextBox2.Text = "14.95"
precio = precio + 14.95
TextBox1.Text = precio
Else
If ComboBox1.Text = "filtros" Then
TextBox2.Text = "3.95"
precio = precio + 3.95TextBox1.Text = precio
Else
If ComboBox1.Text = "neumáticos" Then
TextBox2.Text = "58.00"
precio = precio + 58.0
TextBox1.Text = precio
Else
If ComboBox1.Text = "escobillas limpiaparabrisas" ThenTextBox2.Text = "5.99"
precio = precio + 5.99
TextBox1.Text = precio
Else
If ComboBox1.Text = "lubricantes" Then
TextBox2.Text = "14.95"
precio = precio + 14.95TextBox1.Text = precio
Else
If ComboBox1.Text = "iluminación" Then
TextBox2.Text = "4.95"
precio = precio + 4.95
TextBox1.Text = precio
Else...
Regístrate para leer el documento completo.