5.16 圖像框(image)

　　一.圖像框:用于顯示圖片文件,以加強程序的界面效果.在圖像框中使用的圖片文件的格式通常為.BMP格式或.JPG格式.

　　二.圖像框的常用屬性:如下表

　　三.例:設計一個程序,要求按順序顯示圖片,并可放大,縮小圖片,暫停或連續(xù)顯示圖片.運行界面如圖51

　　1.新建表單,添加一個圖像框image1,一個選項按鈕組optiongroup1,一個計時器控件timer1(運行時不可見,可放置于表單的任意位置),三個命令按鈕command1,command2及command3

　　2.設置對象屬性:

　　★將三個命令按鈕command1～command3的caption屬性依次設為"縮小按鈕","放大按鈕"及"結束按鈕";

　　★將單選按鈕組optiongroup1中的兩個單選按鈕option1和option2的caption依次設為"連續(xù)顯示"和"暫停顯示"(設置方法見第五章第九節(jié))

　　★計時器控件timer1的屬性:enabled屬性設為.T.,interval屬性設為300(300毫秒即3秒,每3秒顯示一幅圖片,此處如改為100則為每隔1秒顯示一幅圖片)

　　3.編寫代碼:

　　★表單的load事件:

　　public xh &&定義全局變量,用于存放圖片文件的主名

　　xh=1 &&賦初值

　　★單選按鈕"連續(xù)顯示"的click事件代碼(向單選按鈕組中某個單選按鈕添加代碼的方法見第五章第九節(jié)):

　　thisform.optiongroup1.option2.value=.f.

　　this.value=.t.

　　xh=1

　　thisform.timer1.enabled=.t.

　　★單選按鈕"暫停顯示"的click事件代碼(向單選按鈕組中某個單選按鈕添加代碼的方法見第五章第九節(jié)):

　　thisform.optiongroup1.option2.value=.f.

　　this.value=.t.

　　thisform.timer1.enabled=.f.

　　★計時器控件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

　　★"結束按鈕"的click事件:

　　thisform.timer1.enabled=.f.

　　thisform.release

　　4.說明:制作此例時,須自己找三個.jpg格式的文件(可從網(wǎng)上下載),將它們分別重命名為1.jpg,2.jpg,和3.jpg,然后將它們復制到默認目錄中。

　　　　　　　全國計算機等級考試二級VF輔導筆記匯總

　　　　　　　計算機等級考試二級VFP上機試題及答案匯總

　　　　　　　2011年計算機等級考試二級VFP常用命令小結