VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

狀態欄控制項的使用說明
( 作者: 紅虎 )

　　在VFP的程式設計中，其主視窗_screen有一個系統的狀態欄，雖然可以很方便的使用命令set message to 字元。。。但是有時侯還是會有美中不足之處，如系統的顯示一個當前打開的當前工作區的表的決定路徑，以及其所在的記錄位置，和鎖定方式，令人很是頭疼。

　　當然不僅僅因爲此，我們就要放棄該狀態欄啊，有時我們需要使我們的狀態欄顯得更專業點，或者需要顯示特定的狀態欄資訊，故，需要使用狀態欄控制項來使我們的程式更漂亮！

　　狀態欄在顯示時有兩種模式，一是單版面，二是多版面。單版面就是在狀態欄地方顯示一個資訊區，而且只可以放置簡單的文字說明，而多版面可以放置二個或以上的資訊區，並可以特定的系統說明，如CAPS，NUM，INS等的狀態指示，並可以放置圖片。而且兩種模式在切換時還不互相干擾，互不影響！

下面說明一下其使用方法
　　首先該控制項需要文件 mscomctl.ocx 的支援，如果在安裝了VFP6的環境下，系統目錄下已經有了該文件，如果在修改或運行前提示要打開一個OCX文件，那麽需要首先拷貝該文件到你的系統目錄，然後再指定該文件，因爲第一次指定時，系統即註冊該文件，及其路徑，所以不要隨便在第一次去指定一個OCX文件，否則麻煩大了！

狀態欄的屬性之一STYLE，即上面所講的兩種顯示模式，0 - Mutliple panels 和 1 - Single panel simple text 當爲Single panel simple text 模式時，很方便的處理，只要指定狀態的另一個屬性 SimpleText即可，就象在操作VFP主視窗的狀態欄時用 set message to 那麽方便了，在這裏就是thisform.OleStatus.SimpleText="新的字串"即可。

而當在 Mutliple panels 時就不同了，其實我們需要這個控制項也就是爲了這個功能吧，不然用VFP主視窗的狀態欄不就行了嘛？在多版面時，每一個版面作爲一個物件來操作，即Panel，對之我摸索到如下的屬性：
1、Index 是指Panel的索引號，該索引號是順序排列且唯一指定每一個Panel的。
2、Text 是指在Panel上顯示文本的，只有當其Style=0（文字）時才有效。
3、ToolTipText 是當滑鼠移到該Panel上時顯示的提示資訊，要當控制項的ShowTips=.T.時才有效。
4、Key 是用來唯一標誌每一個Panel的值，該值要麽不指定，即爲空，要麽就是要唯一指定。在做對Panel的刪除時，需要指定Panel的Key值。
5、Width 是指Panel的寬度，寬度不可以小於0，否則出錯。
6、Tag 用來存儲額外資料的，一般沒什麽用。
7、Visible 默認爲.T.即可見，可以通過修改該值來隱含Panel.
8、Enabled 默認爲可用，可以通過修改該值來表示Panel的可用不可用狀態。
9、Alignment 對齊方式，默認爲左對齊。
10、Style 表示Panel的樣式，如普通文字，CAPS，NUM，INS的鍵的狀態指示，用來表示日期，時間等。
11、Bevel 表示Panel的外觀，有平面，突起，凹進三種。
12、Picture 該參數還未知如何以編程方式來指定，他的值是作爲一個物件存儲的。

方法：
1、添加
thisform.olestatus.panels.add(n,"key_"+allt(str(n)),"Ready",0 )
以上代碼參數表示：
N 是指其INDEX值，該值必須唯一，且是順序指定，
"key_"+allt(str(n)) 表示其KEY值，要指定，必須使他唯一，否則出錯。
"Ready" 是在PANEL上顯示的文字。
後面的0表示其樣式爲普通文字。

2、刪除
thisform.olestatus.panels.remove(key)
指定某一個PANEL的KEY值時，可以通過該命令來做刪除。

3、更新
詳細見示例中

應用：
1、顯示進度條：
*-- PANEL 的寬度 = 12 * 方塊個數 + 2
with thisform.olestatus.panels.item(1)　&& 在第一個PANEL裏顯示進度條

.text = ""
nTotalNum = (.width - 2)/12 && 總方塊個數
x = 0　　　&& 當前所計算出的第幾個方塊數
y = 0　　　&& 跟X參考比較數
nTotalSum = 100000　　　&& 總數
for n = 1 to nTotalSum　&& 表示從1到100000之間的處理進度
　　x = int((n * nTotalNum)/nTotalSum)　　&& 求得現在是需要顯示第幾個方塊數 X
　　if y <> x　　&& 當兩個數不相等時，表明有新的數産生，則加一個方塊
　　　 .text = .text + '■'
　　　 y = x
　　endif
*-- 處理某事務
endfor
.text = "完畢"
endwith

2、顯示時鐘
這個很簡單，只要在表單上放一個時鐘控制項，設頻率爲1000微妙，TIMER事件裏寫
thisform.olestatus.panels.item(1).text = ttoc(datetime())
表示在第一個PANEL裏顯示當前的時間，並每隔一秒更新，從而達到即時顯示時間，但這個不是很有必要，畢竟他提供了時鐘的功能，只是不顯示秒？！

所有以上說明，均在示例中可以看到，請點擊下載示例 >>> Stabar.zip 7.4K

jllu0406 · 註冊時間: 2006-09-07 文章: 6 第 2 樓

請問將STATUSBAR放於新表單我會控制，但如何將statusbar放於_screen系統主畫面下呢?程式應如何寫? Thanks