Autor |
Mensaje (Ver Versión para Imprimir)
|
Mensajes:
Registrad@: 29/07/2008
Estado: Desconectad@ |
como puedo hacer esto no lo e logrado hacer :s
wenas
tengo una duda, no e logrado hacer estp
lo primero es que tengo un richtexbox en un x aplicacion , y lo que quiero es que cuando la persona le de click en el boton cerrar (el de a lado de maximisar y restaurar) y hay algun texto escrito en el richtextbox muestre una ventana que pregunte ke si desea salir sin guardar el texto, si // no
y cuando no halla nada escrito en el richtextbox y precione el boton, no apareca el mensaje anterior
lo e intentado hacer, pero me sale el mensaje aun cuando no tengo nada escrito, este es el codigo que utilizo
CITA |
Private Sub Form_unload(Cancel As Integer)
If RichTextBox1.Container.Count > 1 Then
If MsgBox(" ¿ Salir sin guardar el texto ?", vbQuestion + vbYesNo) = vbYes Then
Set Form1 = Nothing
Else
Cancel = True
End If
End If
End Sub
|
de verdad
no encuentro niguna info que me ayude con esto, mi ultimo recurso es preguntar
se lo agradesco de antemano el que me pueda ayudar
slau2
|
10/08/2009 06:09:39 | |
Mensajes:
Registrad@: 23/10/2006
Estado: Desconectad@ |
RE: como puedo hacer esto no lo e logrado hacer :s
Bueno debes hacer un condicional antes de hacer la confirmacion, como ya lo tienes hecho, pero que use otro parametro que no sea container.count.. a menos que ese sea el unico debes hacer
Alltrim(richtextbox...)
que elimina los espacios
saludos
|
10/08/2009 21:33:13 | |
Mensajes:
Registrad@: 29/07/2008
Estado: Desconectad@ |
RE: como puedo hacer esto no lo e logrado hacer :s
oks muchas gracias men ya lo logre solucionar
lo hize tambien, de que si le da en si, le abra la ventana para guardar el texto
asi:
CITA |
Public flagGuardar As Boolean ' propiedad del boton cerrar
----------------------------------------------------------------------
Private Sub Form_Unload(cancel As Integer)
On Error GoTo errSub
Dim ret As Integer
If flagGuardar Then
ret = MsgBox("¿ Seguro que deseas salir sin guardar el texto ?", vbQuestion + vbYesNo, App.Title)
End If
Select Case ret
Case vbNo:
If ret = vbNo Then
RichTextBox1.Text = ""
'guardamos el archivo
Command10_Click ' <--- donde esta el show save
End If
Exit Sub
End Select
Set FrmDoc = Nothing
Exit Sub
errSub:
Select Case Err.Number
Case 75
Resume Next
End Select
End Sub
-------------------------------------------------------------------
Private Sub RichTextBox1_Change()
flagGuardar = True ' porpiedad del boton cerral e
End Sub
----------------------------------------------------------------------
Private Sub RichTextBox1_GotFocus()
Set FrmFocus = Me 'propiedad del boton cerrar
End Sub
|
espero que les sirva de ayuda para algunos |
11/08/2009 03:55:30 | |