Página 1 de 1

Amigos, como puedo hacer esto? [VB] [Solucionado!]

Publicado: 04 May 2010, 00:02
por potozilandia
Hola amigos de Indetectables.Net , tengo unas preguntillas un poko tontas pero les pido su ayuda xfa.. Como puedo modificar el titulo deL msgbox...a mi me sale "Proyecto1", si me puedieran ayudar plis...es una pregunta tonta pero no lo se hacer... ..y otra preguntita..jejejeje.por ejemplo cuando yo hago click en "encriptar" la barrita (progressbar) me carga altiro y despues me pregunta donde guardar el archivo...tonces como puedo hacerlo al reves??? ke primero salga para guardar y despues carge la barra??... si me pudieran ayudar plis!!!!

y la ultima pregunta...como puedo hacer que mi programa aparezca en la barra de windows...como cualkier programa..por ejemplo cuando se minimiza??

Ustedes son los grandes yo soy novato en esto de vb6...jejejeje...

Saludos desde Chile!!

Re: Amigos, como puedo hacer esto? [VB]

Publicado: 04 May 2010, 00:08
por KainRazor

Código: Seleccionar todo

Option Explicit

Private Sub Form_Load()
    MsgBox "Este es el contenido", vbOKOnly, "Este es el titulo"
End Sub

'Para la ProgressBar necesitás poner el código
'ProgressBar.Value = X
'Por debajo del CommonDialog

'Un saludo

Re: Amigos, como puedo hacer esto? [VB]

Publicado: 04 May 2010, 00:19
por DARK_J4V13R
Bro si estas haciendo un crypter mejor déjalo y aprende más sobre VB ya que sino sabes como usar la función msgbox() no vas a poder con el crypter. Es un consejo para que te ahorres dolores de cabeza ;)

Saludos

Re: Amigos, como puedo hacer esto? [VB]

Publicado: 04 May 2010, 00:19
por potozilandia
KainRazor escribió:

Código: Seleccionar todo

Option Explicit

Private Sub Form_Load()
    MsgBox "Este es el contenido", vbOKOnly, "Este es el titulo"
End Sub

'Para la ProgressBar necesitás poner el código
'ProgressBar.Value = X
'Por debajo del CommonDialog

'Un saludo
amigo que rapido eres!!!! muchaas gracias!!!! ...aki va el codigo del progressbar..

Private Sub encryptar_Click()
Dim x As Long



For x = XP_ProgressBar1.Min To XP_ProgressBar1.Max


Label1 = x


DoEvents

XP_ProgressBar1.value = x

Next x

--------------------------------------------------------------------------------------------
Private Sub Form_Load()
With XP_ProgressBar1

.Max = 5000
.Min = 0
.value = 0

End With

espero tu respuesta amigo ...y como lo hago para que mi programa aparesca en la barra de windows??..como los demas programas??...

Saludos

Re: Amigos, como puedo hacer esto? [VB]

Publicado: 04 May 2010, 00:23
por DARK_J4V13R
potozilandia escribió:y como lo hago para que mi programa aparesca en la barra de windows??..como los demas programas??...
Lo de que no te aparezca en la barra puede ser un error de configuración del Formulario... Fíjate que tipo de borde colocaste en la opción BorderStyle del formulario.

Saludos

Re: Amigos, como puedo hacer esto? [VB]

Publicado: 04 May 2010, 00:37
por potozilandia
gracias amigos por sus respuestas!!!!!!

pero lo que no entendi fue que como hacer que el progressbar avance despues de que haya sellecionado el lugar donde guardar....me podrian explikar xfa!!!!

Disculpen que sea tan pregunton...

Saludos

Re: Amigos, como puedo hacer esto? [VB]

Publicado: 04 May 2010, 01:10
por DARK_J4V13R
potozilandia escribió:gracias amigos por sus respuestas!!!!!!

pero lo que no entendi fue que como hacer que el progressbar avance despues de que haya sellecionado el lugar donde guardar....me podrian explikar xfa!!!!

Disculpen que sea tan pregunton...

Saludos
Te refieres a que como valla encryptando la Progressbar valla aumentando? Entonces sería así:

Código: Seleccionar todo


Option Explicit

Private Sub Command1_Click()

    With CommonDialog1
    
        .DialogTitle = "Titulo"
        .Filter = "Archivos .exe"
        .ShowOpen
        
        If .FileName <> vbNullString Then
        
            ' ProgressBar1.value = 10
            
            ' Code
            
            ' ProgressBar1.value = 20
            
            ' Code
            
            ' ProgressBar1.value = 30
            
            ' ...
        
        End If
        
    End With
        
End Sub

Es algo cutre pero bueno...

Saludos

Re: Amigos, como puedo hacer esto? [VB]

Publicado: 04 May 2010, 02:18
por potozilandia
Gracias amigos!!! por sus respuestas !!!

Tema Solucionado!!

Re: Amigos, como puedo hacer esto? [VB] [Solucionado!]

Publicado: 04 May 2010, 13:25
por p0is0n-123
Cerrado,solucionado...

Salu2