建站
咨詢
售后
建站咨詢
新聞中心
vb.net中 點(diǎn)textbox如何顯示一個(gè)日歷窗口
先將日歷控件Visible屬性設(shè)置為False,放置到Textbox控件上方，調(diào)整好尺寸，點(diǎn)按Textbox是改變?nèi)諝v控件的Visible屬性即可
成都創(chuàng)新互聯(lián)長期為超過千家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為武安企業(yè)提供專業(yè)的成都網(wǎng)站建設(shè)、做網(wǎng)站，武安網(wǎng)站改版等技術(shù)服務(wù)。擁有10多年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。
怎樣在vb.net里做一個(gè)日歷提醒？急~~~~~~
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
VB.net2008打造精美電子日歷程序
Visual Studio 發(fā)布后 迅速吸引了大量的VB NET愛好者 Visual Studio 以優(yōu)化性和強(qiáng)大的功能而著稱 所以一時(shí)間同樣也吸引了大量的專業(yè)編程人員 經(jīng)過人們幾個(gè)月的試用后 可以發(fā)現(xiàn)使用者普遍對(duì)這個(gè)新版本的Visual Studio感到滿意 當(dāng)然Visual Studio 最為突出的特點(diǎn)是快捷而更具有人性化了 如今的Visual Studio 的控件應(yīng)用仍然相當(dāng)重要而且很實(shí)用 今天我將要介紹幾個(gè)比較常用的控件和它們的相關(guān)屬性 通過一個(gè)實(shí)例讓大家詳細(xì)的了解程序的基本開發(fā)過程與控件使用技巧 本文適合初學(xué)者和具備一定基礎(chǔ)的使用者 讀者將在本文學(xué)習(xí)到GroupBox DateTimePicker ComboBox Textbox Label MonthCalendar CheckBox等控件的使用 以及對(duì)于 Windows窗體設(shè)計(jì)器的操作和方法的簡單介紹 打開 Visual Studio 在文件 (File) 菜單上 單擊新建項(xiàng)目 (New Project) 在新建項(xiàng)目 (New Project) 對(duì)話框的模板 (Templates) 窗格中 單擊 Windows 應(yīng)用程序(Windows Application) 單擊確定 (OK) 在Form 窗體靠右側(cè)中添加GroupBox GroupBox 控件(注意 GroupBox 創(chuàng)建在GroupBox 上) 其中GroupBox 的Text為: 時(shí)間日期 GroupBox 的Text為:選項(xiàng) 如圖 所示 完成后 我們需要在GroupBox 中添加DateTimePicker 控件 DateTimePicker控件詳細(xì)屬性解釋 DateTimePicker控件屬性 CalendarFont 獲取或設(shè)置應(yīng)用于日歷的字體樣式 CalendarForeColor 獲取或設(shè)置日歷的前景色 CalendarmonthBackground 獲取或設(shè)置歷月的背景色 CalendarTitleBackColor 獲取或設(shè)置日歷標(biāo)題的背景色 CalendarTitleForeColor 獲取或設(shè)置日歷標(biāo)題的前景色 CalendarTrailingForeColor 獲取或設(shè)置日歷結(jié)尾日期的前景色 CanFocus 獲取一個(gè)值 該值指示控件是否可以接收焦點(diǎn) （從 Control 繼承 ） CanSelect 獲取一個(gè)值 該值指示是否可以選中控件 （從 Control 繼承 ） Capture 獲取或設(shè)置一個(gè)值 該值指示控件是否已捕獲鼠標(biāo) （從 Control 繼承 ） CausesValidation 獲取或設(shè)置一個(gè)值 該值指示控件是否會(huì)引起在任何需要在接收焦點(diǎn)時(shí)執(zhí)行驗(yàn)證的控件上執(zhí)行驗(yàn)證 （從 Control 繼承 ） Checked 獲取或設(shè)置一個(gè)值 該值指示是否已用有效日期/時(shí)間值設(shè)置了 Value 屬性且顯示的值可以更新 CheckForIllegalCrossThreadCalls 獲取或設(shè)置一個(gè)值 該值指示是否捕獲對(duì)錯(cuò)誤線程的調(diào)用 這些調(diào)用訪問控件的 Handle 屬性 （從 Control 繼承 ） ClientRectangle 獲取表示控件的工作區(qū)的矩形 （從 Control 繼承 ） ClientSize 獲取或設(shè)置控件的工作區(qū)的高度和寬度 （從 Control 繼承 ） CompanyName 獲取包含控件的應(yīng)用程序的公司名稱或創(chuàng)建者 （從 Control 繼承 ） Container 獲取 IContainer 它包含 Component （從 Component 繼承 ） ContainsFocus 獲取一個(gè)值 該值指示控件或它的一個(gè)子控件當(dāng)前是否有輸入焦點(diǎn) （從 Control 繼承 ） ContextMenu 獲取或設(shè)置與控件關(guān)聯(lián)的快捷菜單 （從 Control 繼承 ） ContextMenuStrip 獲取或設(shè)置與此控件關(guān)聯(lián)的 ContextMenuStrip （從 Control 繼承 ） Controls 獲取包含在控件內(nèi)的控件的集合 （從 Control 繼承 ） Created 獲取一個(gè)值 該值指示控件是否已經(jīng)創(chuàng)建 （從 Control 繼承 ） Cursor 獲取或設(shè)置當(dāng)鼠標(biāo)指針位于控件上時(shí)顯示的光標(biāo) （從 Control 繼承 ） CustomFormat 獲取或設(shè)置自定義日期/時(shí)間格式字符串 DataBindings 為該控件獲取數(shù)據(jù)綁定 （從 Control 繼承 ） DefaultBackColor 獲取控件的默認(rèn)背景色 （從 Control 繼承 ） DefaultFont 獲取控件的默認(rèn)字體 （從 Control 繼承 ） DefaultForeColor 獲取控件的默認(rèn)前景色 （從 Control 繼承 ） 在GroupBox 中添加 個(gè)Label控件 屬性Text分別設(shè)置如下: Label Text Time Label Text 日期風(fēng)格 Label Text 日期格式 設(shè)置完成后 效果如圖
設(shè)置后 我們還需要在GroupBox 中添加 個(gè)ComboBox 與ComboBox 控件
以及一Textbox 控件 如圖 Form 窗體中右側(cè)界面工作完成了 接著我們需要完成Form 左側(cè)界面了（也是我們最重要的顯示日期日歷的界面） 在Form 窗體左側(cè)添加MonthCalendar 控件 效果如圖 MonthCalendar 的控件的詳細(xì)屬性 MonthCalendar 屬性 Margin 獲取或設(shè)置控件之間的空間 （從 Control 繼承 ） MaxDate 獲取或設(shè)置允許的最大日期 MaximumSize 獲取或設(shè)置大小 該大小是 GetPreferredSize 可以指定的上限 （從Control 繼承 ） MaxSelectionCount 獲取或設(shè)置月歷控件中可選擇的最大天數(shù) MinDate 獲取或設(shè)置允許的最小日期 MinimumSize 獲取或設(shè)置大小 該大小是 GetPreferredSize 可以指定的下限 （從Control 繼承 ） ModifierKeys 獲取一個(gè)值 該值指示哪一個(gè)修改鍵（Shift Ctrl 和 Alt）處于按下的狀態(tài) （從 Control 繼承 ） MonthlyBoldedDates 獲取或設(shè)置 DateTime 對(duì)象的數(shù)組 確定每月要用粗體顯示的日期 MouseButtons 獲取一個(gè)值 該值指示哪一個(gè)鼠標(biāo)按鈕處于按下的狀態(tài) （從Control 繼承 ） MousePosition 獲取鼠標(biāo)光標(biāo)的位置（以屏幕坐標(biāo)表示） （從 Control 繼承 ） Name 獲取或設(shè)置控件的名稱 （從 Control 繼承 ） Padding 獲取或設(shè)置 MonthCalendar 控件的邊緣與該控件的內(nèi)容之間的空間 Parent 獲取或設(shè)置控件的父容器 （從 Control 繼承 ） PreferredSize 獲取可以容納控件的矩形區(qū)域的大小
（從 Control 繼承 ） ProductName 獲取包含控件的程序集的產(chǎn)品名稱 （從 Control 繼承 ） ProductVersion 獲取包含控件的程序集的版本 （從 Control 繼承 ） RecreatingHandle 獲取一個(gè)值 該值指示控件當(dāng)前是否在重新創(chuàng)建其句柄 （從Control 繼承 ） Region 獲取或設(shè)置與控件關(guān)聯(lián)的窗口區(qū)域 （從 Control 繼承 ） Right 獲取控件右邊緣與其容器的工作區(qū)左邊緣之間的距離（以像素為單位） （從Control 繼承 ） RightToLeft 獲取或設(shè)置一個(gè)值 該值指示是否將控件的元素對(duì)齊以支持使用從右向左的字體的區(qū)域設(shè)置 （從 Control 繼承 ） RightToLeftLayout 獲取或設(shè)置一個(gè)值 該值指示控件是否從右到左布局 ScrollChange 獲取或設(shè)置月歷控件的滾動(dòng)率 SelectionEnd 獲取或設(shè)置選定日期范圍的結(jié)束日期 SelectionRange 為月歷控件獲取或設(shè)置選定的日期范圍 SelectionStart 獲取或設(shè)置所選日期范圍的開始日期 ShowToday 獲取或設(shè)置一個(gè)值 該值指示控件底端是否顯示 TodayDate 屬性表示的日期 ShowTodayCircle 獲取或設(shè)置一個(gè)值 它指示是否用圓形或用正方形標(biāo)識(shí)當(dāng)天日期 ShowWeekNumbers 獲取或設(shè)置一個(gè)值 該值指示月歷控件是否在每行日期的左側(cè)顯示周數(shù) ( ) SingleMonthSize 獲取顯示一個(gè)日歷月所需的最小大小 Site 獲取或設(shè)置控件的站點(diǎn) （從 Control 繼承 ） Size 獲取或設(shè)置 MonthCalendar 控件的大小 TabIndex 獲取或設(shè)置在控件的容器的控件的 Tab 鍵順序 （從 Control 繼承 ） TabStop 獲取或設(shè)置一個(gè)值 該值指示用戶能否使用 Tab 鍵將焦點(diǎn)放到該控件上 （從 Control 繼承 ） Tag 獲取或設(shè)置包含有關(guān)控件的數(shù)據(jù)的對(duì)象 （從 Control 繼承 ） Text 已重寫 獲取或設(shè)置要在 MonthCalendar 上顯示的文本 TitleBackColor 獲取或設(shè)置指示日歷標(biāo)題區(qū)的背景色的值 TitleForeColor 獲取或設(shè)置指示日歷標(biāo)題區(qū)的前景色的值 TodayDate 獲取或設(shè)置由 MonthCalendar 用作今天的日期的值 TodayDateSet 獲取指示是否已顯式設(shè)置 TodayDate 屬性的值 Top 獲取或設(shè)置控件上邊緣與其容器的工作區(qū)上邊緣之間的距離（以像素為單位） （從 Control 繼承 ） TopLevelControl 獲取沒有另一個(gè) Windows 窗體控件作為其父級(jí)的父控件 通常 這是控件所在的最外面的 Form （從 Control 繼承 ） TrailingForeColor 獲取或設(shè)置一個(gè)值 該值指示控件中沒有完全顯示的月中日期的顏色 UseWaitCursor 獲取或設(shè)置一個(gè)值 該值指示是否將等待光標(biāo)用于當(dāng)前控件以及所有子控件 在Form 中左側(cè)添加一個(gè)CheckBox 控件Text屬性設(shè)置為 展示今天的日期 再在CheckBox 控件下部添加一個(gè)Button控件Text屬性設(shè)置為 Exit 最終效果如圖 基本上我們的界面工作完成了 接下來我們?cè)撦斎氪a了 詳細(xì)過程如下 雙擊Form 窗體進(jìn)入Form _Load事件中 代碼如下 Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load Me ComboBox Items Add( long ) Me ComboBox Items Add( short ) Me ComboBox Items Add( timedate ) Me ComboBox Items Add( custom ) Me ComboBox Items Add( custom ) Me ComboBox Items Add( custom ) Me ComboBox Items Add( custom ) 添加日期顯示格式 Me ComboBox Items Add( 下拉菜單式 ) Me ComboBox Items Add( 點(diǎn)擊/選擇式 ) 添加起始星期 Me ComboBox SelectedIndex = Me ComboBox SelectedIndex = Me TextBox Text = TimeOfDay End Sub 進(jìn)入ComboBox _SelectedIndexChanged事件中 代碼如下 Private Sub ComboBox _SelectedIndexChanged(ByVal sender As System Object ByVal e As System EventArgs) Handles ComboBox SelectedIndexChanged Select Case Me ComboBox SelectedIndex Case Me DateTimePicker Format = DateTimePickerFormat Long Case Me DateTimePicker Format = DateTimePickerFormat Short Case Me DateTimePicker Format = DateTimePickerFormat Time Case Me DateTimePicker Format = DateTimePickerFormat Custom d表示一位
或兩位的天數(shù) Me DateTimePicker CustomFormat = MMM dd yyy ddd dd表示兩位數(shù)的天數(shù) Case Me DateTimePicker Format = DateTimePickerFormat Custom Me DateTimePicker CustomFormat = ddd hh:mm:ss tt 星期幾名稱 Case Me DateTimePicker Format = DateTimePickerFormat Custom Me DateTimePicker CustomFormat = dddd HH:mm:ss tt Case Me DateTimePicker Format = DateTimePickerFormat Custom Me DateTimePicker CustomFormat = dddd HH:m:ss t End Select Me TextBox Text = TimeOfDay End Sub 進(jìn)入ComboBox _SelectedIndexChanged事件中 代碼如下 Private Sub ComboBox _SelectedIndexChanged(ByVal sender As System Object ByVal e As System EventArgs) Handles ComboBox SelectedIndexChanged Select Case Me ComboBox SelectedIndex Case Me DateTimePicker ShowUpDown = False Case Me DateTimePicker ShowUpDown = True End Select Me TextBox Text = TimeOfDay End Sub 進(jìn)入CheckBox _CheckStateChanged事件中 代碼如下 Private Sub CheckBox _CheckStateChanged(ByVal sender As Object ByVal e As System EventArgs) Handles CheckBox CheckStateChanged If Me CheckBox Checked Then Me MonthCalendar ShowToday = True 顯示今天日期 Else Me MonthCalendar ShowToday = False End If End Sub 進(jìn)入Button _Click事件中 代碼如下 Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click End End Sub 好了代碼輸入完畢 在這里補(bǔ)充說明 如果我們平時(shí)編寫程序時(shí)輸入完代碼以后
lishixinzhi/Article/program/net/201311/13027
請(qǐng)問怎么用vb.net調(diào)出年月日
用日期函數(shù)day()可獲得當(dāng)前日期,time()可獲得當(dāng)前系統(tǒng)時(shí)間.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16顯示當(dāng)前日期
now 這個(gè)函數(shù)可以獲得當(dāng)前系統(tǒng)時(shí)間（包括年月日，小時(shí)分鐘秒）
而
year()
month()
day()
等等則可以從now返回的值中分別提取年，月，日的信息
vb.net獲取年，月，日，時(shí)，分，秒
不是 有 函數(shù)嘛？
now() 就是 吧
取得 后 再 分離出你所需的，分別賦值 就行了，當(dāng)然 還是 有 函數(shù)的
網(wǎng)站題目：vb.net整年日歷 vb日歷代碼
本文網(wǎng)址：http://www.dlmjj.cn/article/hgssos.html
