detener msgbox - VB-MUNDO

beñat · #1 (**permalink**) 13-09-2007, 10:47:45

hola amigos, soy nuevo en este de visual basic, asi que haber si me podeis echar una mano
mi problemilla es el siguiente
estoy haciendo el tipico programa para resolver una ecuacion de segundo grado y lo que queria controlar era si se metian los valores de a, b y c
mi idea era pone
while(a.text="" or b.text="" or c.text="")
msgbox("ERROR");
wend
pero claro si pongo eso se queda clavau cuando no meto los varoles en alguno de los valores, y queria saber si hay alguna forma de detener el msgbox o la manera de ponerlo de otra forma
gracias y un saludo

acalanto · #2 (**permalink**) 13-09-2007, 11:22:07

Lógico, el MsgBox está diseñado para que el usuario responda lo que desea ante una situación que requiere decisiones en un sentido u otro. Lo que puedes hacer es añadir un textbox en la parte inferior del formulario, o insertar un control statusBar, sobre el que emitas un mensaje de advertencia. Además puedes analizar cual de los tres valores debe introducir, y posicionar el foco sobre ese control.

P. Ejemplo

Código:

public function calcula()
    if trim(a.text)="" then 
        msg.Text "El parámetro (a) de la ecuación debe tener un valor numérico"
        a.setFocus
    elseif trim(b.text)="" then
        msg.Text "El parámetro (b) de la ecuación debe tener un valor numérico"
        b.setFocus
    elseif trim(c.text)="" then
        msg.Text "El parámetro (c) de la ecuación debe tener un valor numérico"
        c.setFocus
    else
        msg.Text=""
        if (val(b.text)^2-4*val(a.text)*val(c.text))<0 then 
                me.result1.text = "La ecuación no tiene solución numérica real"
                me.result2.text="........................"
        else
                me.result1.text = (-val(a.text)+sqr(val(b.text)^2-4*val(a.text)*val(c.text))) / 2*val(a.text)
                me.result2.text = (-val(a.text)-sqr(val(b.text)^2-4*val(a.text)*val(c.text))) / 2*val(a.text)
        end if 
    end if 
End Sub

Espero que te resulte útil.