簡(jiǎn)單的 用TextBox 或者RichTextBox 控件啊 至于文件 可以存為ANSIC編碼的文本文件 或者數(shù)據(jù)庫(kù)存取也行啊
成都創(chuàng)新互聯(lián)公司專注于企業(yè)成都全網(wǎng)營(yíng)銷推廣、網(wǎng)站重做改版、宛城網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5網(wǎng)站設(shè)計(jì)、商城網(wǎng)站建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù),價(jià)格優(yōu)惠性價(jià)比高,為宛城等各大城市提供網(wǎng)站開(kāi)發(fā)制作服務(wù)。
先將日歷控件Visible屬性設(shè)置為False,放置到Textbox控件上方,調(diào)整好尺寸,點(diǎn)按Textbox是改變?nèi)諝v控件的Visible屬性即可
Public Class Form1
Dim 設(shè)置時(shí)間 As DateTime
Private Sub D1_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles 日期時(shí)間選擇.CloseUp
和.Text = 日期時(shí)間選擇.Value
設(shè)置時(shí)間 = 日期時(shí)間選擇.Value
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
日期時(shí)間選擇.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 = "時(shí)間到了 你該去做些什么事了吧"
'Timer1.Enabled = False
Else
提醒顯示.Text = "現(xiàn)在時(shí)間是:" Now
End If
End Sub
Private Sub 和_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 和.TextChanged
設(shè)置時(shí)間 = 和.Text
End Sub
End Class