各位大神,谁能帮我打下的编写和代码 在内容里 谢谢
要求:设计一个程序,可以让用户输入时间和文本用户每输入一条信息,将时间和文本记录在右侧例表框上面
在用户指定的时间到达时弹出提示框提示用户输入的文本
Private Sub Timer1_Timer() 'Timer1.Interval = 1000 Dim str As String If Now > #3/11/2018 17:05:00 PM# Then str = InputBox("请输入:", "输入开始输入的那句话", "") If str = "你写的话" Then Timer1.Enabled = False End If End If End Sub