vb.net制作日历 vba 日历控件代码

VB.net2008打造精美电子日历程序

Visual Studio 发布后 迅速吸引了大量vb.net制作日历的VB NET爱好者 Visual Studio 以优化性和强大vb.net制作日历的功能而著称 所以一时间同样也吸引了大量的专业编程人员 经过人们几个月的试用后 可以发现使用者普遍对这个新版本的Visual Studio感到满意 当然Visual Studio 最为突出的特点是快捷而更具有人性化了 如今的Visual Studio 的控件应用仍然相当重要而且很实用 今天vb.net制作日历我将要介绍几个比较常用的控件和它们的相关属性 通过一个实例让大家详细的了解程序的基本开发过程与控件使用技巧 本文适合初学者和具备一定基础的使用者 读者将在本文学习到GroupBox DateTimePicker ComboBox Textbox Label MonthCalendar CheckBox等控件的使用 以及对于 Windows窗体设计器的操作和方法的简单介绍 打开 Visual Studio 在文件 (File) 菜单上 单击新建项目 (New Project) 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中 单击 Windows 应用程序(Windows Application) 单击确定 (OK) 在Form 窗体靠右侧中添加GroupBox GroupBox 控件(注意 GroupBox 创建在GroupBox 上) 其中GroupBox 的Text为: 时间日期 GroupBox 的Text为:选项 如图 所示 完成后 vb.net制作日历我们需要在GroupBox 中添加DateTimePicker 控件 DateTimePicker控件详细属性解释 DateTimePicker控件属性 CalendarFont 获取或设置应用于日历的字体样式 CalendarForeColor 获取或设置日历的前景色 CalendarmonthBackground 获取或设置历月的背景色 CalendarTitleBackColor 获取或设置日历标题的背景色 CalendarTitleForeColor 获取或设置日历标题的前景色 CalendarTrailingForeColor 获取或设置日历结尾日期的前景色 CanFocus 获取一个值 该值指示控件是否可以接收焦点 （从 Control 继承 ） CanSelect 获取一个值 该值指示是否可以选中控件 （从 Control 继承 ） Capture 获取或设置一个值 该值指示控件是否已捕获鼠标 （从 Control 继承 ） CausesValidation 获取或设置一个值 该值指示控件是否会引起在任何需要在接收焦点时执行验证的控件上执行验证 （从 Control 继承 ） Checked 获取或设置一个值 该值指示是否已用有效日期/时间值设置了 Value 属性且显示的值可以更新 CheckForIllegalCrossThreadCalls 获取或设置一个值 该值指示是否捕获对错误线程的调用 这些调用访问控件的 Handle 属性 （从 Control 继承 ） ClientRectangle 获取表示控件的工作区的矩形 （从 Control 继承 ） ClientSize 获取或设置控件的工作区的高度和宽度 （从 Control 继承 ） CompanyName 获取包含控件的应用程序的公司名称或创建者 （从 Control 继承 ） Container 获取 IContainer 它包含 Component （从 Component 继承 ） ContainsFocus 获取一个值 该值指示控件或它的一个子控件当前是否有输入焦点 （从 Control 继承 ） ContextMenu 获取或设置与控件关联的快捷菜单 （从 Control 继承 ） ContextMenuStrip 获取或设置与此控件关联的 ContextMenuStrip （从 Control 继承 ） Controls 获取包含在控件内的控件的集合 （从 Control 继承 ） Created 获取一个值 该值指示控件是否已经创建 （从 Control 继承 ） Cursor 获取或设置当鼠标指针位于控件上时显示的光标 （从 Control 继承 ） CustomFormat 获取或设置自定义日期/时间格式字符串 DataBindings 为该控件获取数据绑定 （从 Control 继承 ） DefaultBackColor 获取控件的默认背景色 （从 Control 继承 ） DefaultFont 获取控件的默认字体 （从 Control 继承 ） DefaultForeColor 获取控件的默认前景色 （从 Control 继承 ） 在GroupBox 中添加 个Label控件 属性Text分别设置如下: Label Text Time Label Text 日期风格 Label Text 日期格式 设置完成后 效果如图

