1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Date & Heure
  5. Changement de la date system (corrigé)

Changement de la date system (corrigé)

0/5 (2 avis)

Vue 7 456 fois - Téléchargée 663 fois

Télécharger le projet
Commenter

Description

en fait c le meme prog qu'au dessus mais avec un bug en -

Source / Exemple : 


Dim Vdate
' Source par OverDarck
' za511@aol.com
' pour tout commantaire, remarque ou modification concernant ce programme, envoyer moi un mail
Private Sub form_load()
Vdate = Date
Text1.Text = Date
Text2.Text = ""
End Sub
Private Sub text1_gotFocus()
Text2.SetFocus
End Sub
Private Sub Label1_click()
On Error GoTo eror
    If Text2.Text = "" Then
    MsgBox ("Vous devez entrer une date !"), vbCritical + vbOKOnly, "Attention !"
    Text2.SetFocus
    GoTo fin
        Else
        Date = Text2.Text
    End If
Dim intDoIt
intDoIt = MsgBox("Voulez vous accepter le changement de date ?", vbExclamation + vbYesNo, "Accepter le changement de date ?")
    If intDoIt = vbYes Then
    MsgBox ("La nouvelle date est : " & Date), vbInformation + vbOKOnly, "Changement de date Validé"
    Text2.Text = ""
    End If
    If intDoIt = vbNo Then
    Date = Vdate
    MsgBox ("La nouvelle date a été refusée ! la date est : " & Date), vbInformation + vbOKOnly, "Changement de date annulé !"
    Text2.Text = ""
    End If
    GoTo fin
eror:
        Dim ret
            ret = MsgBox((Error$(Err)), vbCritical + vbRetryCancel, "Dates")
                If ret = vbRetry Then '3
                GoTo eror
                ElseIf ret = vbCancel Then
                Text2.Text = ""
                End If '3
fin:
End Sub

Conclusion :


Telecharger le zip c mieux mais bon, c comme tu veux !
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_PegaseJM Messages postés 80 Date d'inscription jeudi 22 juillet 2004 Statut Membre Dernière intervention 28 août 2006 2
17 juil. 2006 à 16:58
En VB.Net, ca marche pas... Il me dit :
Erreur 3 'Date' est un type et ne peut pas être utilisé en tant qu'expression.
Bladelamerz Messages postés 9 Date d'inscription lundi 28 avril 2003 Statut Membre Dernière intervention 18 novembre 2003
26 mai 2003 à 16:20
Bravo, je cherchais justement un prog de ce type !
S'inscrire maintenant

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.

Du même auteur (OverDarck)