ＶＦＰ中的圖像框(image) 發(fā)布日期：2010/5/2 10:23:00 來源： 作者： 點(diǎn)擊：189

-
 一.圖像框:用于顯示圖片文件,以加強(qiáng)程序的界面效果.在圖像框中使用的圖片文件的格式通常為.BMP格式或.JPG格式.
二.圖像框的常用屬性:如下表
屬性 作用
top 距父對象上方的距離
left 距父對象左方的距離
height 對象的高度
width 對象的寬度
enabled 設(shè)置對象是否可用
visible 設(shè)置對象是否可見
picture 指定對象中顯示的圖片

三.例:設(shè)計(jì)一個(gè)程序,要求按順序顯示圖片,并可放大,縮小圖片,暫?；蜻B續(xù)顯示圖片.運(yùn)行界面如圖51

1.新建表單,添加一個(gè)圖像框image1,一個(gè)選項(xiàng)按鈕組optiongroup1,一個(gè)計(jì)時(shí)器控件timer1(運(yùn)行時(shí)不可見,可放置于表單的任意位置),三個(gè)命令按鈕command1,command2及command3
2.設(shè)置對象屬性:
★ 將三個(gè)命令按鈕command1～command3的caption屬性依次設(shè)為"縮小按鈕","放大按鈕"及"結(jié)束按鈕";
★將單選按鈕組optiongroup1中的兩個(gè)單選按鈕option1和option2的caption依次設(shè)為"連續(xù)顯示"和"暫停顯示"(設(shè)置方法見第五章第九節(jié))
★計(jì)時(shí)器控件timer1的屬性:enabled屬性設(shè)為.T.,interval屬性設(shè)為300(300毫秒即3秒,每3秒顯示一幅圖片,此處如改為100則為每隔1秒顯示一幅圖片)
3.編寫代碼:
★表單的load事件:
public xh &&定義全局變量,用于存放圖片文件的主名
xh=1 &&賦初值
★單選按鈕"連續(xù)顯示"的click事件代碼(向單選按鈕組中某個(gè)單選按鈕添加代碼的方法見第五章第九節(jié)):
thisform.optiongroup1.option2.value=.f.
this.value=.t.
xh=1
thisform.timer1.enabled=.t.
★單選按鈕"暫停顯示"的click事件代碼(向單選按鈕組中某個(gè)單選按鈕添加代碼的方法見第五章第九節(jié)):
thisform.optiongroup1.option2.value=.f.
this.value=.t.
thisform.timer1.enabled=.f.
★計(jì)時(shí)器控件timer1的timer1事件:
xh=xh+1
if xh>3
xh=1
endif
xh0=alltrim(str(xh))
xp=xh0+".jpg"
thisform.image1.picture="&xp"
★"縮小按鈕"的click事件010:
thisform.image1.height=thisform.image1.height/1.2
thisform.image1.width=thisform.image1.width/1.2
★"放大按鈕"的click事件:
thisform.image1.height=1.2*thisform.image1.height
thisform.image1.width=1.2*thisform.image1.width
★"結(jié)束按鈕"的click事件:
thisform.timer1.enabled=.f.
thisform.release
4.說明:制作此例時(shí),須自己找三個(gè).jpg格式的文件(可從網(wǎng)上下載),將它們分別重命名為1.jpg,2.jpg,和3.jpg,然后將它們復(fù)制到默認(rèn)目錄中.

原文鏈接：http://airfire./article/airfire-2-1279379.html