Visual Basic - Consulta por salida de resultado

Life is soft - evento anual de software empresarial
   
Vista:

Consulta por salida de resultado

Publicado por Edgardo (1 intervención) el 04/10/2010 23:49:02
Hola, es la primera vez que escribo y lo hago aquí porque he visto que se ineteresan mucho por las consultas de los que estamos aprendiendo.

En esta ocasión necesitaria que me asesoren sobre lo siguiente, el código que pongo a continuación, en el botón cmdConvertir, debería mostrarme el resultado de las operaciones detalladas en el cuadro de texto txtResultado.Text, y no lo hace. No me doy cuenta por qué no lo hace. Además tampoco aparece la leyenda cuando el usuario no pulsó ninguno de los Radiobutton.

Gracias por la ayuda


Public Class Form1

Public metros As Double

Public result As Double

Private Sub txtMetros_KeyPress(ByVal sender As Object, _

ByVal e As System.Windows.Forms.KeyPressEventArgs) _

Handles txtMetros.KeyPress

If InStr(1, "0123456789" & Chr(8), e.KeyChar) = 0 Then

e.KeyChar = ""

End If

End Sub

Private Sub cmdConvertir_Click()

txtMetros.Text = metros

If optMilimetros.Checked = True Then

result = metros * 1000

txtResultado.Text = result

ElseIf optCentimetros.Checked = True Then

result = metros * 100

txtResultado.Text = result

ElseIf optDecimetros.Checked = True Then

result = metros * 10

txtResultado.Text = result

ElseIf optKilometros.Checked = True Then

result = metros * 0.001

txtResultado.Text = result

Else : MsgBox("Usted no ha seleccionado ninguna unidad")

End If

End Sub

Private Sub cmdNuevoCalculo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNuevoCalculo.Click

txtMetros.Clear()

txtResultado.Clear()

End Sub

Private Sub cmdSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSalir.Click

End

End Sub

End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder