VBNET第14课.pptVIP

* Visual Basic.NET 程序设计（14） 授课教师：柳 青 电 话办 公 室 ：学院楼B418 E-mail ： Liuq@shift.edu.cn * 上周回顾 通用对话框 先将控件拉到窗体上才能使用 多窗体 Show，Hide，Me 只有关闭主窗体才能退出应用程序 如果提示是这句话错，请查看前面的各种设置条件 * Visual Basic.NET 程序设计 第十四课 数据库编程之记录显示 * 界面设计 Button1、2、3、4 CheckBox1 HScrollBar1 ProgressBar1 StatusBar1 * 示例说明 用到Access数据库TestQ.Mdb，里面有两张表“客户”和“地址”，我们主要用“客户”表 添加数据源 * * * * 将Customer拉入窗体中，调整文本框大小 在代码窗口中会自动出现一些代码，大家运行一下程序，发现导航条上的功能都能实现 * 使用BindingContext 对象浏览数据记录 添加四个按钮 Position 属性 数据集当前记录的位置序号 第一条记录：0 最后一条记录： Count 属性值-1 Count 属性 数据表中的记录条数 “第一条”按钮的Click事件代码： “最后一条”按钮的Click事件代码： * “下一条”和“上一条”按钮的事件代码 “往后”按钮的Click事件代码： “向前”按钮的Click事件代码： * 自动浏览时Button1~Button4无效 速度可以通过滚动条改变（自行添加，自己考虑如何设置最大值、最小值等参数） 显示浏览进度（添加进度条） 添加Checkbox1，表示自动浏览 * 考虑：怎样才能自动浏览？ 需要定时器Timer1，初始值是100，当复选框被选中时才开始工作 考虑：速度如何匹配？ 进度条的范围应该是记录的范围 最小值为第一条记录序号0，最大值为最后一条记录的记录序号BindingContext(Me.CustomerBindingSource).Count - 1 通过value值改变 考虑：进度条如何显示？ 定时器Timer1的时间间隔考虑范围是100~500，LargeValue为10，则滚动条的最小值为100，最大值为509 通过程序将滚动条的值与定时器的时间间隔相关联 * 自动浏览复选框CheckedChanged事件代码 注意：当需要自动浏览的时候需要设置进度条的最大最小值 滚动条的ValueChanged事件代码 通过滚动条来改变定时器的时间间隔，从而改变浏览速度 * 定时器的Tick事件 * 练习 完成示例程序 改变可执行文件的图标为Q.ico 设计状态栏 * * Liu Qing