Visual Basic - Boton Cancel de Inputbox

Life is soft - evento anual de software empresarial
 
Vista:

Boton Cancel de Inputbox

Publicado por Julio (198 intervenciones) el 19/03/2003 01:35:49
Como puedo hacer para ejecutar un codigo cuando el usuario teclea el boton cancel del inputbox ?

De antemano mil gracias...
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

RE:Boton Cancel de Inputbox

Publicado por Efren (185 intervenciones) el 20/03/2003 09:04:18
checate esto:
1
2
3
4
5
6
resp = MsgBox("¿Estas seguro que deseas dar de baja este registro?", vbOKCancel, "Confirmacion")
     If resp = 1 Then
        ejecuta el codigo
    else
       otro codigo o validacion ---->
  end if
esta es la manera mas facil que veo para poder ejecutar un codigo dependiendo el boton pulsado..
ahi tienes un ejemplo....
Valores devueltos
Constante Valor Descripción
VbOk 1 Aceptar
VbCancel 2 Cancelar
VbAbort 3 Anular
VbRetry 4 Reintentar
VbIgnore 5 Ignorar
VbYes 6 Sí
VbNo 7 No
Nota: Si desea omitir algún argumento, debe incluir el delimitador de coma correspondiente o utilizar
argumentos con nombre.
Ejemplos
StrMsg = "¿Desea continuar?"
Estilo = vbYesNo + vbExclamation + vbDefaultButton2
StrTitulo = "Responda"
Rpta = MsgBox(strMsg, Estilo, StrTitulo )
If Rpta= vbYes Then
-----------
-----------
Else
-----------
-----------
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Boton Cancel de Inputbox

Publicado por J2ML (464 intervenciones) el 20/03/2003 12:52:37
Lo que te respondió Efren es 100% correcto pero en realidad es aplicable al MsgBox solamente y no al InputBox. Además eso es exactamente para mí una de las cosas que no son previsibles en VB6,
mira este ejemplo (es un código que esta en el evento click de un CommandButton):
1
2
3
4
5
6
7
8
9
10
Dim Var1 As String
Var1 = "Valor1"
Var1 = InputBox("Introdusca dato", "Entrada de Dato", Var1)
If Var1 <> Empty Then
    'El usuario pulsó aceptar y la variable tiene un valor....
    MsgBox "Aceptar", vbInformation, "Pulsó aceptar"
Else
    'El usuario pulsó cancelar y la variable está vacía...
    MsgBox "Cancelar", vbInformation, "Pulsó cancelar"
End If
El funciona relativamente bien (porque cada vez que pulses cancelar en var1 se coloca un vacío 'empty') pero tiene la siguiente limitante cuando el usuario vacia la casilla de entrada del input box aunque pulse el botón aceptar la rutina cree que pulsó el botón cancelar.... Aún así espero te sirva....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Boton Cancel de Inputbox

Publicado por Jose May May (1 intervención) el 17/06/2014 23:21:30
buen código. me sirvio mucho
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar