第三章 vb程序编写语言学习6.ppt

图7.16 Scroll事件 滚动条除了可以响应Change事件外，还可以响应Scroll事件。 Scroll事件是拖动滚动块而产生的，如果只单击两端箭头或单击箭头与滚动块之间的滚动条，只产生Change事件而不产生Scroll事件。 若拖动滚动块，只要拖动的动作在继续，就会不断产生Scroll事件，当拖动停止时，Value属性值发生了变化，则产生Change事件。 从上面的滚动条应用例子可以看出： 用滚动条来表示数量的变化比较形象。在一些Windows应用程序中常看到用滚动条来表示音量的变化。 图片框、图像框和计时器 6.8 图片框 6.9 图像框 6.10 计时器 控件名： 图像控件（imagebox） 图片控件(picturebox)，图片控件可以作为容器。 图像框（Image)和图片框（Picturebos）的区别是 1.图像框占用内存少。 2.图片框内可以包括其它控件。图像框则不能。 3.装入图片框的图形文件不随图片框的大小尺寸调整大小，当Aotuosize=ture时，图片框可以自己调整大小以适应图片文件。 4.图像框有一个Strech属性，当其为ture时，图形能自动变化大小以适应图像框的尺寸。 此外，为了节省内存，一般应尽量使用图像框，除非其不能满足要求。 picturebox是容器，image不是 属性： Currentx 和currenty:设置输出坐标（运行中设置） Picture:设置要显示的图形文件名 也可以用loadpicture（“文件名”）函数来设置。 align 在窗体中的显示方式 stretch 图像控件的属性，是否拉伸图形。True图形适应 控件大小，false控件适应图型大小。 autosize 图片控件的属性，ture图片控件适应图形大小, false控件大小不变，多余图形被裁掉。 装入图形文件： 1、属性设置窗口 2、粘贴 3、loadpicture(“完整路径”) 交换两个图片框中的图形 Private Sub Form_Click() Form1.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Form1.Picture Form1.Picture = LoadPicture() End Sub 1、在属性设置里设置picture属性 2、利用剪贴板将图形粘贴入图片框内 3、在程序运行中把图片加载到图片框中，利用loadpicture方法 图片框与图像框载入图片的方法 Visual Basic提供了一种“计时器”的控件。计时器每隔一定时间间隔就产生一次Timer事件（可理解为报时），可以根据这个特性依照时间控制某些操作，或用于计时。 计时器 【例】设计一个计时秒表。窗体上有一个用于显示计时秒表的标签。当单击“开始”按钮时，计时秒表开始计时，每隔1秒钟，秒数增加1。单击“停止”按钮，计时停止。单击“清零”按钮，清除标签中显示的数值。 图9.15 程序中定义了三个全局变量，分别用于时、分、秒的计数，这几个变量是： Dim hourVar As Integer Dim minuteVar As Integer Dim secondVar As Integer 运行程序执行Form_Load事件过程。代码如下 Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000’时间隔（interval）单位豪秒 lblTime.FontSize = 24 FormatTimer End Sub 在Form_Load中，首先设置计时器控件不动作，并设置计时器控件的Timer1.Interval及 lblTime.FontSize属性值。然后，调用FormatTimer通用过程。程序如下： Private Sub FormatTimer() Dim chH As String Dim chM As String Dim chS As String Dim chTime As String  chH = Format(hourVar, ″00″) chM = Format(minuteVar, ″00″) chS = Format(secondVar, ″00″) chTime = chH + ″: ″ + chM + ″