方法:添加一个标签和时钟(timer),设置时钟的interval属性为100,然后在timer事件中写代码:
Private Sub Timer1_Timer()
If Label1.Left <= -Label1.Width Then Label1.Left = Form1.Width Else
Label1.Left = Label1.Left – 200 ?标签向左移动200 End If End Sub
思考:如果最终”欢迎进入本系统”不动,在运行时,单击”开始”则开始移动,单击”停止”,字停止不动.
添加两个按钮,开始,停止,最初将timer1的enabled设置为false,然后在开始和停止中写代码: 开始代码为:
timer1.enabled=true “停止”代码为:
timer1.enabled=false
例:编写程序,用计算器进行计时.在窗体上画一个标签和一个计时器,程序运行时,在标签中显示经过的秒数,并响铃. 在通用声明中书写: Dim n As Integer
Private Sub Timer1_Timer() n = n + 1
Label1.Caption = n Beep ?响铃 End Sub
(8)图像框(image)-->其中用于显示图片 picture:图像框中显示的图片.
在属性窗口中设置picture属性直接设置,当要删除picture属性中的图片时,按delete键. 而在代码中设置图片必须要写成:
image1.picture=loadpicture(“图片位置和名称”) stretch:图像框的大小是否随着图片的大小而改变.
当值为false时,表示图像框自动随着图片的大小而改变. 为true时,表示自动缩放图片以适应图像框的大小.
例:在名称为Form1的窗体上画一个名称为Image1的图象框，利用属性窗口装入考生目录下的图象文件 pic1.bmp，并设置适当属性使其中的图象可以适应图象框大小；再画两个命令按钮，名称分别为Command1、Command2，标题分别为“向右移动”、“向下移动”。请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图象框向右移动100；每单
击“向下移动”按钮一次，图象框向下移动100。运行时的窗体如图所示。
要求程序中不得使用变量，事件过程中只能写一条语句。 注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
注意:首先将image1的stretch设置为true,然后才能设置picture属性.
代码如下;
Private Sub Command1_Click() ?向右移动 Image1.Left = Image1.Left + 100 End Sub
Private Sub Command2_Click() ?向下移动 Image1.Top = Image1.Top + 100 End Sub
例: 在名称为Form1的窗体上画一个名称为image1的图像框， 其宽和高分别为1700、1900。请编写适当事件过程，使得在运行时，单击图像框，则装入考生目录下的图形文件pic1.bmp，如图所示。单击窗体则图像框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名 为sjt2.frm。
Private Sub Form_Click()
Picture1.Picture = LoadPicture(\End Sub
Private Sub Picture1_Click()
Picture1.Picture = LoadPicture(\End Sub
例：编一屏幕保护程序，运行时不断显示不同的图片，单击鼠标，退出程序。
前提：在D盘中存放了10幅图片，文件名分别为0.jpg,1.jpg....9.jpg。
主要控件有：form1,image1(也可用picture1),timer1 各主要属性设置如下：
窗体form1：borderstyle设置为0，无标题栏。windowstate设置为2，即运行后最大化。
计时器timer1: interval属性设为2000（可根据需要调整） 图像框控件：image1:picture属性设为0.jpg，并将图像框拖至最左上端（与窗体form1左上端对齐）。stretch为false，即改变图像框大小自动适应图片大小。
（若是图片控件picture1：picture属性设为0.jpg。autosize设为true。）