elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Error con carga de Progressbar y CommonDialog
0 Usuarios y 2 Visitantes están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Error con carga de Progressbar y CommonDialog  (Leído 5,262 veces)
Enemy

Desconectado Desconectado

Mensajes: 285


Que vuelva el personal de hace 15 años al foro!


Ver Perfil
Error con carga de Progressbar y CommonDialog
« en: 26 Julio 2009, 04:23 am »

Bueno, mi problema es el siguiente. No logro hacer que al querer cancelar el guardado de un archivo, o sea, cuando doy en cancelar en vez de guardarlo, se quite la barra de carga, porque cuando guardo el archivo, esta bien, doy en guardar y carga la barra y dice generado con exito etc. pero a la hora de cancelar, en vez de que se cierre la ventana y continuar con lo de antes, esta carga se carga igual y el mensaje tambien sale y es un embole. Alguien me da un pie para corregir? Aqui les dejo el code, haber en que estoy equivocado:

Código:
If Text1.Text = "" Then
        MsgBox "No hay nada que Generar!", vbCritical, "Worm Kreator 1.0 [error]"
    Else
        CD1.FileName = "Worm.vbs"
        CD1.Filter = "Archivos vbs |*.vbs"
        CD1.ShowSave
        Open CD1.FileName For Output As #1
        Print #1, Text1.Text + vbCrLf
        Close #1
        PB1.Visible = True
        For i = PB1.Min To PB1.Max
            PB1.Value = i
        Next i
        MsgBox "Worm Generado con Exito", vbInformation, "Worm Kreator 1.0 [Done]"
        PB1.Visible = False
End If

PB1: ProgressBar
CD1: CommonDialog

Gracias de antemano..





SALUD.O.S


En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Error con carga de Progressbar y CommonDialog
« Respuesta #1 en: 26 Julio 2009, 04:40 am »

Código
  1. DIM STRSAVEFILE AS STRING
  2. If Text1.Text = "" Then
  3.        MsgBox "No hay nada que Generar!", vbCritical, "Worm Kreator 1.0 [error]"
  4.    Else
  5.        CD1.FileName = "Worm.vbs"
  6.        CD1.Filter = "Archivos vbs |*.vbs"
  7.        CD1.ShowSave
  8. `-----------
  9. STRSAVEFILE=CD1.FileName
  10. IF STRSAVEFILE<>"" THEN
  11. '------------
  12.        Open STRSAVEFILE For Output As #1
  13.        Print #1, Text1.Text + vbCrLf
  14.        Close #1
  15.        PB1.Visible = True
  16.        For i = PB1.Min To PB1.Max
  17.            PB1.Value = i
  18.        Next i
  19.        MsgBox "Worm Generado con Exito", vbInformation, "Worm Kreator 1.0 [Done]"
  20. '----------
  21. ELSE
  22.        PB1.Visible = False
  23. 'SENTENCIAS DE CANCELACIÒN
  24. END IF
  25. '----------
  26. End If

Nos vemos.

Dulces Lunas


« Última modificación: 26 Julio 2009, 05:26 am por BlackZeroX » En línea

The Dark Shadow is my passion.
Enemy

Desconectado Desconectado

Mensajes: 285


Que vuelva el personal de hace 15 años al foro!


Ver Perfil
Re: Error con carga de Progressbar y CommonDialog
« Respuesta #2 en: 26 Julio 2009, 04:57 am »

Es similar a este pedazo de codigo:

Código:
Private Sub Command1_Click()

Dim KWorm As String

On Error Resume Next

CD1.Filter = "Archivos vbs |*.vbs"
CD1.FileName = ""
CD1.ShowOpen
If CD1.FileName = "" Then Exit Sub
Open CD1.FileName For Input As #1
Do Until EOF(1)
KWorm = Input(1, #1)
Text1.SelText = Text1.SelText + Text1.SelText & KWorm
Loop
Close #1

End Sub

Pero con ese abro el archivo.

Pero sigue apareciendo la barra aun asi cuando presiono "CANCELAR". Lo que tengo que lograr es que aparezca la barra cuando quiero guardarlo pero que NO aparezco cuando presiono sobre cancelar.
En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Error con carga de Progressbar y CommonDialog
« Respuesta #3 en: 26 Julio 2009, 05:25 am »

SITUA PB1.Visible = False AL INICIO
En línea

The Dark Shadow is my passion.
Enemy

Desconectado Desconectado

Mensajes: 285


Que vuelva el personal de hace 15 años al foro!


Ver Perfil
Re: Error con carga de Progressbar y CommonDialog
« Respuesta #4 en: 26 Julio 2009, 05:29 am »

Lo esta en el "Form_Load"

Solo se vuelve visible cuando presiono el boton generar.
En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Error con carga de Progressbar y CommonDialog
« Respuesta #5 en: 26 Julio 2009, 05:38 am »

Código
  1. DIM STRSAVEFILE AS STRING
  2. If Text1.Text = "" Then
  3.        MsgBox "No hay nada que Generar!", vbCritical, "Worm Kreator 1.0 [error]"
  4.    Else
  5.        CD1.FileName = "Worm.vbs"
  6.        CD1.Filter = "Archivos vbs |*.vbs"
  7.        CD1.ShowSave
  8. `-----------
  9. STRSAVEFILE=CD1.FileName
  10. IF STRSAVEFILE<>"" THEN
  11. '------------
  12.        Open STRSAVEFILE For Output As #1
  13.        Print #1, Text1.Text + vbCrLf
  14.        Close #1
  15.        PB1.Visible = True
  16.        For i = PB1.Min To PB1.Max
  17.            PB1.Value = i
  18.        Next i
  19.        MsgBox "Worm Generado con Exito", vbInformation, "Worm Kreator 1.0 [Done]"
  20. '----------
  21. ELSE
  22.        PB1.Visible = False
  23. 'SENTENCIAS DE CANCELACIÒN
  24. END IF
  25. '----------
  26. End If

