none
codage du " label " RRS feed

  • 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

    mardi 5 juin 2012 07:16

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
    mardi 5 juin 2012 13:25

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


    mardi 5 juin 2012 08:14
  • 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.

    mardi 5 juin 2012 08:48
  • 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


    mardi 5 juin 2012 09:05
  • 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
    mardi 5 juin 2012 13:25
  • 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    

    • Modifié Casybbl mercredi 6 juin 2012 04:02
    mercredi 6 juin 2012 04:01
  • 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
    mercredi 6 juin 2012 04:42
  • Oui le code marche pardon :p

    en tout cas sa n'est pas dans le code car j'ai effacer tout le code et toujours l'avertissement


    • Modifié Casybbl mercredi 6 juin 2012 05:05
    mercredi 6 juin 2012 05:05