- 1、本文档共69页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
3.3 DateTimePicker控件 (4) 图 18 DateTimePicker控件属性页 返回 3.3 DateTimePicker控件 (5) 在两个DateTimePicker控件的上方各添加一个标签,用作简单说明。添加一个文本框和两个命令按钮,按钮的Caption属性分别为“确定”和“退出”。添加一个Timer控件,设其Enabled属性为False,Interval属性为500。 在“确定”按钮的单击事件过程中加入以下代码: Text1.Text = 提示日期: _ Format(DTPicker1.Value, _ yyyy年m月d日) _ vbCrLf 提示时间: _ TimeValue(DTPicker2.Value) Timer1.Enabled = True 3.3 DateTimePicker控件 (6) 在Timer1控件的Timer事件中加入以下代码: If DateValue(DTPicker1.Value) = Date _ And TimeValue(DTPicker2.Value) _ = Time Then MsgBox 时间到。 Timer1.Enabled = False End If 说明:DateTimePicker控件的Value属性用于返回或设置日期和时间。 3.3 DateTimePicker控件 (7) 程序运行效果如图 19和图 20所示。在图 19中,单击控件的下拉箭头显示日历,单击年份和月份可修改年月,单击日历中的某个日期即完成设定。在图 20中,单击时间模式控件中的上下箭头可设置时间。 图 19 下拉日历 图 20 设置时间 返回首页 返回本节 4 本 章 小 结(1) 本章主要介绍了几种较为实用的ActiveX控件。有效地使用这些控件可以为应用程序增加功能、美化界面和提高性能。 RichTextBox控件又称多格式文本框,使用该控件可以对控件中不同部分的文本设置不同的字体格式和段落格式,插入图片,在控件中查找文本,用RTF和纯文本两种格式打开和保存文件。 TreeView控件由呈树状分布的若干节点组成,用于显示具有层次结构的信息。控件中的每个节点都是Node对象,节点可包含文本和图片。节点之间可以是父子或兄弟关系。所有节点构成Nodes集合,调用该集合的相关方法可以添加、删除和清空节点。该控件最常用的事件是NodeClick事件。 4 本 章 小 结(2) ListView控件可使用大图标、小图标、列表和详细资料4种视图显示列表项,View属性决定它的视图显示方式。 SSTab控件由一组选项卡组成,每个选项卡都可作为其它控件的容器,且具有惟一的索引(下界为0)。Tab属性用于返回或设置活动选项卡。切换选项卡时触发Click事件。 ProgressBar控件即进度条,用于动态显示事务的进程。该控件最重要的属性是Min、Max和Value。 DateTimePicker控件可以按指定格式显示和设置日期或时间。使用属性页或Format属性可以设置两种不同的显示模式:下拉日历模式和时间显示模式。 返回首页 5 上 机 实 训 实训目的 熟悉RichTextBox、TreeView、ListView和SSTab控件的使用;了解DateTimePicker控件的使用。 实训内容 1. 使用RichTextBox控件创建多格式文本编辑器。 2. 利用TreeView控件建立部门分层列表。 3. 创建ListView控件的4种视图。 4. 制作含有选项卡的用户界面。 返回首页 结束 2.1 TreeView控件 (7) 在【添加系】按钮的单击事件过程中加入以下代码: Dim mNode As Node 声明节点对象变量 若省略Add方法的第一个参数,则在所有顶层节点之后 添加一个新的顶层节点,同时忽略Add方法的第二个参数。 下面一行语句中的1,2为ImageList控件中的图片索引。 Set mNode = TreeView1.Nodes.Add(, , , X系, 1, 2) 添加节点并为变量赋值 mNode.Selected = True 选中新节点 使新节点标签处于编辑状态以便用户修改 TreeView1.StartLabelEdit 2.1 TreeView控件 (8) 在【添加班级】按钮的单击事件过程中加入以下代码: 若控件中无节点退出此过程 If TreeView1.Nodes.Count = 0 Then
文档评论(0)