Meilleur auteur de réponses
codage du " label "

Question
-
Bonjour j'ai crée un luncher pour " minecraft " et je suis bloquer a un endroit ...
J'ai crée un label3 sans texte et je voudrais que le texte sois celui du lien dropbox suivant : https://www.dropbox.com/s/s86zc888ipojgm8/Upload.txt
Et que quand je modifie le texte du fichier " Upload.txt " que le texte du" label3 " de mon luncher minecraft change en fonction du texte qui est dans le lien ci-dessus SANS que la personne ai à faire un nouveau télécharger du luncher
Si ceci est possible veilliez me dire comment .
Casybbl
Réponses
-
Bonjour Casybbl,
En modifiant l'url pour télécharger le fichier via Network.DownLoadFile :
Imports System.IO Public Class Form1 Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown Dim sURL As String = "https://dl.dropbox.com/s/s86zc888ipojgm8/Upload.txt?dl=1" Dim fName As String = "C:\MonText.txt" Dim f As StreamReader Me.Label3.Text = "Veuillez patienter ..." Me.Label3.Invalidate() Me.Label3.Update() If File.Exists(fName) Then File.Delete(fName) End If Me.Cursor = Cursors.WaitCursor My.Computer.Network.DownloadFile(sURL, fName) f = New StreamReader(fName) Beep() Me.Label3.Text = f.ReadLine() f.Close() Me.Cursor = Cursors.Default End Sub End Class
Cordialement, Jacques
- Marqué comme réponse Casybbl mercredi 6 juin 2012 08:20
Toutes les réponses
-
Bonjour,
Est-ce ça ? Voici :
Option Explicit On Public Class Form1 Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim texteDuDropMachin As String = "https://www.dropbox.com/s/s86zc888ipojgm8/Upload.txt" Label3.Text = texteDuDropMachin ' ' et dans un fichier on écrit Dim p1 As New System.IO.StreamWriter(My.Application.Info.DirectoryPath & "\Upload.txt") p1.WriteLine(texteDuDropMachin) p1.Close() ' ' on lit Dim p2 As New System.IO.StreamReader(My.Application.Info.DirectoryPath & "\Upload.txt") texteDuDropMachin = p2.ReadLine() p2.Close() Label3.Text = texteDuDropMachin End Sub End Class
Cordialement.
Joseph Attila PUSZTAY
EhJoe Logiciels Romans Ecrire -
Option Explicit On Public Class Form1 Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim texteDuDropMachin As String = "https://www.dropbox.com/s/s86zc888ipojgm8/Upload.txt" Label3.Text = texteDuDropMachin
1)dans textedudropmachin quel drop machin ? dropbox ?!
' et dans un fichier on écrit Dim p1 As New System.IO.StreamWriter(My.Application.Info.DirectoryPath & "\Upload.txt") p1.WriteLine(texteDuDropMachin) p1.Close()
2) Quel fichier ?
Excuse moi je n'ai que 13 ans et je suis un débutant dans le codage.
-
Bonjour, suite,
Oui, dropMachin = dropBox, quant à la façon dont tu récupères l'adresses http, je ne sais pas, donc à la place j'ai mis une variable nommé texteDuDropMachin :o)
Il faut donc alimenter cette variable avec la méthode par laquelle tu récupères l'adresse http.
Cordialement.
Joseph Attila PUSZTAY
EhJoe Logiciels Romans Ecrire -
Bonjour Casybbl,
En modifiant l'url pour télécharger le fichier via Network.DownLoadFile :
Imports System.IO Public Class Form1 Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown Dim sURL As String = "https://dl.dropbox.com/s/s86zc888ipojgm8/Upload.txt?dl=1" Dim fName As String = "C:\MonText.txt" Dim f As StreamReader Me.Label3.Text = "Veuillez patienter ..." Me.Label3.Invalidate() Me.Label3.Update() If File.Exists(fName) Then File.Delete(fName) End If Me.Cursor = Cursors.WaitCursor My.Computer.Network.DownloadFile(sURL, fName) f = New StreamReader(fName) Beep() Me.Label3.Text = f.ReadLine() f.Close() Me.Cursor = Cursors.Default End Sub End Class
Cordialement, Jacques
- Marqué comme réponse Casybbl mercredi 6 juin 2012 08:20
-
-
Le 06/06/2012 06:01, Casybbl a écrit :> Toujours pas ...>> c'est même pire j'ai un avertissement qui m’empêche d'ouvrir mon luncher> voilà ' l"avertissement '>> Avertissement 1 '.ctor' n'est pas un identificateur valide.> 0 0>Je n'ai pas ce problème. La seule référence que je trouve concernant'ctor' est qu'il s'agit d'une dll ActiveX faisant partie d'InstallShield ???Peux tu préciser ce que tu fais ?nb : le code que j'ai posté hier fonctionne correctement chez moi ->VB.Net de Visual Studio 2010 Pro. Ce matin à 6:42 il affiche "Test n2"--Cordialement,Jacques.
Cordialement, Jacques -