　设置后 我们还需要在GroupBox 中添加 个ComboBox 与ComboBox 控件

以及一Textbox 控件 如图 Form 窗体中右侧界面工作完成了 接着我们需要完成Form 左侧界面了（也是我们最重要的显示日期日历的界面） 在Form 窗体左侧添加MonthCalendar 控件 效果如图 MonthCalendar 的控件的详细属性 MonthCalendar 属性 Margin 获取或设置控件之间的空间 （从 Control 继承 ） MaxDate 获取或设置允许的最大日期 MaximumSize 获取或设置大小 该大小是 GetPreferredSize 可以指定的上限 （从Control 继承 ） 　 MaxSelectionCount 获取或设置月历控件中可选择的最大天数 MinDate 获取或设置允许的最小日期 MinimumSize 获取或设置大小 该大小是 GetPreferredSize 可以指定的下限 （从Control 继承 ） ModifierKeys 获取一个值 该值指示哪一个修改键（Shift Ctrl 和 Alt）处于按下的状态 （从 Control 继承 ） MonthlyBoldedDates 获取或设置 DateTime 对象的数组 确定每月要用粗体显示的日期 MouseButtons 获取一个值 该值指示哪一个鼠标按钮处于按下的状态 （从Control 继承 ） MousePosition 获取鼠标光标的位置（以屏幕坐标表示） （从 Control 继承 ） Name 获取或设置控件的名称 （从 Control 继承 ） Padding 获取或设置 MonthCalendar 控件的边缘与该控件的内容之间的空间 　 Parent 获取或设置控件的父容器 （从 Control 继承 ） 　 PreferredSize 获取可以容纳控件的矩形区域的大小

（从 Control 继承 ） ProductName 获取包含控件的程序集的产品名称 （从 Control 继承 ） ProductVersion 获取包含控件的程序集的版本 （从 Control 继承 ） RecreatingHandle 获取一个值 该值指示控件当前是否在重新创建其句柄 （从Control 继承 ） Region 获取或设置与控件关联的窗口区域 （从 Control 继承 ） Right 获取控件右边缘与其容器的工作区左边缘之间的距离（以像素为单位） （从Control 继承 ） RightToLeft 获取或设置一个值 该值指示是否将控件的元素对齐以支持使用从右向左的字体的区域设置 （从 Control 继承 ） RightToLeftLayout 获取或设置一个值 该值指示控件是否从右到左布局 ScrollChange 获取或设置月历控件的滚动率 SelectionEnd 获取或设置选定日期范围的结束日期 SelectionRange 为月历控件获取或设置选定的日期范围 SelectionStart 获取或设置所选日期范围的开始日期 ShowToday 获取或设置一个值 该值指示控件底端是否显示 TodayDate 属性表示的日期 ShowTodayCircle 获取或设置一个值 它指示是否用圆形或用正方形标识当天日期 ShowWeekNumbers 获取或设置一个值 该值指示月历控件是否在每行日期的左侧显示周数 ( ) SingleMonthSize 获取显示一个日历月所需的最小大小 Site 获取或设置控件的站点 （从 Control 继承 ） Size 获取或设置 MonthCalendar 控件的大小 TabIndex 获取或设置在控件的容器的控件的 Tab 键顺序 （从 Control 继承 ） TabStop 获取或设置一个值 该值指示用户能否使用 Tab 键将焦点放到该控件上 （从 Control 继承 ） Tag 获取或设置包含有关控件的数据的对象 （从 Control 继承 ） Text 已重写 获取或设置要在 MonthCalendar 上显示的文本 TitleBackColor 获取或设置指示日历标题区的背景色的值 TitleForeColor 获取或设置指示日历标题区的前景色的值 TodayDate 获取或设置由 MonthCalendar 用作今天的日期的值 TodayDateSet 获取指示是否已显式设置 TodayDate 属性的值 Top 获取或设置控件上边缘与其容器的工作区上边缘之间的距离（以像素为单位） （从 Control 继承 ） TopLevelControl 获取没有另一个 Windows 窗体控件作为其父级的父控件 通常 这是控件所在的最外面的 Form （从 Control 继承 ） TrailingForeColor 获取或设置一个值 该值指示控件中没有完全显示的月中日期的颜色 UseWaitCursor 获取或设置一个值 该值指示是否将等待光标用于当前控件以及所有子控件 　在Form 中左侧添加一个CheckBox 控件Text属性设置为 展示今天的日期 再在CheckBox 控件下部添加一个Button控件Text属性设置为 Exit 最终效果如图 基本上我们的界面工作完成了 接下来我们该输入代码了 详细过程如下 双击Form 窗体进入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( 点击/选择式 ) 添加起始星期 Me ComboBox SelectedIndex = Me ComboBox SelectedIndex = Me TextBox Text = TimeOfDay End Sub 进入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表示一位

