Visual Basic - MSGBOX VBYESNO

Life is soft - evento anual de software empresarial
 
Vista:

MSGBOX VBYESNO

Publicado por LINA (18 intervenciones) el 26/01/2006 15:22:39
HOLA! estoy haciendo un proyecto y necesito preguntar antes de eliminar un registro si realmente se desea o no eliminar.
coloco mi msgbox asi
msgbox"esta seguro de eliminar el registro?",vbyesno

pero no se como validar cuando le digan yes o No que codigo debo hacer?
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:MSGBOX VBYESNO

Publicado por Jorge (231 intervenciones) el 26/01/2006 15:30:52
1
2
3
4
5
6
7
mv=msgbox"esta seguro de eliminar el registro?",vbyesno
Select Case Mv
    Case  6 'Yes
 
    Case 7 'No
 
End select
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

RE:MSGBOX VBYESNO

Publicado por Rafael Seco (17 intervenciones) el 26/01/2006 15:57:59
Coloica la pregunta de la siguiente manera

1
2
3
4
5
6
7
8
9
10
11
12
13
14
mensaje=(msgbox("En realidad desea eliminar el registro"), vbquestion+vbyesno,("Eliminar Registros"))
if mensaje=vbyes yhen
'Aqui eliminas tu registro
else
'cancelas
end if
Te aclaro: el vb question es para que te salga el icono de interrogacion y la ventana se vea mas llamativa y el "Eliminar registros" al final es para Darle un titulo a la ventana.
 
tambien lo puedes validar con:
if vbyes=1 then
'Aqui eliminas tu registro
else
'cancelas
end if

Ahi tienes dos formas colega, espero te sirvan.
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

RE:MSGBOX VBYESNO

Publicado por Nilso Viani (1 intervención) el 03/10/2015 06:03:29
Imaginemos este caso:

Tenemos un registro de un perfil para la cuenta de un servicio online y queremos colocar un "boton de cerrar el registro" y que
cuando se presione aparezca un mensaje de si esta seguro "si" o "no", por lo tanto se puede asignar una instruccion para cada boton
es decir que la accion de pulsar "si" ejecute algo y que al presionar "no" tambien se ejecute algo, bueno para no hacer mas largo el cuento
veamos este codigo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Cancelar_Registro_Click()
 
Dim msgvalue As Integer
 
msgvalue = MsgBox("Está seguro de cancelar el registro?", vbInformation + vbYesNo, "Mensaje de Alerta")
 
Select Case msgvalue
 
Case 6 'Yes
 
     ' AQUI VA EL Grupo de instrucciones que se va a ejecutar al presionar la opción SI
 
Case 7 'No
 
    ' AQUI VA EL Grupo de instrucciones que se va a ejecutar al presionar la opción NO
 
End Select
 
End Sub

De esta manera en el evento click o al presionar "Cancelar_Registro" que en este caso es un boton creado se
mostrará la pregunta y las dos opciones "SI" y "NO"
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

RE:MSGBOX VBYESNO

Publicado por gracias (1 intervención) el 31/03/2017 06:37:02
TE AMO GRACIAS.
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
sin imagen de perfil
Val: 3
Ha disminuido su posición en 36 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:MSGBOX VBYESNO

Publicado por Javier (1 intervención) el 12/03/2020 21:03:15
TE AMO x2 Gracias
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

RE:MSGBOX VBYESNO

Publicado por Ariel (1 intervención) el 23/02/2006 23:31:09
Ejemplo

Dim Respuesta As Integer

Respuesta = MsgBox("Se ha llegado al final de la Grilla, Desea buscar desde el inicio de esta?", vbQuestion + vbOKCancel)
If Respuesta = 1 Then '-- 2=Cancelar;1 = Aceptar
'---- Acciones
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