| Usuario |
cerrar formulario |
Desconocido
|
| Enviado - 7/10/2004 |
| |
| hola, estoy intentando hacer un botón que cierre un formulario. Pongo unload blocked pero no hace nada, de hecho se queda colgado el programa en esa linea, qué puedo hacer? |
| |
|
Desconocido
|
| Enviado - 7/10/2004 |
| |
| Proba haciendo un unload me o unload <nombre del formulario> |
| |
|
Desconocido
|
| Enviado - 7/10/2004 |
| |
| Gracias pero no funciona. Probé unload y se queda colgado en esa lína del programa. Lo mismo pasa con end. Incluso con hide o close me pasa que no reconoce las funciones y se queda colgado todo el procedimiento del botón... qué mas puedo probar??? |
| |
|
fmarredo
486 Mensaje(s)
|
| Enviado - 7/10/2004 |
| |
| Poné el código que estás usando para poder ver cuál es el problema. |
| |
|
nostromo
390 Mensaje(s)
|
| Enviado - 7/10/2004 |
| |
Hola;
Me sumo a la petición, debes dar el código del boton y los mensaje de error, que esto origina.
Tu programa realiza procesos o algo...
Nos vemos. |
| |
|
Desconocido
|
| Enviado - 8/10/2004 |
| |
Private Sub Cancel_Click()
If Add_.Visible = True Then
If vbOK = MsgBox("Do you want to save the data you are adding?", vbOKCancel) Then
Call Add__Click
Exit Sub
Else
unload me 'aqui es donde lo probe todo
End If
End If
Qué puedo hacer?? |
| |
|
nostromo
390 Mensaje(s)
|
| Enviado - 9/10/2004 |
| |
Hola;
La estructura es:
1- Mensaje de laerta si quieres guardar los datos
2- Según selección de Ok o Cancel, las acciones a realizar.
3- Salir de la aplicación
Ejemplo:
Private Sub Cancel_Click()
If Add_.Visible = True Then
MsgBox("Do you want to save the data you are adding?", vbOKCancel,"Saving Data")
If vbOK = True Then
Call Add__Click
Else
unload me
End If
End If
Puede quedar:
If vbCancel = True Then
unload me
End If
El alert lo dejas:
men = MsgBox("Do you want to save the data you are adding?", vbOKCancel,"Saving Data")
If men = vbOK Then
Call Add__Click
Else
unload me
End If
Otra cosa, cuando te pidamos insertar tú código, hazlo como lo tienes en el VB, porque. lo que colocaste se entiende poco. cuando se hace copiar y pegar el "unload me" queda como:
Unload Me
En los mensaje de alerta siempre debes validar los botones a clickear, vbOk = True, vbCancel = True, etc.
Ahora, lo lógico es hacer el procedimiento para preguntar el guardar en Exit del form, es decir, Salir. Por ejemplo:
Private Sub Form_Unload(Cancel As Integer)
(Aqui insertas para grabar, cancelar el salir, etc)
End Sub
Nos vemos. |
| |
|
|
|
