Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 09 04:13:44

ESSAYEZ WINDOWS 7 GRATUITEMENT DèS DEMAIN par fabien

LUCENE - IGNORER LES ACCENTS LORS DE L'INDEXATION ET LA RECHERCHE | IGNORE DIACRITICS par cyril

MESH OBJECTS BROWSER - MOB 1.0 SUR CODEPLEX par redo

MICROSOFT TAG par khamlon

[LINQTOSQL] REQUêTES ASYNCHRONES SIMULTANéES par NeuroCypher

RE : MACRO WORD RECHERCHE DE PUCE par Orohena

RE : RECHERCHE D'UNE VALEUR DANS EXCEL EN VBS par SAFENil

RE : AFFICHER DYNAMIQUEMENT LA VALEUR DE LA COULEUR POINTéE PAR LA SOURIS SUR UNE IMAGE par Orohena

RE : "SI" AVEC PLUS PETIT/PLUS GRAND par weginale

RE : COMMENT éCRIRE LA DATE EN LETTRE par jack

+ de logiciels à télécharger

1 330 600 membres
65 nouveaux aujourd'hui
14 644 membres club

Trouver une ressource

Trouvez une ressource parmi 39 262 codes, 1 223 248 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

UN CONTRÔLE HORLOGE BASIQUE

Information sur la source

Catégorie :Date & Heure Niveau : Débutant Date de création : 06/09/2003 Date de mise à jour : 06/09/2003 11:53:38 Vu / téléchargé: 2 595 / 322

Auteur : fbrt

Ecrire un message privé

Note :

5,00 / 10

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Puisque je n'ai pas trouvé de Contrôle ActiveX pour l'heure (comme "Microsoft Calendar Control" pour la date), voici un ocx pour l'heure.

Personnalisez le selon vos besoins et vos préférences. Il n'y a pas beaucoup de propriétés (Hour et Minute) car c'est mon premier OCX.

Source

'----------------- Contrôles :
2 textbox : Heure et minute (TxtHeure et txtMinute)
4 command : HeurePlus, HeureMoins, MinutePlus, MinuteMoins
'----------------- Code :
Option Explicit
Private Sub HeureMoins_Click()
With TxtHeure
If .Text = "" Then
.Text = "0"
End If
If .Text = "0" Then
.Text = "23"
Else
.Text = .Text - 1
End If
End With
End Sub
Private Sub HeurePlus_Click()
With TxtHeure
If .Text = "" Then
.Text = "0"
End If
If .Text = "23" Then
.Text = "0"
Else
.Text = .Text + 1
End If
End With
End Sub
Private Sub MinuteMoins_Click()
With TxtMinute
If .Text = "" Then
.Text = "00"
End If
If .Text = "00" Then
.Text = "59"
Else
.Text = .Text - 1
End If
End With
Call Zero
End Sub
Private Sub MinutePlus_Click()
With TxtMinute
If .Text = "" Then
.Text = "00"
End If
If .Text = "59" Then
.Text = "00"
Else
.Text = .Text + 1
End If
End With
Call Zero
End Sub
Private Sub TxtHeure_Change()
Call VerifierHeure
End Sub
Private Sub TxtMinute_Change()
Call VerifierMinute
End Sub
Private Sub TxtMinute_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Zero
End If
End Sub
Private Sub UserControl_Resize()
UserControl.Width = 3345
UserControl.Height = 1665
End Sub
Public Property Get Hour() As String
Hour = TxtHeure.Text
End Property
Public Property Get Minute() As String
Minute = TxtMinute.Text
End Property
Sub VerifierHeure()
If Not (IsNumeric(TxtHeure.Text)) Then
GoTo fin
End If
If TxtHeure.Text < 0 Then
GoTo fin
End If
If TxtHeure.Text > 23 Then
GoTo fin
End If
Exit Sub
fin:
MsgBox "Valeur incorrecte", vbCritical
TxtHeure.Text = "12"
End Sub
Sub VerifierMinute()
If Not (IsNumeric(TxtMinute.Text)) Then
GoTo fin
End If
If TxtMinute.Text < 0 Then
GoTo fin
End If
If TxtMinute.Text > 59 Then
GoTo fin
End If
Exit Sub
fin:
MsgBox "Valeur incorrecte", vbCritical
TxtMinute.Text = "00"
End Sub
Sub Zero()
If Len(TxtMinute.Text) = 1 Then
TxtMinute.Text = "0" & TxtMinute.Text
End If
End Sub

'----------------- Contrôles :

2 textbox : Heure et minute (TxtHeure et txtMinute)
4 command : HeurePlus, HeureMoins, MinutePlus, MinuteMoins



'----------------- Code :

Option Explicit

Private Sub HeureMoins_Click()

With TxtHeure

    If .Text = "" Then
        .Text = "0"
    End If

    If .Text = "0" Then
        .Text = "23"
    Else
        .Text = .Text - 1
    End If
    
End With

End Sub

Private Sub HeurePlus_Click()
   
With TxtHeure

    If .Text = "" Then
        .Text = "0"
    End If

    If .Text = "23" Then
        .Text = "0"
    Else
        .Text = .Text + 1
    End If
    
End With

End Sub

Private Sub MinuteMoins_Click()

With TxtMinute

    If .Text = "" Then
        .Text = "00"
    End If

    If .Text = "00" Then
        .Text = "59"
    Else
        .Text = .Text - 1
    End If
    
End With

Call Zero

End Sub

Private Sub MinutePlus_Click()

With TxtMinute

    If .Text = "" Then
        .Text = "00"
    End If

    If .Text = "59" Then
        .Text = "00"
    Else
        .Text = .Text + 1
    End If
    
End With

Call Zero

End Sub



Private Sub TxtHeure_Change()
    Call VerifierHeure
End Sub

Private Sub TxtMinute_Change()
    Call VerifierMinute
End Sub

Private Sub TxtMinute_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Call Zero
    End If
End Sub

Private Sub UserControl_Resize()
    UserControl.Width = 3345
    UserControl.Height = 1665
End Sub



Public Property Get Hour() As String
    Hour = TxtHeure.Text
End Property


Public Property Get Minute() As String
    Minute = TxtMinute.Text
End Property


Sub VerifierHeure()
    
    If Not (IsNumeric(TxtHeure.Text)) Then
        GoTo fin
    End If
    
    If TxtHeure.Text < 0 Then
        GoTo fin
    End If
    
    If TxtHeure.Text > 23 Then
        GoTo fin
    End If
   
    Exit Sub
    
fin:

        MsgBox "Valeur incorrecte", vbCritical
        TxtHeure.Text = "12"
    
End Sub

Sub VerifierMinute()

If Not (IsNumeric(TxtMinute.Text)) Then
        GoTo fin
    End If
    
    If TxtMinute.Text < 0 Then
        GoTo fin
    End If
    
    If TxtMinute.Text > 59 Then
        GoTo fin
    End If
    
   
    Exit Sub
    
fin:

        MsgBox "Valeur incorrecte", vbCritical
        TxtMinute.Text = "00"


End Sub



Sub Zero()

    If Len(TxtMinute.Text) = 1 Then
        TxtMinute.Text = "0" & TxtMinute.Text
    End If
    
End Sub