Visual BasicNET程序设计第6章 常用控件.ppt

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
6.5.3 应用实例 例6.10 在窗体上用3个单选按钮确定标签中字体的颜色,用3个复选框确定标签字体的样式。 6.6 ProgressBar与ScrollBar控件 6.6.1 进度条 1.进度条属性 进度条(ProgressBar)最重要的属性就是它的取值范围、当前值等,具体有: (1)Public Property Maximum As Integer 范围的最大值。 默认值为100。 (2)Public Property Minimum As Integer 范围的最小值。 默认值为0。 (3)Public Property Step As Integer 每次调用PerformStep方法增加进度栏时所根据的数量。 默认值为10。 (4)Public Property Style As ProgressBarStyle ProgressBar的显示样式,ProgressBarStyle属性如下: ① Blocks,通过在ProgressBar中增加分段块的数量来指示进度。 ② Continuous,通过在ProgressBar中增加平滑连续的栏的大小来指示进度。 ③ Marquee,通过以字幕方式在ProgressBar中连续滚动一个块来指示进度。 (5)Public Property Value As Integer 进度栏范围内的位置。 默认值为0。 2.进度条方法 (1)Public Sub Increment (value As Integer) 增加进度栏的当前位置所根据的数量。 (2)Public Sub PerformStep 按照Step属性的数量增加进度栏的当前位置。 6.6.2 滚动条 滚动条有水平滚动(HScrollBar)与垂直滚动(VScrollBar)两种,如图6-18所示。 图6-18 滚动条 1.滚动条属性 (1)Public Property Maximum As Integer 范围的最大值。 默认值为100。 (2)Public Property Minimum As Integer 范围的最小值。 默认值为0。 (3)Public Property SmallChange As Integer 获取或设置小距离移动滚动框时,在Value属性中加上或减去的值。 (4)Public Property LargeChange As Integer 获取或设置一个值,当滚动框长距离移动时,在Value属性中加上该值或从中减去该值。 (5)Public Property Value As Integer 滚动条范围内的位置。 默认值为0。 (2)Public Sub Cut 该方法过程把文本框中选择的文本剪切到剪贴板。 (3)Public Sub Paste 用剪贴板上的内容替换文本框中的当前选定的文本。 6.4.6 文本框数据校验 文本框的主要事件过程有: (1)TextChanged事件 该事件过程在文本框中的文本发生变化时触发执行,TextBox1的TextChanged事件过程如下: Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles TextBox1.TextChanged …… End Sub (2)Enter事件 该事件过程在光标进入文本框使文本框获取焦点时触发执行,TextBox1的Enter事件过程如下: Private Sub TextBox1_Enter(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles TextBox1.Enter End Sub (3)Leave事件 该事件过程在光标离开文本框使文本框失去焦点时触发执行,TextBox1的Leave事件过程如下: Private Sub TextBox1_Leave(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handl

文档评论(0)

132****9295 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档