créer une appli en virtual basic

Question

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!

Configuration: Gros monstre core I7 portable ouais!! 
4go de ram 3go utilisable (win 32b) 
Ge-force GTS 250M

les pc sont comme les chiens:plus ils sont gros,moins ils vous obéissent... Elle est de moi celle la.

pokexpert · Answer

uuuup

Polux31 · Answer

Bonjour,

C'est une bonne idée que tu as. 

Mais où est le problème ? tu n'en exposes aucun !!!


;o)

jeanbi · Answer

bonjour
https://vb.developpez.com/faq/?page=Autres#jauge
a+

achrefghanmi · Answer

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

pokexpert · Answer

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

Créer une appli en virtual basic

5 réponses

Votre réponse

Newsletters