Refresh picturebox et Webbrowser

Version imprimable

Voir 40 message(s) de cette discussion en une page

29/10/2009, 12h09
florian-radio

Refresh picturebox et Webbrowser

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,
29/10/2009, 13h44
Pol63

pose un timer sur ton form
29/10/2009, 13h52
florian-radio

Oui j'y ai pensé mais je ne sais pas comment la configurer après.
29/10/2009, 14h07
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

Merci de votre réponse. Voici mon code:

Code:

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?

29/10/2009, 14h16
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 ;)
29/10/2009, 14h22
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)
29/10/2009, 14h25
florian-radio

Ca marche toujours pas...
29/10/2009, 14h28
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 ?
29/10/2009, 14h30
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é.
29/10/2009, 14h37
Pol63

il faut que tu lui respécifie l'image à utiliser toutes les x secondes, pas lui dire une seule fois où elle est
29/10/2009, 14h38
florian-radio

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

Merci de votre aide
29/10/2009, 14h41
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
29/10/2009, 14h45
florian-radio

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

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:

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

29/10/2009, 19h23
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

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:

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) ;)

29/10/2009, 21h11
florian-radio

Pour l'afficher dans un label, quel syntaxe je dois utiliser?
29/10/2009, 21h15
benito9253

Code:

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...

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

Voila ce que j'ai mis:

Code:

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

Voir 40 message(s) de cette discussion en une page