Tema destacado:
 Autor
|
Tema: Inicio... (Leído 1,618 veces)
|
CAR3S?
 Desconectado
Mensajes: 331
Level xXx
|
Hola!
bueno hice un programa que no sirve para nada, la cosa es...
yo quiero que inicie con windows, pero el main.visible = false (y cuando se inicia manualmente, visible)
como es eso de los comandos de inicio?
s2
hablo de eso que por ejemplo en el registro aparece
c:\windows.exe /minimized
(Obviamente ese archivo no existe)
creo que se llama parametro xd
|
|
|
|
« Última modificación: 19 Abril 2011, 09:15 por nuKje »
|
En línea
|
|
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
pongo este codigo sub form_load()
if command="boot" then me.visible=false
end sub
y en el acceso directo ".....a.exe" /boot pero no hace el formulario invisible :S EDIT: ahora puse Private Sub Form_Load()
If Command() = "dato" Then
MsgBox "PEGASTE"
Else
End If
End Sub ".....a.exe" dato
parece q funciona pero da un error  p.d: la imagen tiene una figura oculta    |
|
|
|
« Última modificación: 19 Abril 2011, 22:30 por nuKje »
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Te lo puso mas o menos al vuelo, fijate a escribirlo letra por letra mirandolo, sin copie y pegue ya q creo q command es vbcommand, vs escribi todo en minuscula y si el vb6 te lo pasa a mayuscula es porq funciona.
|
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
sisi mira lo que edite arriba
|
|
|
|
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Proba poniendo al principio del form load Show o me.Show no me acuerdo bien. Aunque talvez no quieres hacer lo q saldra, es por eso de q el msgbox es modal entonces no puede salir otro no modal, eso dice el error, pero si pones show entonces saldra primero el form y enseguida el msgbox |
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
probe poniendo los 2 y sigue saliendo ese error :c
|
|
|
|
|
En línea
|
|
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Pero eso es porq tendras otra cosa, otro codigo, pasa mas codigo y vemos. A mi esto me anda clarito: Option Explicit
Private Sub Form_Load()
If Command() = "dato" Then
MsgBox "PEGASTE"
End If
End Sub
Y lo puedo usar asi tamb: Option Explicit
Private Sub Form_Load()
Text1.Text = Command()
End Sub
Lo del show te dije q lo pongas porq me parecio q podia ser eso pero no, como dije pasa mas codigo |
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
si, es verdad, anda pero en el mio no xd el codigo del form es
Private Sub Form_Load()
Me.Show
Timer1.Interval = 1
If Command = "dato" Then
MsgBox "PEGASTE"
Else
End If
End Sub
Private Sub Timer1_Timer()
Form1.Show
Timer1.Enabled = False
End Sub
edito: el error esta en el codigo del timer, ya que si lo saco, anda bien........ |
|
|
|
« Última modificación: 20 Abril 2011, 08:00 por nuKje »
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Claro, tenia q ver si con lo q decia hoy solo q al revez xD, sacale el "Form1.Show" que esta al pedo si desp del msgbox "PEGASTE" se va a mostrar.
Esque el msgbox es modal ( viste q si no lo aceptas o cancelas no te deja hacer otra cosa? bueno es eso) y entonces vs estas haciendo q inicie el form1 cuando esta el msgbox y eso te da error.
Edit: Ahora q me doy cuenta tenes q sacar todo el timmer entero si total esta de mas ahora xD
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.831
I'Love...!¡.
|
. Oja la te sirva de algo, no traigo el vb6 instalado.
Private Sub Form_Load()
select case command$
case "\hide","\main.hide"
hide
case "\show","\main.show"
show
end select
End Sub
Dulces Lunas!¡. - |
|
|
|
|
En línea
|
|
|
|
|
raul338
|
Para usar varias opciones puedes jugar con InStr por ej. Ahora estoy desde el movil. Sino te pondria un codigo
|
|
|
|
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Ya ya ya, ya vinieron los masters a molestar xD jaja. Eso no pide nuKje y ya lo soluciono creo, dejen ganar una! jaja
|
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
Claro, tenia q ver si con lo q decia hoy solo q al revez xD, sacale el "Form1.Show" que esta al pedo si desp del msgbox "PEGASTE" se va a mostrar.
Esque el msgbox es modal ( viste q si no lo aceptas o cancelas no te deja hacer otra cosa? bueno es eso) y entonces vs estas haciendo q inicie el form1 cuando esta el msgbox y eso te da error.
Edit: Ahora q me doy cuenta tenes q sacar todo el timmer entero si total esta de mas ahora xD
Nop, en el exe inicia el form 'tuto' , y el timer abre el form1 p.d: solucionado: Private Sub Form_Load()
Me.Show
If Command = "dato" Then
MsgBox "PEGASTE"
Else
End If
Form1.Show
End Sub
|
|
|
|
« Última modificación: 21 Abril 2011, 02:32 por nuKje »
|
En línea
|
|
|
|
|
 |
