Créer une appli en virtual basic
Fermé
pokexpert
Messages postés
669
Date d'inscription
dimanche 19 avril 2009
Statut
Membre
Dernière intervention
24 octobre 2014
-
Modifié par pokexpert le 11/04/2010 à 19:33
pokexpert Messages postés 669 Date d'inscription dimanche 19 avril 2009 Statut Membre Dernière intervention 24 octobre 2014 - 16 avril 2010 à 09:30
pokexpert Messages postés 669 Date d'inscription dimanche 19 avril 2009 Statut Membre Dernière intervention 24 octobre 2014 - 16 avril 2010 à 09:30
A voir également:
- Créer une appli en virtual basic
- Créer une adresse mail - Guide
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer une liste déroulante excel - Guide
- Créer un compte instagram - Guide
5 réponses
pokexpert
Messages postés
669
Date d'inscription
dimanche 19 avril 2009
Statut
Membre
Dernière intervention
24 octobre 2014
58
13 avril 2010 à 18:01
13 avril 2010 à 18:01
uuuup
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 196
13 avril 2010 à 18:05
13 avril 2010 à 18:05
Bonjour,
C'est une bonne idée que tu as.
Mais où est le problème ? tu n'en exposes aucun !!!
;o)
C'est une bonne idée que tu as.
Mais où est le problème ? tu n'en exposes aucun !!!
;o)
jeanbi
Messages postés
14755
Date d'inscription
samedi 9 décembre 2006
Statut
Contributeur
Dernière intervention
6 février 2023
2 388
13 avril 2010 à 18:08
13 avril 2010 à 18:08
achrefghanmi
Messages postés
7
Date d'inscription
vendredi 5 février 2010
Statut
Membre
Dernière intervention
22 avril 2010
15 avril 2010 à 14:35
15 avril 2010 à 14:35
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
pokexpert
Messages postés
669
Date d'inscription
dimanche 19 avril 2009
Statut
Membre
Dernière intervention
24 octobre 2014
58
16 avril 2010 à 09:30
16 avril 2010 à 09:30
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
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