ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
00:21:34 22/09/2019
¿No estas registrado?
Login: Clave:
20 Usuarios en línea: 0 registrados, 20 invitados.
Conéctate y verás los usuarios en línea
Tema: como puedo hacer esto no lo e logrado hacer :s
    Responder
Todos Los Foros -> Visual Basic -> Formularios -> como puedo hacer esto no lo e logrado hacer :s
Autor Mensaje (Ver Versión para Imprimir)
ambu
Aprendiz nivel 1
Arreglando las imágenes

Mensajes: 37
Registrad@:
29/07/2008
Estado: Desconectad@
Ver último Post
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 
Help_needer
Usuario Enfermo

Mensajes: 69
Registrad@:
23/10/2006
Estado: Desconectad@
Ir Arriba
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 
ambu
Aprendiz nivel 1
Arreglando las imágenes

Mensajes: 37
Registrad@:
29/07/2008
Estado: Desconectad@
Ir Arriba
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 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com