Mostrar mensajes previos
Ordenar por
por potozilandia Paranóico
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!!
Última edición por potozilandia el 04 May 2010, 02:18, editado 1 vez en total.
Imagen
por KainRazor Se conecta desde un manicomio

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
Imagen
por DARK_J4V13R Se conecta desde un manicomio
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
¿Si usted muriera hoy esta seguro que iría al cielo?
http://www.antesdelfin.com/salvo.html

© Indetectables Team
por potozilandia Paranóico
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
Imagen
por DARK_J4V13R Se conecta desde un manicomio
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
¿Si usted muriera hoy esta seguro que iría al cielo?
http://www.antesdelfin.com/salvo.html

© Indetectables Team
por potozilandia Paranóico
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
Imagen
por DARK_J4V13R Se conecta desde un manicomio
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
¿Si usted muriera hoy esta seguro que iría al cielo?
http://www.antesdelfin.com/salvo.html

© Indetectables Team
por potozilandia Paranóico
Gracias amigos!!! por sus respuestas !!!

Tema Solucionado!!
Imagen
por p0is0n-123 Incurable
Cerrado,solucionado...

Salu2
Blog técnico dedicado a la seguridad informática y al estudio de nuevas vulnerabilidades.
Blog: http://www.seginformatica.net
Twitter: https://twitter.com/#!/p0is0nseginf
Temas similares
♥ Como estan amigos ? por RDGMax en Mensajes Entre Nosotros
###### Amigos ###### por RDGMax en Mensajes Entre Nosotros
Links sobre el tema
Variantes de tema
Cerrado

Volver a “VB/.NET”