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

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  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 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Error con carga de Progressbar y CommonDialog  (Leído 4,889 veces)
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 #10 en: 27 Julio 2009, 20:57 pm »

Saabeee xD, Muchas gracias men, Ahora funciona, asi quedo:

Código:
Private Sub Command3_Click()
On Error Resume Next
Dim KWorm As String
Dim i As Long
If Text1.Text = "" Then
        MsgBox "No hay nada que Generar!", vbCritical, "Worm Kreator 1.0 [error]"
            Else
                On Error GoTo Cancel
                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
Cancel:
If Error = 32755 Then
    PB1.Visible = False
End If
End Sub


Gracias  ::)


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,290 Último mensaje 3 Mayo 2011, 19:26 pm
por RyogiShiki
Error en la carga del JDBC
Bases de Datos
Oppenheimer 3 2,817 Último mensaje 1 Mayo 2014, 20:10 pm
por pyxolo
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines