[vb2005] ouvrir une MsgBox a une heure spécifié dans une textbox

Version imprimable

Voilà je débute plus ou moins et je cherche(désespérement) de puis pas mal de temps a ouvrir une MsgBox a une heure spécifié dans une textbox au

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
format hh:mm:ss. J'ai réussi a crée un bout de programme permettant l'affichage de l'heure réel , une case de saisie pour inscrire le messge qui doit aparaitre dans la textBox mais je ne réussi pas a faire que cette MsgBox se déclenche a l'heur souhaitez ...ni a la date souhaitez ce qui est un epu énervant donc si vous voulez bien m'aider svp ...Je donne une partie de mon code qui fonctionne pour illustrer mon probleme : 
 
 
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Label1.Text = Now.ToLongTimeString
 
        Dim date_du_jour As Date
        date_du_jour = Now
        Label4.Text = date_du_jour
 
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Rep As String, Datededéclenchement As Date
        Do
            Rep = InputBox("inscriver la date cible au format JJ/MM/AAAA")
        Loop While (Not IsDate(Rep))
        Datededéclenchement = CDate(Rep)
        MsgBox(" Vous avez choisi la date :" & Rep)
        Label12.Text = Rep
 
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Rep1 As String, heurechoisit As Date
        Do
            Rep1 = InputBox("Inscrivez l'heure cible au format HH:MM:SS ( en mode 24 heures )")
        Loop While (Not IsDate(Rep1))
        heurechoisit = CDate(Rep1)
        MsgBox(" Vous avez choisi l'Heure :" & Rep1)
        Label11.Text = Rep1
 
    End Sub

Merci pour l'aide.

31/08/2007, 20h17
tomlev

Dans Timer1_Tick, tu peux regarder si l'heure souhaitée est atteinte, et si c'est la cas tu affiches ta MessageBox
31/08/2007, 20h19
renly

Merci Mais...

Merci a toi de répondre mais comment est ce que je peut faire sa ? ( quand je dis que je commence ^^)

D'abord, je te conseille d'utiliser un contrôle DateTimePicker, ce sera plus simple pour la saisie de la date et de l'heure. Supposons que tu l'appelles date_heure_cible. Change les propriétés suivantes du contrôle :
- Format : Custom
- CustomFormat : dd/MM/yyyy HH:mm:ss

Dans Timer1_Tick, il te suffit d'ajouter ce test :
Code:

1 2 3 4 5 6 Dim dt As DateTime dt = DateTime.Now If dt = date_heure_cible.Value Then MsgBox "C'est l'heure !" End If
Par contre, il faudrait tronquer l'heure actuelle à la seconde près, sinon les millisecondes vont fausser le test. Le code devient donc :
Code:

1 2 3 4 5 6 7 Dim dt, dt2 As DateTime dt = DateTime.Now dt2 = New DateTime(dt.Year, dt.Month, dt.Day, dt.Hour, dt.Minute, dt.Second, 0) If dt2 = date_heure_cible.Value Then MsgBox "C'est l'heure !" End If

31/08/2007, 21h30
renly

merci bcp d'avoir pri le temps de m'expliquer néanmoins en utilisant un datetimepicker l'utilisateur ne peut que selectionner une date et non une heure ..que dois je faire ? ( dsl d'etre un petit peu lent d'esprit ^^)
31/08/2007, 21h49
renly

wouuu sa marche enfin ^^ merci infiniment pour m'avoir expliqué ...