Discussion :

[florian-radio]

Bonjour à tous !

Je suis en train de créer un player ma webradio Best-Hits en visual basic à l'aide de Visual Basic 2008.
Je recherche le moyen de rafraichir une picturebox et webbrowser automatiquement toutes les X secondes.

Merci de votre aide,

[Pol63]

pose un timer sur ton form

[florian-radio]

Oui j'y ai pensé mais je ne sais pas comment la configurer après.

[Pol63]

tu mets enabled à true
tu choisis l'interval en millisecondes
et tu doubles clic dessus pour arriver dans le code sur l'évènement qui se déclenche quand l'interval est atteind

[florian-radio]

Merci de votre réponse. Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Class Form1
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox1.Refresh()
    End Sub
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Timer1.Enabled = True
    End Sub
End Class

Est ce Correct?

[benito9253]

pour lancer le timer il faut faire Timer1.Start()...
Après le meilleur moyen de savoir si c'est correct c'est de tester

[Pol63]

.refresh sur un control ne sert pas à grand chose (donc sur un picturebox aussi)

si tu veux mettre une nouvelle image dedans, tu le fais et elle s'affiche instantanément (on a pas les inconvénients des techno web)

[florian-radio]

Ca marche toujours pas...

[Pol63]

le code que tu nous montre n'est censé rien faire, donc si ca ne fait rien c'est que ca marche !

que veux tu faire, qu'à tu coder pour ?

[florian-radio]

Bah je veux que la picturebox se rafraichisse automatiquement toutes les 2 secondes. En effet, son url de location renvoie à une page php qui génère une pochette en fonction du titre diffusé.

[Pol63]

il faut que tu lui respécifie l'image à utiliser toutes les x secondes, pas lui dire une seule fois où elle est

[florian-radio]

Oula je suis perdu. Vous pouvez me faire le code?

Merci de votre aide

[Pol63]

bah non, je sais pas où se trouve ton image
et puis si tu as réussi à mettre une fois l'image dans le picturebox tu sais comment faire pour la remettre

[florian-radio]

L'image se trouve ici: http://s4.zilac.com/best-hits.fr/pochette.php

[benito9253]

en fait (si je ne ma trompe pas) il faut que tu mette le code qui indique a la PictureBox quelle image il doit afficher, dans la procédure de l'événement Timer1.Tick

Ca donne quelque chose comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox1.ImageLocation = "http://s4.zilac.com/best-hits.fr/pochette.php"
    End Sub

[florian-radio]

Merci beaucoup, cela fonctionne.

Je voudrais faire de même poru afficher le titre en cours situé à cette adresse: http://best-hits.fr/titreencours.php

Dois je utiliser un label? textbox? webbrower?
Sachant que j'aimerais seulement faire apparaitre le titre sans fond.

Merci

[benito9253]

J'ai adapter un bout de code que j'ai trouver en C#.NET pour pouvoir lire le contenu d'une page en web :

En VB.NET ca donne ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Public Function lecturePageWeb() As String
        Dim monUri As Uri = New Uri("http://best-hits.fr/titreencours.php")
        Dim request As Net.WebRequest = Net.WebRequest.Create(monUri)
        Dim reponse As Net.WebResponse = request.GetResponse()
        Dim sr1 As IO.StreamReader
        Try
            sr1 = New IO.StreamReader(reponse.GetResponseStream())
            Return sr1.ReadToEnd()
            sr1.Close()
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function

Cette fonction te renvoi tout le contenu de la page (y compris les balises HTML...) donc à toi de ne garder ce que tu souhaite...

Ensuite a toi de voir comment tu veux l'afficher (dans ton cas je pense qu'un label suffirait)

[florian-radio]

Pour l'afficher dans un label, quel syntaxe je dois utiliser?

[benito9253]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

label.Text = "la chaine récupérée"

Mais avant cela il faut que tu fasse le tri dans la chaine que te renvoi la fonction que je t'ai montré, de manière à ne garder que le titre...

[florian-radio]

J'ai pas très bien compris...

Voila ce que j'ai mis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class Form1
    Public Function lecturePageWeb() As String
        Dim monUri As Uri = New Uri("http://best-hits.fr/titreencours.php")
        Dim request As Net.WebRequest = Net.WebRequest.Create(monUri)
        Dim reponse As Net.WebResponse = request.GetResponse()
        Dim sr1 As IO.StreamReader
        Try
            sr1 = New IO.StreamReader(reponse.GetResponseStream())
            Return sr1.ReadToEnd()
            sr1.Close()
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Label1.Text = lecturePageWeb()
    End Sub
End Class