VFP基礎教程 5.16 圖像框(image)

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

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

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

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

    ★將三個命令按鈕command1～command3的caption屬性依次設為"縮小按鈕","放大按鈕"及"結束按鈕";
    ★將單選按鈕組optiongroup1中的兩個單選按鈕option1和option2的caption依次設為"連續顯示"和"暫停顯示"(設置方法見第五章第九節)
    ★計時器控件timer1的屬性:enabled屬性設為.T.,interval屬性設為300(300毫秒即3秒,每3秒顯示一幅圖片,此處如改為100則為每隔1秒顯示一幅圖片)

Visual FoxPro基礎教程完整版

    3.編寫代碼:

    ★表單的load事件:
    public xh &&定義全局變量,用于存放圖片文件的主名
    xh=1 &&賦初值

    ★單選按鈕"連續顯示"的click事件代碼(向單選按鈕組中某個單選按鈕添加代碼的方法見第五章第九節):
    thisform.optiongroup1.option2.value=.f.
    this.value=.t.
    xh=1
    thisform.timer1.enabled=.t.

    ★單選按鈕"暫停顯示"的click事件代碼(向單選按鈕組中某個單選按鈕添加代碼的方法見第五章第九節):
    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格式的文件(可從網上下載),將它們分別重命名為1.jpg,2.jpg,和3.jpg,然后將它們復制到默認目錄中。

Visual FoxPro基礎教程完整版

生活不易，碼農辛苦
如果您覺得本網站對您的學習有所幫助,可以手機掃描二維碼進行捐贈