ESCUELA EXE

ECUACIÓN DE PRIMER GRADO EN VISUAL BASIC 6.0 ECUACIÓN DE PRIMER GRADO EN VISUAL BASIC 6.0 Aplicación que resuelve una ecuación de primer grado: Código completo: Dim a, b, num As Double ---------------------------------------------- Private Sub cmdborrar_Click() txta.Text = "" txtnum.Text = "" txtb.Text = "" lblr1.Caption = "" lblr2.Caption = "" txta.SetFocus End Sub ---------------------------------------------- Private Sub cmdnegativo_Click() If (txta.Text = "") Or (txtb.Text = "") Or (txtnum.Text = "") Then MsgBox "Sin datos no hay cálculos", vbCritical, "Prohibido" txta.Text = 0 txtb.Text = 0 txtnum.Text = 0 End If If (txta.Text = 0) Or (txtb.Text = 0) Or (txtnum.Text = 0) Then MsgBox "Por favor ingrese un valor diferente de cero", vbCritical, "Prohibido" End If a = txta.Text b = txtb.Text num = txtnum.Text txta.Text = "...

  Aquí les presento dos ejemplos para poder realizar dos funciones de clic en un mismo botón: Ejemplo 01   Ejemplo 02 Observar bien la imagen   Muy bien estos son las dos maneras de poder realizar doble acción en los botones de Visual Basic, espero les sirva la información y no se olviden de compartir sus conocimientos.