| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
puby
註冊時間: 2009-04-28
文章: 30
第 1 樓
|
 發表於: 星期五 十月 15, 2010 10:11 pm 文章主題: 求教在 Form 裡的大量 TextBox 加入同樣程序的方法 |
 |
|
請教各位敬愛的大師們
小弟有一個 Form
這個 Form 裡有 60 多個 Text Box
小弟想在這些 Text Box 的 KeyPress procedure 裡統一加入同樣的一句 blnDataChange = .T.
那麼，除了一個一個 Text Box 點進去 KeyPress procedure 裡加入？
抑或是，有更好更簡潔的方式呢？
謝謝。 |
|
| 回頂端 |
|
 |
DennisTsai
註冊時間: 2005-07-26
文章: 178
第 2 樓
|
| 發表於: 星期六 十月 16, 2010 3:37 am 文章主題: |
|
|
| 參考 bindevent |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 3 樓
|
| 發表於: 星期六 十月 16, 2010 4:54 am 文章主題: |
|
|
自訂物件
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
puby
註冊時間: 2009-04-28
文章: 30
第 4 樓
|
| 發表於: 星期日 十月 17, 2010 12:15 am 文章主題: |
|
|
感謝大師們的回覆
請容小弟智低駑鈍，雖然大師寫的字句清楚，但小弟卻看的一片模糊 ...............
關鍵字也咕過了八方四海，但依然看的傻霧霧 ....
可否恤憫小弟學薄，就上例，賞賜概約 Sample Code 呢 ? |
|
| 回頂端 |
|
|
小賴
註冊時間: 2004-12-27
文章: 476
第 5 樓
|
| 發表於: 星期一 十月 18, 2010 11:42 am 文章主題: |
|
|
方法一
1. Form.KeyPreView = .T. && 讓物件KeyPress觸發前先觸發Form的KeyPress
2. Form.KeyPress :
IF UPPER(This.ActiveControl.BaseClass) = "TEXTBOX"
blnDataChange = .T.
ENDIF
方法二：使用BindEvent
1. Form.Init ：
FOR EACH oText IN This.Controls
IF UPPER(oText.BaseClass) = "TEXTBOX"
BINDEVENT(oText, "KeyPress", This, "KeyPress")
ENDIF
NEXT
2. Form.KeyPress
blnDataChange = .T.
方法三：Syntech兄提供給你的 ”自訂物件”
非一言二語說的清楚；不過它是最好的方法
要用VFP一定要學會它 |
|
| 回頂端 |
|
|
puby
註冊時間: 2009-04-28
文章: 30
第 6 樓
|
| 發表於: 星期二 十月 19, 2010 10:55 pm 文章主題: |
|
|
| 小賴 寫到: | 方法一
1. Form.KeyPreView = .T. && 讓物件KeyPress觸發前先觸發Form的KeyPress
2. Form.KeyPress :
IF UPPER(This.ActiveControl.BaseClass) = "TEXTBOX"
blnDataChange = .T.
ENDIF
方法二：使用BindEvent
1. Form.Init ：
FOR EACH oText IN This.Controls
IF UPPER(oText.BaseClass) = "TEXTBOX"
BINDEVENT(oText, "KeyPress", This, "KeyPress")
ENDIF
NEXT
2. Form.KeyPress
blnDataChange = .T.
方法三：Syntech兄提供給你的 ”自訂物件”
非一言二語說的清楚；不過它是最好的方法
要用VFP一定要學會它 |
感謝大師荒夜贈燈引迷途
小弟銘感五內，沒齒難忘 ................
這就去實作！感激感激再感激！ |
|
| 回頂端 |
|
|
小賴
註冊時間: 2004-12-27
文章: 476
第 7 樓
|
| 發表於: 星期三 十月 20, 2010 9:37 am 文章主題: |
|
|
施主 言重了！
舉手之勞 ; 猶恐班門弄斧; 何足掛齒 |
|
| 回頂端 |
|
|
foxy
註冊時間: 2007-08-16
文章: 258
來自: 泰國
第 8 樓
|
| 發表於: 星期日 十一月 21, 2010 4:01 pm 文章主題: |
|
|
| 小賴 寫到: | 方法一
1. Form.KeyPreView = .T. && 讓物件KeyPress觸發前先觸發Form的KeyPress
2. Form.KeyPress :
IF UPPER(This.ActiveControl.BaseClass) = "TEXTBOX"
blnDataChange = .T.
ENDIF
方法二：使用BindEvent
1. Form.Init ：
FOR EACH oText IN This.Controls
IF UPPER(oText.BaseClass) = "TEXTBOX"
BINDEVENT(oText, "KeyPress", This, "KeyPress")
ENDIF
NEXT
2. Form.KeyPress
blnDataChange = .T.
方法三：Syntech兄提供給你的 ”自訂物件”
非一言二語說的清楚；不過它是最好的方法
要用VFP一定要學會它 |
贊同. class 最好用了
_________________
進銷存+生產製造+會計+員工薪資+CRM+POS零售+餐廳手機app+電商手機app+電商網站,物流系統. 正/簡體中文,英,日,泰,緬甸文. MS SQL Server + 前台 VFP + PHP 網站 + Flutter 手機 App, 都共享 MS SQL Server的資料. www.foxacc.com LINE: mike-lm |
|
| 回頂端 |
|
|
green
註冊時間: 2003-09-19
文章: 137
第 9 樓
|
| 發表於: 星期三 十一月 24, 2010 11:50 am 文章主題: |
|
|
| 這個故事告訴我們,不要使用基礎類別來開發程式~~~ |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
