-- webtv show -- tv & radio francaises

Télécharger le projet
Commenter

Description

WebTV Show avec uniquement les principales WebTV et WebRadio francaises.

Source / Exemple : 


Private Sub Command_Click()
  annee = Format(Date, "yyyy")
  mois = Format(Date, "mm")
  jour = Format(Date, "dd")
  hier = jour - 1
  jourselect = Combo1.Text
  moisselect = Combo2.Text
  Me.Caption = Command.Caption
  WMPTV.Controls.stop
  
If Option1.Value = True Then
  If Hour(Time) < 14 Then
    WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & hier & mois
  End If
  If Hour(Time) > 13 Then
    If Hour(Time) < 21 Then
      WMPTV.URL = "http://s.tf1.fr/FluxJt/jt13d" & jour & mois
    End If
  End If
  If Hour(Time) > 20 Then
    WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & jour & mois
  End If
End If
If Option2.Value = True Then
  WMPTV.URL = "http://s.tf1.fr/FluxJt/jt13d" & jourselect & moisselect
End If
If Option3.Value = True Then
  WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & jourselect & moisselect
End If
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ByZoN)