au lieu de lire ton texte au démarrage tu mets un Timer réglé par exemple à 1 minute.
Dans le code de ton timer tu fais une lecture du fichier (toutes les minutes donc) et tu pourras ainsi comparer si le nouveau message est différent de l'ancien tu dois l'afficher ou non.
Ex:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim wc As New WebClient Dim Dta As String = wc.DownloadString("https://dl.dropboxusercontent.com/u/23532778/rdx/news.txt") Label8.Text = Dta
sa ne fonctionne toujours pas chez moi :(
Pourquoi ça fonctionne chez moi alors ???
Il y a soit un problème de machine, soit un problème d'opérateur!
(a la première vue, J'aurais opté pour la deuxième proposition)
merci pour vos questions a très bientôt :D
Voila, j'ai créé un système de texte en ligne qui se transmet directement sur l'application mais pour faire apparaître le texte faut que cette personne quitte l'application et la relance a nouveau pour que il apparaît,
j'aimerai faire une simulation que l'application quitte ou faire une actualisation total de l'application pour que le texte que j'ai mis dans le texte ce fasse mettre directement sur le logiciel sans quitter le logiciel y'a t'il un code pour ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionTexteActuel= System.IO.File.ReadAllText ("c:\...)
j'ai essayé mais sa ne marche fonctionne pas
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim wc As New WebClient Dim Dta As String = wc.DownloadString("https://dl.dropboxusercontent.com/u/23532778/rdx/news.txt") Label8.Text = Dta
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim wc As New WebClient Dim Dta As String = wc.DownloadString("https://dl.dropboxusercontent.com/u/23532778/rdx/news.txt") Label8.Text = Dta
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer2.Start() end sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Interval = 30000 '.... '....
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Interval = 10000 WebBrowser1.Dock = DockStyle.None WebBrowser1.Navigate("https://dl.dropboxusercontent.com/u/23532778/rdx/news.txt")