Créer une appli en virtual basic
pokexpert -  
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

  • Votes
  • Date
  • Date décroissante
  2. Polux31
    Bonjour,

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

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

    ;o)
    2. achrefghanmi
      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
      2. pokexpert Auteur
        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