Sv Community El Salvador

Soporte y Tecnología => Programación => VB => Topic started by: ernestoelunico on October 15, 2008, 12:14:53 am

Title: usando if vbokCancel=ok then vb6
Post by: ernestoelunico on October 15, 2008, 12:14:53 am

hola tengo el siguiente codigo el problema es que tengo que hacer un condicional es decir cuando elusuario apriente un boton le va a salir un msjbox con dos botones aceptar y cancelar pero si el usuario prieta aceptar se hace la instrucion que esta en un bloque if si apreta cancelar regresa a la ventana aqui les pongo el codigo
no me sirve porque no importa si apreto ok o cancel siempre ejecuta lo que hay en el if

Private Sub CmndBorrar_Click()
MsgBox "Esta a punto de borrar el usurio y registros para completar esta operacion aceptar", vbOKCancel
If vbOK = vbOK Then
   ruta1 = App.Path & "\Mi empresa\registros.mdb"
   ruta2 = App.Path & "\Mi empresa\val.dat"
   ruta3 = App.Path & "\Default User\val.dat"
   Kill ruta1
   Kill ruta2
   MsgBox "Los datos han sido borrados", vbInformation
   ruta4 = App.Path & "\Mi empresa\val.dat"
   FileCopy ruta3, ruta4
Unload Frmhome
Frmhome.Show
End If

End Sub

Title: Re: usando if vbokCancel=ok then vb6
Post by: vlad on October 15, 2008, 06:46:44 am

Esque esto: "If vbOK = vbOK Then" es como que hagas: "If 1 = 1 then", osea, siempre va a ser cierto.

Lo que pasa es que tenes que usar el msgbox como una función y no como un procedimiento.

Puedes ver este libro que cubre cuestiones básicas de VB6:
Aprenda Visual Basic 6 Como Si Estuviera En Primero.pdf (http://www.fileden.com/files/2008/2/7/1745221/Manuales/Aprenda%20Visual%20Basic%206%20Como%20Si%20Estuviera%20En%20Primero.pdf)

Ahi esta lo del msgbox en la pagina 87 (93 en el PDF).

Title: Re: usando if vbokCancel=ok then vb6
Post by: ernestoelunico on October 19, 2008, 08:46:24 am

ok ya esta resuelto muchas gracias