為VFP添加循環(huán)微調(diào)控件類

在VFP編程中，微調(diào)控件是最常用的控件之一。按照微調(diào)控件提供的基本功能，通過單擊向上或向下箭頭，而達到微調(diào)控件的或最小值時，如繼續(xù)單擊向上或向下箭頭，將保持或最小值不變。筆者通過對Spinner控件屬性和事件的分析，用編程的方法實現(xiàn)了循環(huán)微調(diào)控件功能。
    循環(huán)微調(diào)控件(CycleSpinner)所實現(xiàn)的功能是：當單擊向上箭頭而達到值時，再單擊向上箭頭，能自動跳到最小值；當單擊向下箭頭而達到最小值時，能自動跳到值；其余功能均繼承Spinner基類的功能。具體實現(xiàn)方法如下：
    利用表單控件，在表單中設(shè)計一個微調(diào)按鈕，并設(shè)置如下屬性：
    SpinnerHighValue=Max
    ＆＆Max應(yīng)小于Spinner基類所
    ＆＆提供的默認值
    SpinnerLowValue=Min　　
    ＆＆Min應(yīng)大于Spinner基類所
    ＆＆提供的最小默認值
    Value=1
    Name=′CycleSpinner′
    在Init事件中寫入如下代碼：
    This.SpinnerHighValue=This.SpinnerHighValue＋This.Increment
    This.SpinnerLowValue=This.SpinnerLowValue－This.Increment
    在InteractiveChange事件中寫入如下代碼：
    If This.Value=This.SpinnerHighValue
    This.Value=Int(This.SpinnerLowValue＋This.Increment)
    Endif
    If This.Value=This.SpinnerLowhValue
    This.Value=Int(This.SpinnerHighValue－This.Increment)
    Endif
    Thisform.Refresh
    再將其作為類保存起來，添加到你的類庫中。
    若你在編程中，需用此功能，就可直接用此循環(huán)微調(diào)控件類了