VFP 愛用者社區

Abel · 註冊時間: 2005-03-14 文章: 189 來自: 鹿港小鎮 第 1 樓

我在一個 Delphi 所開發的 form 中看見一個很棒的 TextBox
我想了好幾天要檢查所輸入的值是否正確，可以在 TextBox.KeyPressEvent 或令 TextBox.InputMask = 999999中達到， Rolling Eyes

但是如何做成前 4位一組，後 2位一組，這樣的一個機制，我一直找不出好方法 Question

，
敢問各位如果欲以 vfp 實現這樣的功能，可有方法？ Idea

小賴 · 註冊時間: 2004-12-27 文章: 476 第 2 樓

看起來SelLength, SelStart, SelText之應用應可達成

Abel · 發表於: 星期二七月 19, 2005 12:25 pm 文章主題:

謝謝小賴兄的指導，但是小輩我資質鈍鈍，在屬性清單視窗看了老半天，
又試了好幾次，沒有領會，敢問小賴兄可否指點一下，或那兒有類似的範例可供參考，
謝了再謝。

garfield · 發表於: 星期二七月 19, 2005 12:52 pm 文章主題:

如果用一個 container 加上二個 textbox 也可以達到這樣的效果

朱育興 · 發表於: 星期二七月 19, 2005 1:00 pm 文章主題:

如果帳月是使用 YMD 日期格式 (如您附的圖)，在該 TextBox 的 Valid 中寫入
Lo_lValid = .T.
L_cYYYYMM = ALLTRIM(This.Value)
L_nYYYY = SUBSTR(L_cYYYYMM,1,4)
L_nMM = SUBSTR(L_cYYYYMM,5,2)
TRY
L_dValidDate = DATE(L_nYYYY,L_nMM,1)
CATCH TO W2630_oException
Lo_lValid = .F.
FINALL
RELEASE W2630_oException
ENDTRY
RETURN Lo_lValid

syntech · 發表於: 星期二七月 19, 2005 1:05 pm 文章主題:

同意garfield 兄的說法,
用一個container 包住兩個textbox,
然後把textbox的"邊"拿掉就可以了,
組合幾個,長度多長,都可以這樣做.

如果你發現不能一次選定所有內容,
可能就是這樣搞出來的吧!