Visual Basic - Guardar

Buenas,

No consigo que al aparecer el SaveFileDialog1.ShowDialog() al hacer click en cancelar deje de guardar los datos. Es decir el botón cancelar y la "x" son el mismo que el aceptar.

He probado con esto pero no funciona:


Public Sub guardar()

SaveFileDialog1.ShowDialog()

If (Windows.Forms.DialogResult.OK) Then

...

end if

If (Windows.Forms.DialogResult.cancel) Then

...

end if

end sub

.

Es decir que no consigo saber cuando se pulsa la tecla aceptar y cancelar.

También he probado con esto:

Public Sub guardar()

SaveFileDialog1.ShowDialog()

If (SaveFileDialog1.ShowDialog=Windows.Forms.DialogResult.OK) Then

...

end if

If (SaveFileDialog1.ShowDialog=Windows.Forms.DialogResult.cancel) Then

...

end if

end sub

El caso es que hace lo que quiero pero después de abrirme el cuadro de diálogo hasta 3 veces despúes de cada vez que hago click o en cancelar o en aceptar.

He probado con DialogResult pero no me lo acaba de admitir.

EL PROBLEMA ES QUE NO CONSIGO QUE AL HACER CLICK EN CANCELAR DEJE DE HACER LO MISMO QUE CON ACEPTAR.

Ayuda por favor

Gracias

Antes de mandar llamar el diálogo, a su propiedad FileName bórrale cualquier valor (Dialogo.Filename = "") luego de que se ejecute, si FileName es diferente a "" es por que le has dado 'Aceptar' y dado que este botón sólo se habilita con un nombre de archivo válido, entonces sabrás que trajo algo.

Espero que te sirva.

Saludos.

Lo he hecho según decías y lo he conseguido solucionar, aunque para saber si se había pulsado aceptar en vez decirle que

Dialogo.Filename = ""

if Dialogo.Filename<> "" then (cuando se pulsa aceptar)

y

Else (cuando se pulsa cancelar)

he tenido que ponerlo al revés porque me lo hace al revés:

Dialogo.Filename = ""

if Dialogo.Filename ="" then (cuando se pulsa cancelar)

y

Else (cuando se pulsa aceptar)

Además, como yo tenía asignado un nombre de Filename he querido conservarlo y en vez de "" es escrito el nombre "nombre" y me sigue ocurriendo lo contrario a lo que se supone que sebería ocurrir.

Dialogo.Filename = "nombre"

if Dialogo.Filename ="nombre" then (cuando se pulsa cancelar)

y

Else (cuando se pulsa aceptar)

De todas maneras lo he solucionado cambiando de lugar el evento guardar y así funciona.

Muchas gracias.

Gracias, lo he hecho según decías y me ha servido para resolver otros problemas con el diálogo imprimir.

Mucgas gracias.