VFP基礎教程 5.3 標簽控件(label)

一.標簽控件用于顯示文本,一般用于顯示提示信息.顯示文本的格式由標簽的屬性設置.常用屬性見下表:

    二。例1:

    1.新建一個表單，表單中添加三個命令按鈕commadn1～command3,一個標簽控件label1,分別設置三個命令按鈕的caption屬性值為"顯示1","顯示2"和"隱藏",如圖17

    2.添加事件代碼：
    *表單的init事件：
    thisform.autocenter=.t.
    thisform.caption="標簽控件演示"
    thisform.label1.autosize=.t.
    thisform.label1.visible=.f.
    *"顯示1"命令按鈕的click事件：
    thisform.label1.forecolor=rgb（0,255,0）
    thisform.label1.visible=.t.
    thisform.label1.caption="你好"
    thisform.label1.fontsize=10
    *"顯示2"命令按鈕的click事件：
    thisform.label1.forecolor=rgb（255,0,0）
    thisform.label1.visible=.t.
    thisform.label1.caption="hello"
    thisform.label1.fontsize=18
    *"隱藏"命令按鈕的click事件：
    thisform.label1.visible=.t.

    3.保存并運行該表單，分別單擊三個命令按鈕，觀察效果

Visual FoxPro基礎教程完整版 
    三。例2:在屏幕上移動的字幕
    1.新建一個表單，在表單上添加一個標簽label1,設置該標簽的屬性如下：
    caption="大家好"
    fontname="楷體_GB2312"
    fontbold=.t.
    forecolor=rgb（255,0,0）
    alignment=2
    2.編寫事件代碼：
    *標簽label1的click事件代碼如下：
    do while .t.
    for i=thisform.width step 10
    this.left=i
    =inkey（1） &&延時1秒
    next i
    enddo
    3.保存并運行該表單，單擊標簽控件，觀察效果。
    注意：此程序運行后，必須按ctrl+alt+del終止vfp才能退出去，想想為什么？
    四。用標簽產生特殊效果的方法：
    1.字排多行：在需換行的地方加chr（13）回車符，例如caption="你"+chr（13）+"好"
    2.改變字的方向：設fontname屬性為帶@的字體名。
    3.字從小到大：用一個循環不斷改變標簽的fontsize,同時調整top和left屬性，每次增加一個值，直到最大時停止：this.top=thisform.height/2-this.fontsize/2
    4.立體字：設計兩個標簽，將另一個標簽的相對位置略加移動，forecolor設置不同的顏色，就可以產生立體字的效果。
Visual FoxPro基礎教程完整版
     

 生活不易，碼農辛苦

 如果您覺得本網站對您的學習有所幫助,可以手機掃描二維碼進行捐贈