7.1.2-7.1.4程序设计.pptVIP

进度条（ ProgressBar）控件 位于Microsoft Windows Common Control6.0部件中。 通过从左到右用一些方块填充矩形来表示一个较长操作的进度。因而可以监视操作完成的进度。 有一个行程和一个当前位置。 行程——代表该操作的整个持续时间。 当前位置——代表应用程序在完成该操作过程时的进度。 ProgressBar 控件的重要属性： Max 属性、 Min 属性、Value属性： Max和 Min属性设置了行程的界限。 Value属性则决定控件被填充了多少。由于使用方块来填充控件，因此所填充的数量只能是接近于Value属性的当前设置值。一般来讲，可以将Max设置为100，Min设置为1。此时Value=50表示完成了50%的操作。 可以用ProgressBar控件的Align 属性把它自动定位在窗体某个位置（顶部、底部、左边或右边）。 7.1.3 PictureBox（图形框） 主要作用： 显示图片，也可作为其他控件的容器。 装入图形： 图形框对象.Picture = LoadPicture(“图形文件名”) 删除图形： 图形框对象.Picture = LoadPicture(“” ) 7.1.3 PictureBox（图形框） Autosize属性： 设置为True时，图形框能自动调整大小与显示的图片匹配；若为False，则当图形比控件大时，超过部分将被裁剪掉。 7.1.3 Image（图像框） 图像框比图形框占用更少的内存，描绘得更快。 图像框内不能存放其他控件。 7.1.3 Image（图像框） Stretch属性： Stretch属性=False，图像框可自动改变大小以适应其中的图形。 Stretch属性=True， 图形可自动调整尺寸以适应图像框的大小。 注意： 如果图像框内装入的图形较大，在Form窗体较小时，图像框的边界会被窗体的边界截断。 可在Form_Resize事件中使图像框适应窗体尺寸的大小. 例、图形框Autosize属性与图像框的Stretch属性对加载图形的影响。 例 设计一个定时程序 Dim hour, minute Sub Command1_Click() hour = Format(Text1.Text, 00) minute = Format(Text2.Text, 00) End Sub Sub Timer1_Timer() Label1.Caption = Time$() If Mid$(Time$, 1, 5) = hour + : + minute Then hour = ** minute = ** MsgBox$ (时间到！) End If End Sub Sub Command2_Click() End End Sub 回忆：格式输出函数Format() 可使数值、日期或字符串按指定的格式输出。一般用于print方法中。 形式： Format$（表达式，[格式字符串]） 常用数值格式符号有：“0”、“＃”、“.”、“，”、“％”、“$”等。 例如 s=12.1245 b=12 print format(s,“0.00”), format(b, “0.00”) print format(s,“＃.＃＃”), format(b, “＃.＃＃”) 显示结果为： 12.12 12.00 12.12 12 例7.8 用一个时钟控件控制蝴蝶在窗体内飞舞 Private Sub Command1_Click() End End Sub Private Sub Timer1_Timer() Static ImaBmp As Integer ‘定义图像交替控制指针 If ImaBmp=0 Then Image1.Picture = Image2.Picture