VB讲稿 第5章高级用户界面

《VB讲稿 第5章高级用户界面》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章高级用户界面7/16/20211本章内容5.1计时器控件5.2图形图象类控件5.3列表框和组合框控件5.4水平和垂直滚动条控件5.5驱动器列表框、目录列表框和文件列表框控件5.6通用对话框控件7/16/202125.1计时器控件计时器控件(Timer)是一种控制时间操作的控件，因为它可以间隔一定时间触发一个计时事件，实现对时间的控制。1、计时器的属性2、计时器的事件7/16/202131、计时器的属性计时器控件主要属性有：名称属性：缺省情况下的命名为TimerX（X=1，2，3，…）Enabled属性：值为True，被激活，

2、开始计时，并在一定的时间间隔后触发计时器事件。值为False，计时器被禁止。7/16/20214Interval属性：计时器触发事件的时间间隔，单位是毫秒（ms，1/1000s），取值范围为0~65535ms。如果将Interval设置为1000，则表明每隔一秒钟将触发一次计时器事件。如果为０，计时器无效。7/16/202152、计时器的事件计时器只响应Timer事件。程序运行时，每隔一定时间，系统将触发控件的Timer事件，间隔的时间由Interval属性指定。用户的任务就是在Timer事件中添加程序代码，使得程序在设定的间隔时

3、间内自动执行Timer事件中的代码，以实现时间控制。注意：计时器运行时不可见。7/16/20216计时器控件应用示例【例5-1】：在例3-6的基础上，为门诊挂号添加挂号的时间，即定时地在“门诊挂号”对话框中显示系统的时间。7/16/20217第1步：用户界面设计打开例3-6“frmRegistry”的窗体是：7/16/20218因此，只需在窗口内添加一个计时器控件和两个标签：一个用于时间显示，一个用于时间标示。计时器标签4标签37/16/20219第2步：设置属性标签4属性：名称属性：命名为lblTime；计时器属性：Enable

4、d属性：设为True，即程序启动后，开始计时；Interval属性：设为500，这样每隔0.5秒触发一次Timer事件，即表示每隔0.5秒就在标签4显示一次系统时间。7/16/202110计时器属性设置7/16/202111第3步：为计时器编写事件代码7/16/202112运行结果每隔0.5秒显示一次时间程序运行时计时器隐藏7/16/2021135.2图形图象类控件图形图像类控件有:1、图片框控件（PictureBox）2、图像框控件（Image）3、形状控件（Shape）4、直线控件（Line）7/16/2021141、图片框控

5、件图片框控件的基本功能是显示各种图形。有两个基本问题：（1）图片框控件的属性（2）图片框控件的应用7/16/202115（1）图片框控件的属性名称属性：缺省命名为PictureX（X=1，2，3，…）。CurrentX和CurrentY属性：设置或返回下一次打印或绘图方法的水平坐标和垂直坐标。只能在代码窗口指定。DrawMode属性：返回或设置绘图方法的输出外观。取值1到16；7/16/202116（1）图片框控件的常用属性Name缺省名称是PictureX(X=1,2,…)Picture设置控件中显示的图片AutoSize控件是

6、否自动改变大小以显示图片的全部内容BackColor设置图片框的背景色ForeColor设置图片框的前景色DrawMode、ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight：建立自定义坐标系统7/16/202117关于绘图模式DrawMode的说明（见表5-1）DrawMode属性决定输出的图形的色彩。决定的原则是：该属性将所画图形的像素（或称画笔）与屏幕上的背景像素进行比较，然后进行按位的“and、or、not、xor等”逻辑运算。例如DrawMode的常数是vbMergePen(值为15)就表

7、示进行“or”运算，产生一个新的颜色值在屏幕上把图形显示出来；而属性常数是“vbNotMergePen”(值为2)则表示在前者基础上再进行not“运算，所以显示的颜色与前者相反。7/16/202118（2）图片框控件的应用图片框控件不仅可以通过picture属性接受和显示来自通过加载来得图形，更重要的是可以通过调用系统的各种方法，实现各种图形的显示：Circle方法Line方法PaintPicturePrint方法7/16/202119Circle方法Circle方法的作用：用于在图片框内绘制圆形、椭圆形或弧形。调用格式：图片框名

8、.Circle[step](x,y),radius,[color,start,end,aspect]（各参数的含义参见表5-2）7/16/202120Circle方法可实现：画圆、椭圆、圆弧[object.]Circle[Step](x,y),ra