Discussion :

[Hobbi1]

Bonjour,

En VB.Net sous VS 2012, je voudrais savoir quel est le meilleur moyen de récupérer une durée saisie dans un MaskedTextBox ayant comme mask "00:00:00" (donc sous la forme hh:mm:ss) pour la convertir en secondes ?
Le champs de saisie est facultatif et la durée saisie ne peut contenir que des minutes et secondes (heures facultatives)

Merci.

[rv26t]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        Dim h As Integer = 0
        If IsNumeric(MaskedTextBox1.Text.Split(":")(0)) Then
            h = Integer.Parse(MaskedTextBox1.Text.Split(":")(0))
        End If
        MessageBox.Show((New TimeSpan(h, Integer.Parse(MaskedTextBox1.Text.Split(":")(1)), Integer.Parse(MaskedTextBox1.Text.Split(":")(2)))).TotalSeconds)

[Hobbi1]

Merci.

Finalement, il a été décidé de définir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mskDuree.ValidatingType = GetType(System.DateTime)

, d'utiliser l'évènement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mskDuree_TypeValidationCompleted

et de mettre une valeur "nulle" par défaut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

00:00:00

[Hobbi1]

Je rouvre le sujet car ca ne pouvait pas marcher ... et ca ne marche pas

[rv26t]

Je rouvre le sujet car ca ne pouvait pas marcher ... et ca ne marche pas

Oui,
et qu'est-ce qui ne fonctionne pas ?
Quel est le message d'erreur ?
Quel code utilisez-vous ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub frmDates_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MaskedTextBox1.ValidatingType = GetType(System.DateTime)
        MaskedTextBox1.Text = "00:00:00" ' cela oblige l'utilisateur a ne pas être en insert pour saisir
    End Sub
    Private Sub MaskedTextBox1_TypeValidationCompleted(ByVal sender As Object, ByVal e As TypeValidationEventArgs) Handles MaskedTextBox1.TypeValidationCompleted
        If (Not e.IsValidInput) Then
            MessageBox.Show("Heure invalide")
            'e.Cancel = True
        Else
            Dim h As Integer = 0
            If IsNumeric(MaskedTextBox1.Text.Split(":")(0)) Then h = Integer.Parse(MaskedTextBox1.Text.Split(":")(0))
            MessageBox.Show((New TimeSpan(h, Integer.Parse(MaskedTextBox1.Text.Split(":")(1)), Integer.Parse(MaskedTextBox1.Text.Split(":")(2)))).TotalSeconds)
        End If
    End Sub

fonctionne très bien chez moi.

[Hobbi1]

Ce qui ne marche pas c'est le code utilisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ValidatingType = GetType(System.DateTime)

En effet, des valeurs comme

01:54:25

ne marchent pas. En fait, le 2ème couple de chiffres ne doit pas être supérieur à 12 car VB s'attend à avoir un mois.

J'ai trouvé une solution qui va être quelque chose comme ça (après avoir enlevé les MessageBox bien sûr)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
If mskDuree.MaskCompleted Then
     MessageBox.Show("complet")
Else
     If mskDuree.Text = "  :  :" Then
          MessageBox.Show("vide")
     ElseIf mskDuree.Text.Length = 8 And mskDuree.Text.Substring(0, 2) = "  " Then
          mskDuree.Text = "00" & mskDuree.Text.Substring(3, 5)
          MessageBox.Show("complété")
     ElseIf mskDuree.Text.Length = 8 And mskDuree.Text.Substring(0, 1) = " " Then
          mskDuree.Text = "0" & mskDuree.Text.Substring(1, 7)
          MessageBox.Show("complété")
     Else
          MessageBox.Show("'" & mskDuree.Text & "'")
     End If
End If
 
Dim intervalVal As TimeSpan
If TimeSpan.TryParse(mskDuree.Text, intervalVal) Then
    MessageBox.Show(CStr(TimeSpan.Parse(mskDuree.Text).TotalSeconds))
Else
    MessageBox.Show("format non valide =" & intervalVal.ToString)
End If

[rv26t]

Ce qui ne marche pas c'est le code utilisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ValidatingType = GetType(System.DateTime)

En effet, des valeurs comme ne marchent pas. En fait, le 2ème couple de chiffres ne doit pas être supérieur à 12 car VB s'attend à avoir un mois.

Ben pourtant (les : dans la chaîne permette à vb de savoir qu'il sagit d'une heure ; voir image (résultat avec mon code) en bas du message)

[Edit]
Sinon il ne faut pas placer la chaîne "00:00:00" en init et vérifier sur l'évènement Leave si la valeur heure est numérique sinon c'est le masque et dans ce cas mettre les zéro. Puis laisser la validation classique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Private Sub frmDates_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MaskedTextBox1.ValidatingType = GetType(System.DateTime)
    End Sub
    Private Sub MaskedTextBox1_TypeValidationCompleted(ByVal sender As Object, ByVal e As TypeValidationEventArgs) Handles MaskedTextBox1.TypeValidationCompleted
        If (Not e.IsValidInput) Then
            MessageBox.Show("Heure invalide -" & MaskedTextBox1.Text)
        Else
            Dim h As Integer = 0
            If IsNumeric(MaskedTextBox1.Text.Split(":")(0)) Then h = Integer.Parse(MaskedTextBox1.Text.Split(":")(0))
            MessageBox.Show((New TimeSpan(h, Integer.Parse(MaskedTextBox1.Text.Split(":")(1)), Integer.Parse(MaskedTextBox1.Text.Split(":")(2)))).TotalSeconds)
        End If
    End Sub
    Private Sub MaskedTextBox1_Leave(sender As System.Object, e As System.EventArgs) Handles MaskedTextBox1.Leave
        If Not IsNumeric(MaskedTextBox1.Text.Split(":")(0)) Then MaskedTextBox1.Text = "00" & MaskedTextBox1.Text.Substring(3, 5)
    End Sub

[/Edit]