Question

怎样在vb.net里做一个日历提醒？急~~~~~~

像这样的界面

设定日期并输入事件后，按设置提醒就会在那天弹出对话框提醒。
下这周就要交作业了，急~~~希望专业人士帮帮忙~谢谢！！！

Answer 1

Public Class Form1
    Dim 设置时间 As DateTime

    Private Sub D1_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles 日期时间选择.CloseUp
        和.Text = 日期时间选择.Value
        设置时间 = 日期时间选择.Value
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        日期时间选择.Value = Now
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Now.ToString = 和.Text Then
            提醒显示.Text = "时间到了 你该去做些什么事了吧"
            'Timer1.Enabled = False
        Else
            提醒显示.Text = "现在时间是：" & Now
        End If
    End Sub

    Private Sub 和_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 和.TextChanged
        设置时间 = 和.Text
    End Sub
End Class

Answer 2

思路：选择日期，写事件 点击设置提醒
数据库记录：选择的日期,事件
系统判断如果当天是你数据库里面记录的日期，则跳出对应的事件。
按照这个思路写吧。很简单，30分钟不到就能写好。

追问

呃。。。我们学的比较浅，能不能帮忙写写“判断当天是否是数据库里面记录的日期，则跳出对应的事件”的代码？

追答

是的。
这是最基础的语句判断了，你要是不会建议你还是别学VB.net了.
大概逻辑就是
SQL = "select top 1 bpn from BomlistBom where Processid= " & ProcessID & " and substring(bpn,6,20)='" & mComponent & "'"
ds1 = SqlHelper.ExecuteDataset(connStr, CommandType.Text, SQL)
If ds1.Tables(0).Rows.Count > 0 Then ‘数据库里的日期符合当天
’ 把你的对应的内容显示出来
else
'不显示信息
End If