Inicio...

[CAR3S?]

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

[ignorantev1.1]

Código (vb) [Seleccionar] Expandir


sub form_load()
   if command="minimized" then me.visible=false
end sub


[CAR3S?]

pongo este codigo

Código (vb) [Seleccionar] Expandir

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

Código (vb) [Seleccionar] Expandir

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 

[Edu]

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.

[CAR3S?]

sisi mira lo que edite arriba

[Edu]

Proba poniendo al principio del form load

Código (vb) [Seleccionar] Expandir


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

[CAR3S?]

probe poniendo los 2 y sigue saliendo ese error :c

[ignorantev1.1]

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
    If Command = "HI" Then MsgBox "No hay errores!"
End Sub




A lo mejor tienes mal la configuracion en las propiedades del formulario, prueba creando un nuevo formulario y solo poniendo el codigo de prueba.

[Edu]

Pero eso es porq tendras otra cosa, otro codigo, pasa mas codigo y vemos.
A mi esto me anda clarito:

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()

If Command() = "dato" Then
MsgBox "PEGASTE"
End If

End Sub


Y lo puedo usar asi tamb:

Código (vb) [Seleccionar] Expandir


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

[CAR3S?]

si, es verdad, anda pero en el mio no xd

el codigo del form es

Código (vb) [Seleccionar] Expandir








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........