Créer une appli en virtual basic

pokexpert Messages postés 755 Statut Membre -  
pokexpert Messages postés 755 Statut Membre -
bonjour,je voudrais créer une application virtual basic avec:
lorsqu'on clique sur un bouton,une barre de chargement s'anime et dure X secondes,et a la fin sa dit qqch dans une petite zone de texte non modifiable.
merci!



les pc sont comme les chiens:plus ils sont gros,moins ils vous obéissent... Elle est de moi celle la.

5 réponses

  1.
    pokexpert Messages postés 755 Statut Membre 57
     
    uuuup
    0
  2. Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    C'est une bonne idée que tu as.

    Mais où est le problème ? tu n'en exposes aucun !!!

    ;o)
    0
  4. achrefghanmi Messages postés 8 Statut Membre
     
    Option Explicit On
    Option Strict On
    Imports System
    Imports System.Diagnostics
    Imports System.ComponentModel
    public class nom_class
    Private temps As TimeSpan

    'Voila une fonction pour demarrer le comptage
    Private Sub nom_fct(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.temps = New TimeSpan(0, 0, 1)
    Me.DisplayTime()
    Me.TChrono.Start()
    End Sub

    'par la suite affichage
    Private Sub DisplayTime()
    Dim s As String = Me.temps.ToString
    s = Replace(s, ":", "H", 1, 1)
    s = Replace(s, ":", "min", 1, 1)
    s &= "s"
    Me.LChrono.Text = s
    End Sub

    Private Sub nom_button(ByVal sender As Object, ByVal e As EventArgs) Handles TChrono.Tick
    Me.temps = TimeSpan.op_Addition(Me.temps, New TimeSpan(0, 0, 1))
    Me.DisplayTime()
    End Sub

    'maintenant une barre de progression
    'ajouter a votre projet une ProgressBar et par la suite essauer ca:
    ProgressBar1.Minimum = 0
    ProgressBar1.Maximum = x ' x: taille maximale de votre bar soit disant 1000
    ProgressBar1.Value = 0
    ProgressBar1.Step = 1
    For x = 1 To taille
    ProgressBar1.PerformStep()
    If ProgressBar1.Value = ProgressBar1.Maximum Then
    Label1.Visible = True
    End If
    Next

    ' c'et touces que vous avez besoins .essayer bien ca
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. pokexpert Messages postés 755 Statut Membre 57
     
    aheuuu merci mais je suis paumé la...
    voici les fichiers vb, et mettez moi le code svp:http://www.cijoint.fr/cjlink.php?file=cj201004/cijla09tpL.zip je voudrais que la barre dure 50 secones et qu'une
    je voudrais que la barre dure 50 secondes et qu'uien.ne mini abrre de texte affiche un nombre de 5 chiffres et lettre aléatoire... merci bcp
    0