por mas que hayas solucionado no hay porque borrar el mensaje, ni editar.
tambien podrias poner la solucion,o lo que sea, para eso son los foros
tambien podrias poner la solucion,o lo que sea, para eso son los foros
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Sub Timer1_Timer()
If player.Status = "Detenido" Then
player.Url = Text2.Text
player.Controls.Play
Timer1.Enabled = False
Timer2.Enabled = True
Else
End If
End Sub
Private Sub Timer2_Timer()
If player.Status = "Detenido" Then
player.Url = Text1.Text
player.Controls.Play
Timer1.Enabled = True
Timer2.Enabled = False
Else
End If
End Sub
Private Sub Command1_Click()
txt_comando.Text = "c:\data\XXXXXX.exe " & "-i " & (Text2.Text) & " -v"
shell (txt_comando.text)
End Sub
Cita de: XXX-ZERO-XXX en 20 Abril 2011, 20:02 PM
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
Private Sub Form_Load()
Me.Show
If Command = "dato" Then
MsgBox "PEGASTE"
Else
End If
Form1.Show
End Sub