或两位的天数 Me DateTimePicker CustomFormat = MMM dd yyy ddd dd表示两位数的天数 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 进入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 进入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 进入Button _Click事件中 代码如下 Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click End End Sub 好了代码输入完毕 在这里补充说明 如果我们平时编写程序时输入完代码以后

lishixinzhi/Article/program/net/201311/13027

相关问答

Q1: 用基于vb的asp.net编写显示当前日期时间和星期几的代码怎么写？急用

C#

string [] Day=new string []{"星期日","星期一","星期二","星期三","星期四","星期五","星期六"};

Console.WriteLine(Day[Convert.ToInt16(DateTime.Now.DayOfWeek)]);

相信VB.net的你，应该懂的。

Q2: 如何使用VB.NET DateTimePicker控件

这个控件允许你选择日期和时间vb.net制作日历；同时，由于这个控件允许你限制输入内容，你可以忽略合法vb.net制作日历的日期格式。DateTimePicker控件类似于MonthView控件，后者允许你选择一个日期或日期范围，但不支持时间选择。在本文中，我将创建一个使用DateTimePicker控件的实例。实例在常用控件（Common Controls）下的工具箱(Toolbox)中找到DateTimePicker控件，并把它添加到Windows Forms中。设置以下属性：l Name：dtpDateSelectionl CustomFormat：mm/dd/yyyyl Format：短l MaxDate：12/31/2008l MinDate：01/01/2007l ShowUpDown：假 在Form Load事件中添加以下代码： dtpDateSelection.Value = Now 创建以下事件： Private Sub dtpDateSelection_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtpDateSelection.CloseUp MessageBox.Show(dtpDateSelection.Value) End Sub 结果在第一个例子中，ShowUpDown属性设为假，表示在用户点击控件时，控件的日历部分可见。然后用户从控件的日历部分选择日期。在DateTimePicker控件中选择一个日期后，你的屏幕看起来与图A类似。 现在，将ShowUpDown属性值改为真，再次运行代码。这次你不会看到控件的日历部分，你可以点击控件的上/下箭头来选择一个日期。其结果类似于图B。 注意，这个控件不允许你选择小于MinDate属性值或大于MaxDate属性值的日期。 更多信息你还可以使用许多其它属性和重要的方法，让DateTimePicker控件满足你的需求。MSDN提供关于如何使用DateTimePicker控件的其它细节。 Irina Medvinskaya自1996年开始涉足技术领域。 查看本文国际来源

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

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 = "时间到vb.net制作日历了 vb.net制作日历你该去做些什么事了吧"

            '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

Q4: vb.net 随机生成日期

1.随机生成日期

Format(DateSerial(Rnd * 100, Rnd * 12, Rnd * 31), "yyyymmdd")

2.用函数IsDate()

---------------------------------------------

Debug.WriteLine(Format(DateSerial(Rnd() * 100, Rnd() * 12, Rnd() * 31), "yyyy-MM-dd"))

debug：1971-06-18

笔误，你把yyyymmdd换成yyyy-MM-dd这样试验一下。

我测试了没问题的

Q5: vb.net中 点textbox如何显示一个日历窗口

先将日历控件Visible属性设置为False,放置到Textbox控件上方，调整好尺寸，点按Textbox是改变日历控件的Visible属性即可

vb.net制作日历的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba 日历控件代码、vb.net制作日历的信息别忘了在本站进行查找喔。