Chronomètre sans timer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 146 fois - Téléchargée 17 fois

Contenu du snippet

un simple chronomètre sans utiliser de timer
à la place on utilise la classe System.Diagnostics.Stopwatch
dans ce petit bout de code je démontre aussi la création et l'utilisation de contrôles créés au moment de l'éxécution :
TextBox et Cursor
pour utiliser cette source créer un nouveau projet avec un simple bouton "Button1"

Source / Exemple :


Public Class Form1

    Dim textbox1 As New TextBox

    ''' <remarks>
    ''' 
    ''' 
    ''' Dim mystopwatch As New System.Diagnostics.Stopwatch
    ''' 
    ''' utilisation du code trouvé sur :
    ''' http://www.vbfrance.com/codes/NET2-MESURER-TEMPS-EXECUTION-METHODE_33782.aspx
    ''' 
    ''' 
    ''' </remarks>
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        textbox1 = Nothing
    End Sub

    Private Sub chrono()
        Dim mystopwatch As New System.Diagnostics.Stopwatch

        textbox1.Text = Now & vbCrLf
        mystopwatch.Start()
        MsgBox("OK to stop?", MsgBoxStyle.Information + MsgBoxStyle.SystemModal)
        textbox1.AppendText(mystopwatch.Elapsed.Days & " J-" & mystopwatch.Elapsed.Hours & " H-" & mystopwatch.Elapsed.Minutes & " M-" & mystopwatch.Elapsed.Seconds & " s-" & mystopwatch.Elapsed.Milliseconds & " m")
        mystopwatch = Nothing
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        With Me
            .Text = Application.ProductName
            .Cursor = New Cursor(Application.StartupPath & "\finger.ico")
            .DesktopBounds = Rectangle.FromLTRB(10, 10, 200, 200)
            .FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow
            .TopMost = False
        End With
        With textbox1
            .Parent = Me
            .Multiline = True
            .Height = (Me.Height - Me.Button1.Height) - 25
            .Width = Me.Width - 8
            .ScrollBars = ScrollBars.Both
            .WordWrap = False
            .UseWaitCursor = False
            .TabStop = True
            .Cursor = New Cursor(Application.StartupPath & "\pink256.ico")
            .Visible = True
        End With
        With Button1
            .Height = 20
            .Dock = DockStyle.Bottom
            .Cursor = Me.Cursor
            .Text = "Restart"
            .PerformClick()
        End With

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        chrono()
    End Sub

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        With textbox1
            .Height = (Me.Height - Me.Button1.Height) - 25
            .Width = Me.Width - 8
        End With
    End Sub
End Class

Conclusion :


il est très facile de créer des contrôles en code et de s'assurer qu'ils auront la taille désirée à l'execution

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
26 juin 2008

je vous remerrcie
Messages postés
394
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 novembre 2009
1
Nice...
Je remonte un peu la note

Enjoy^^
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
tu as put etre raison TextBox1.Dispose
c'est peut etre mieux
Messages postés
553
Date d'inscription
jeudi 28 novembre 2002
Statut
Membre
Dernière intervention
2 octobre 2016
1
Oui, ça fonctionne sans par ce que tu utilise ".Parent = Me" qui est d'après mes souvenir une ancienne version (VB6)
Sinon je vois toujours pas l'utilité de textbox1 = Nothing
crée toi un bouton et un textbox multiligne avec du contenu et dans ton bouton met "textbox1 = Nothing" tu vois ça sers a rien, ça n'efface même pas son contenu !

Je suppose que tu voulais détruire l'objet a la fermeture du contrôle Form et dans ce cas là, c'est la propriété Disposing

A+
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
Me.Controls.Add(Textbox1) => code inutile puisque ça fonctionne sans
mais textbox1 Nothing> pas si inutile je crois
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.