Nos vemos.

Dulces Lunas

no entiendo como esta indentado ese codigo...pero esta bien si .Filename devuelve vacio es porque apreto cancelar...

mira lo facil que es el solucionar el problema...pone un punto de interrupcion y seguilo y fijate por donde entra el codigo y vas a saber porque esta fallando...

saludos.
En línea

Enemy

Desconectado Desconectado

Mensajes: 285


Que vuelva el personal de hace 15 años al foro!


Ver Perfil
Re: Error con carga de Progressbar y CommonDialog
« Respuesta #6 en: 26 Julio 2009, 06:06 am »

Si doy en "cancelar" tambien se genera el archivo.

Sigo sin comprender  :-\
En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Error con carga de Progressbar y CommonDialog
« Respuesta #7 en: 26 Julio 2009, 06:12 am »

mira lo facil que es el solucionar el problema...pone un punto de interrupcion y seguilo y fijate por donde entra el codigo y vas a saber porque esta fallando...

O puede hacer ya un diagrama de flujo ¬¬"... aun que esto ya seria muy.¡!

Dulces lunas.¡!
En línea

The Dark Shadow is my passion.
Enemy

Desconectado Desconectado

Mensajes: 285


Que vuelva el personal de hace 15 años al foro!


Ver Perfil
Re: Error con carga de Progressbar y CommonDialog
« Respuesta #8 en: 26 Julio 2009, 19:17 pm »

Ese codigo es correcto pero le falta mas todavia.

Que puedo hacer? que sugieren?
En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Error con carga de Progressbar y CommonDialog
« Respuesta #9 en: 27 Julio 2009, 01:36 am »

lo que vos tenes que hacer es poner la propiedad del commondialog CancelError = True , eso te va  a tirar un error cuando apretes el boton de cancelar, y lo unico que tenes que hacer es capturar ese error...el numero del error es el 32755...haces un On Error Go to y en la etiqueta pones que si el error = 32755 pues que no muestre la barra...

saludos.
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[ERROR]Carga de MP3 en SDL_mixer
Programación C/C++
RyogiShiki 0 2,459 Último mensaje 3 Mayo 2011, 19:26 pm
por RyogiShiki
Error en la carga del JDBC
Bases de Datos
Oppenheimer 3 3,040 Último mensaje 1 Mayo 2014, 20:10 pm
por pyxolo
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines