Donnez votre avis

Comment crée un visionneur youtube 'intermédiaire'

Posez votre question

Prérequis :

  • AxShockwaveFlash
  • 2 textbox
  • 1 button

Obtention de l'AxShockwaveFlash :


Pour obtenir un "AxShockwaveFlash", vous allez :
  • ouvrir la Boite a Outil,
  • faire un clic droit sur " Composant ",
  • Choisir élément,
  • cliquer sur "composant COM"
  • chercher et cocher : "Shockwave Flash Object".

Exemple de présentation :


La textbox1 sera utilisée pour le lien Youtube.

Le textbox2 sera pour choisir le temps de départ de la vidéo : Ecrire "0" dans celui-ci.

Le bouton pour " Envoyer "

Le AxShockwaveFlash1 pour voir la vidéo.

Une image est disponible pour voir un exemple de placement de ces contrôles :


Code source:


Veuillez mettre cette source sur le Button " Envoyer "

If TextBox1.Text.Contains("watch?v=") Then

    TextBox1.Text = TextBox1.Text.Replace("watch?v=", "v/")

    AxShockwaveFlash1.Movie = TextBox1.Text & "&autoplay=1" & "&start=" & TextBox2.Text

Else

    AxShockwaveFlash1.Movie = TextBox1.Text & "&autoplay=1" & "&start=" & TextBox2.Text

End If
Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme