Hola, Hace unos dias cambie la presentacion de frmpres x un video y le puse un boton de saltar x k el esc no andaba y cuando me meto al server se ve todo negro . en frmpres deje esto:

Option Explicit
Dim puedo As Boolean

Private Sub Command1_Click()
frmConnect.Show
Unload frmPres
Unload WindowsMediaPlayer1
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then If puedo Then finpres = True
End Sub

Private Sub Form_Load()
Me.Width = 800 * Screen.TwipsPerPixelX
Me.Height = 600 * Screen.TwipsPerPixelY
puedo = False
End Sub

Private Sub Timer1_Timer()
Static ticks As Long

ticks = ticks + 1

If ticks = 1 Then
Me.Picture = LoadPicture(App.Path & "\Graficos\alkonao2.jpg")
puedo = True
'ElseIf ticks = 2 Then
'Me.Picture = LoadPicture(App.Path & "\Graficos\datafull.jpg")
ElseIf ticks = 2 Then
Me.Picture = LoadPicture(App.Path & "\Graficos\newfinal.jpg")
Else
finpres = True
End If

End Sub

Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)

End Sub


si alguien es tan amable de decirm k hice mal o k tengo k hacer para k no ocurra mas le agradeceria k posteara en este tema la solucion.


1000 gracias x haber leido todo este choclo jaja

Seguro que no cambiaste nada mas? Cuando logeas se te ve todo negro? Por ahi hay algun problema en el Case "LOGGED", por ahi tocaste algo sin querer

Si queres dejame el Case "LOGGED". Cuando llego a mi casa (toy en el colegio en computación ahora) me fijo con mi Code y te digo que tenes mal. Por el momento, probá de pegar elfrmPres lo que hayas modificado de un server virgen y fijate si ahi te funca, trata de hacer el code again .

Saludos!

P.D. Por ahí la flashié pero no toy en mi casa y no tengo el código para ver y chequear .

Muchas gracias x interesarte. Logre resolver el problema
Mañana pongo instrucciones para poner video y musica (remplazando esos midis pedorros).


http://www.youtube.com/watch?v=AZ8eJvpn47s

Si talves es el Case "logged " Fijate la variable de eso