vfp图像框(image)

一、图像框:用于显示图片文件，增强程序的界面效果。图像框中使用的图片文件的格式通常是。BMP格式或。JPG格式。
2。图像框架的常见属性:使用下表
属性
顶部到父对象的距离
左侧到父对象的距离
对象的高度[对象的宽度
enabled设置对象是否可用
visible设置对象是否可见
picture指定对象中显示的图片。

3.例子:设计一个程序，要求图片按顺序显示，可以放大、缩小、暂停或连续显示图片。运行界面如图51
1所示。创建一个新窗体，并添加一个图像框image1、一个选项按钮组optiongroup1、一个计时器控件timer1(在运行时不可见，可以放在窗体中的任何位置)和三个命令按钮command1、command2。

2.设置对象属性:
★将三个命令按钮command1~command3的字幕属性依次设置为“缩小按钮”、“放大按钮”、“结束按钮”；
★将单选按钮组optiongroup1中的两个单选按钮option1和option2的标题依次设置为“连续显示”和“暂停显示”(设置方法参见第五章第九节)
★定时器控件timer1的属性:enabled属性设置为。t .，interval属性设置为300(300毫秒为3秒，每3秒显示一张图片。

3.写代码:
★表单的load事件:
public xh &&定义全局变量，用来存储图片文件的主名
xh=1 &，带有初始值。

★点击单选按钮“连续显示”的事件代码(向单选按钮组中的单选按钮添加代码的方法参见第5章第9节):
this form . option group 1 . option 2 . value =。F.
this.value =。T.
xh = 1 [/br

★点击单选按钮“暂停显示”的事件代码(向单选按钮组中的单选按钮添加代码的方法参见第5章第9节):
this form . option group 1 . option 2 . value =。F.
this.value =。t .
this form . timer 1 . enabled

★定时器控制定时器1的定时器1事件:
xh = xh+1
ifxh > 3
xh = 1
endif
xh0 = all trim(str(xh))
XP

★点击“缩小按钮”事件010:
this form . image1 . height = thisform.image1.height/1.2
this form . image1 . width = thisform.image1.width/1.2

★单击“放大按钮”事件:
this form . image1 . height = 1.2 * this form . image1 . height
this form . image1 . width = 1.2 * this form . image1 . width

★点击“结束按钮”事件:
this form . timer 1 . enabled = . f .
this form . release
4 .注意:在制作这个例子时，您必须在。jpg格式(可以从网上下载)并将它们重命名为jpg，2。